1、在R中实现期望最大化聚类的是mclust软件包中的核心函数Mclust()。其基本坼黉赞楞格式为：Mclust(data, G = NULL, modelNames = NULL, prior 租涫疼迟= NULL, control = emControl(), initialization = NULL, warn = mclust.options("warn"), x = NULL, verbose = interactive(), ...)其中，data表示待聚类数据集，G为预设类别数，默认值 为1到9,由软件根据BIC值在这些默认值中选择最优解；moldelNames表示模型类别，软件会自动选择最优的参数值。首先要安装和加载软件包：install.packages("mclust")library(mclust)
3、实现期望最大化聚类。fit_EM=Mclust(na.omit(Tourism_shares[,3:6]))summary(fit_EM,parameters=TRUE) #查看聚类结果结果显示，最优类别数为5，每个类中分别有2、7、7、6、3个样本。
