# NOT RUN {
## generate data
X <- aux.gensamples(n=333)
## 1. connecting 5% of data for graph construction.
output1 <- do.npe(X,ndim=2,type=c("proportion",0.05))
## 2. constructing 25%-connected graph with regularization parameter
output2 <- do.npe(X,ndim=2,type=c("proportion",0.2),symmetric='intersect',regparam=1.0)
## 3. constructing half-connected graph with reg parameter = 10.0.
output3 <- do.npe(X,ndim=2,type=c("proportion",0.5),regparam=10.0)
## Visualize three different projections
par(mfrow=c(1,3))
plot(output1$Y[,1],output1$Y[,2],main="5%")
plot(output2$Y[,1],output2$Y[,2],main="25%")
plot(output3$Y[,1],output3$Y[,2],main="50%")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab