您的訂閱是我製作影片的動力
訂閱點這裡~
影片程式碼
## k prototype ####
library(clustMixType)
data(iris)
iris_n <- iris[,-5]
iris_n <- as.data.frame(scale(iris_n)) #前置2: standard norm 標準化
iris <- cbind(iris_n,iris$Species)
kp <- kproto(iris, 4)
clprofiles(kp, iris)
kp$withinss
kp_out <- as.data.frame(kp$cluster) #大好
final <- cbind(iris,kp_out)
若內容有誤,還請留言指正,謝謝您的指教