fname <- system.file("Major.csv",package="provenance")
Major <- read.HMdata(fname)
plot(getMDS(Major,classical=TRUE))
dev.new()
plot(getPCA(Major),asp=1)
print("This example demonstrates the equivalence of classical MDS and PCA")Run the code above in your browser using DataLab