#This data file is the same as that obtained using:
#data(sen90)
#sen90wnom<-wnominate(sen90,polarity=c(2,5))
data(sen90wnom)
summary(sen90wnom)
plot.scree(sen90wnom)
plot(sen90wnom)
Run the code above in your browser using DataLab