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