swiss.x <- as.matrix(swiss[, -1])
swiss.dist <- dist(swiss.x)
swiss.mds <- isoMDS(swiss.dist)
plot(swiss.mds$points, type = "n")
text(swiss.mds$points, labels = as.character(1:nrow(swiss.x)))
swiss.sh <- Shepard(swiss.dist, swiss.mds$points)
plot(swiss.sh, pch = ".")
lines(swiss.sh$x, swiss.sh$yf, type = "S")
这是详细内容 ,麻烦解释,主要是从第四行之后,每行用中文解释清楚。谢谢了。
这不答非所问吗?
其实没有背景语言,这个就是我从isoMDS函数的帮助页面中找到的一段程序。这是我原封不动地搬过来的。你用R语言示范下吧,急求!谢谢大神。
追答后面这几行,就是制图啊,添加文本标签,点和回归线。而isoMDS和Shepard是你用来建模的函数,这个就和语言无关了,我不熟悉这个函数背后的理论,swiss是测试用的数据集。