if (FALSE) {
data(napping)
nappeplot(napping.don)
resindscal<- indscal(napping.don, napping.words)
prefpls(cbind(resindscal$points, napping.words))
pmfa(napping.don, napping.words, mean.conf = resindscal$points)
}
Run the code above in your browser using DataLab