data(napping.don)
data(napping.words)
nappeplot(napping.don)
resindscal<- indscal(napping.don,napping.words)
get(getOption("device"))()
prefpls(cbind(resindscal$points,napping.words))
get(getOption("device"))()
pmfa(napping.don,napping.words,mean.conf=resindscal$points)
Run the code above in your browser using DataLab