Description Usage Author(s) References Examples
Classical Multidimensional Scaling
1 | cmds(x, ndim = 2)
|
Kisung You
torgerson_multidimensional_1952DAS
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | ## use simple example of iris dataset
data(iris)
dat = iris[,1:4]
dat.n = nrow(dat)
dat.p = ncol(dat)
dat = dat + matrix(rnorm(dat.n*dat.p, sd=0.1), ncol=dat.p)
dmat = as.matrix(stats::dist(dat)) # distance matrix
## run the algorithm
iris.cmds = cmds(dmat, ndim=2)
## extract coordinates and class information
cx = iris.cmds$embed # embedded coordinates of CMDS
icol = iris[,5] # class information
## visualize
opar = par(pty="s")
mc = paste("CMDS with STRESS=",round(iris.cmds$stress,4),sep="")
plot(cx, col=icol,pch=19,main=mc)
par(opar)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.