# NOT RUN {
## generate data
set.seed(100)
X <- aux.gensamples(dname="cswiss",n=100)
## 1. original Isomap
output1 <- do.isomap(X,ndim=2)
## 2. C-Isomap
output2 <- do.cisomap(X,ndim=2)
## 3. C-Isomap on a binarized graph
output3 <- do.cisomap(X,ndim=2,weight=FALSE)
## Visualize three different projections
opar <- par(no.readonly=TRUE)
par(mfrow=c(1,3))
plot(output1$Y, main="Isomap")
plot(output2$Y, main="C-Isomap")
plot(output3$Y, main="Binarized C-Isomap")
par(opar)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab