library(MASS)
library(mva)
data(varespec)
data(varechem)
vare.dist <- vegdist(wisconsin(varespec))
vare.mds <- isoMDS(vare.dist)
vare.points <- postMDS(vare.mds$points, vare.dist)
vare.fit <- vectorfit(vare.points, varechem)
## Scale vectors by correlation coefficient
vare.wfit <- vare.fit[,1:2]*sqrt(vare.fit[,"r"])
eqscplot(vare.points, pch="+", tol=0.1)
arrows(0,0, vare.wfit[,1], vare.wfit[,2], len=0.1, col="blue")
text(1.05*vare.wfit, rownames(vare.wfit))
Run the code above in your browser using DataLab