sig <- diag (2)
cen <- rep (1,2)
x <- rbind (
rmvnorm (360, cen * 0, sig),
rmvnorm (540, cen * 5, sig * 6 - 2),
rmvnorm (100, cen * 2.5, sig * 50)
)
clus.1 <- tclust (x, k=2, alpha=0.1, restr.fact=12)
clus.2 <- tclust (x, k=3, alpha=0.1, restr.fact=1) # "Improper" choice of parameters
bay.1 <- bayesfact(clus.1)
plot(bay.1)
bay.2 <- bayesfact(clus.2)
plot(bay.2)
dev.off ()
plot.bayesfact.p2(bay.1)
plot.bayesfact.p3(bay.2)Run the code above in your browser using DataLab