# NOT RUN {
## generate data
X <- aux.gensamples(n=333) + 50
## 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
opar <- par(no.readonly=TRUE)
par(mfrow=c(1,3))
plot(output1$Y, main="NPE::5% connected")
plot(output2$Y, main="NPE::25% connected")
plot(output3$Y, main="NPE::50% connected")
par(opar)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab