data(macro)
macro = data.frame(scale(macro, center = TRUE, scale = TRUE))
outf <- FactorialKM(macro,3,2,nstart=1,smartStart=TRUE)
plotrd(outf,what=c("all","none"),obslabel=rownames(macro),density=FALSE)
Run the code above in your browser using DataLab