data(iris)
emclust1(iris[,1:4], nclus=2:3, modelid = c("VVV","EEV"))
data(chevron)
noisevec _ rep(0, nrow(chevron))
noisevec[chevron[,2]>60] _ 1
bicvals _ emclust1(chevron, noise=noisevec, nclus=0:5)
sumry _ summary(bicvals, chevron)
plot(chevron, col=ztoc(sumry$z), pch=ztoc(sumry$z))
Run the code above in your browser using DataLab