# NOT RUN {
## generate default dataset
## in order to pass CRAN pretest, n is set to be small.
X <- aux.gensamples(n=99)
## compare two initialization
out1 = do.sammon(X,ndim=2) # random projection
out2 = do.sammon(X,ndim=2,initialize="pca") # pca as initialization
par(mfrow=c(1,2))
plot(out1$Y[,1],out1$Y[,2],main="out1:rndproj")
plot(out2$Y[,1],out2$Y[,2],main="out2:pca")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab