| ## regression tests on cmdscale from R 2.13.0 | |
| cmdsE <- cmdscale(eurodist, k = 20, eig = TRUE, x.ret = TRUE) | |
| utils::str(cmdsE) | |
| cmdsE2 <- cmdscale(eurodist, k = 20, add = TRUE, eig = TRUE, x.ret = TRUE) | |
| utils::str(cmdsE2) | |
| stopifnot(identical(rownames(cmdsE2$points), attr(eurodist, "Labels"))) | |
| ## the exact answers diff by platform, since eigenvalue calculations are | |
| ## involved |