# NOT RUN {
str(countries)
colnames(countries)
rownames(countries)
if(require(MASS)){
# We use multidimensional scaling:
if(interactive())par(ask=TRUE)
countries.cmdscale <- cmdscale(countries, k=2, eig=TRUE)
eqscplot(countries.cmdscale$points)
countries.sam <- sammon(countries)
eqscplot(countries.sam$points)
}
# }
Run the code above in your browser using DataLab