[Day-14] R语言 - GMM 高斯混和模型 实作-下 feat EM调参 ( GMM & EM in R.Studio )

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

影片程序码

#延续上一支影片
gmm = GMM(iris, 4, dist_mode = "eucl_dist", em_iter = 10)  # EM调参  
gmm_out <- as.data.frame(gmm$Log_likelihood) #大好
final <- cbind(iris,gmm_out)

library(dplyr)
final <- final %>% 
         mutate(最大=pmax(V1,V2,V3,V4)) %>% 
         mutate(分群=ifelse(最大==V1,"c1",
                     ifelse(最大==V2,"c2",
                     ifelse(最大==V3,"c3","c4"))))

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