powered by
"norMix"
norMix
clus2norMix(gr, x, name = deparse(sys.call()))
factor
gr
norMix()
(mu, sig2, w)
split(x,gr)
pam()
clara()
x9 <- rnorMix(500, MW.nm9) require("cluster") pxc <- pam(x9, k=3) plot(pxc, which = 2)# silhouette (nm.p9 <- clus2norMix(pxc$clustering, x9)) plot(nm.p9, p.norm=FALSE) lines(MW.nm9, col="thistle")
Run the code above in your browser using DataLab