packrat/lib-R/x86_64-w64-mingw32/3.6.1/stats/tests/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
jmcascalheira/LGMIberiaCluster documentation built on June 8, 2021, 10 a.m.