# NOT RUN {
## generate data
X <- aux.gensamples(dname="cswiss",n=500)
## 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
par(mfrow=c(1,3))
plot(output1$Y[,1],output1$Y[,2],main="Isomap")
plot(output2$Y[,1],output2$Y[,2],main="C-Isomap")
plot(output3$Y[,1],output3$Y[,2],main="Binarized C-Isomap")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab