HEX
Server: Apache/2.4.46 (Win64) OpenSSL/1.1.1j PHP/8.4.25
System: Windows NT DESKTOP-4TAV2RJ 10.0 build 19045 (Windows 10) AMD64
User: fred (0)
PHP: 8.4.25
Disabled: NONE
$ pwd: C:/Program Files/R/R-4.4.0/library/stats/tests/
Upload Files
File: C:/Program Files/R/R-4.4.0/library/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
@ Telegram