data(underwear)
attlab = c(c(1:15),"by","tr","vm","jd","ml","bn","bg","ck","a1","a2","a3")
outMCAk <- MCAk(underwear,nclus=3,ndim=2,nstart=1,smartStart=TRUE,seed=1234)
plotrd(outMCAk,attlabel=attlab)
Run the code above in your browser using DataLab