uniscale(delta, weightmat = NULL)
"dist"
mds
## unidimensional scaling of Plato's 7 works PlatoD <- dist(t(Plato7)) fit.uni <- uniscale(PlatoD) fit.uni plot(fit.uni)
Run the code above in your browser using DataLab