0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.4.1
/
library
/
stats
/
tests
/
[
Home
]
File: cmdscale.R
## 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