[Day-10] R语言 - kernel K - means 实作 ( kernel K - means in R.Studio)

您的订阅是我制作影片的动力
订阅点这里~

影片程序码

library(naniar)
data(iris)
any_na(iris) #前置1: chk NA
iris <- iris[,-5]
iris <- scale(iris) #前置2: standard norm 标准化

## kernel k-means ####
library(kernlab) 
kkmeans <- kkmeans(iris, centers=4, kernel = "rbfdot", 
                   kpar = "automatic",alg="kkmeans")
withinss(kkmeans) #比较

若内容有误，还请留言指正，谢谢您的指教