[Day-12] R语言 - K - prototype 实作 ( K - prototype in R.Studio)

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

影片程序码

## 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)

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