# NOT RUN {
## generate swiss roll data
X = aux.gensamples(n=123)
## 1. no preprocessing
output1 <- do.ree(X,ndim=2,maxiter=50)
## 2. use decorrelated data
output2 <- do.ree(X,ndim=2,preprocess="decorrelate",maxiter=50)
## Visualize three different projections
par(mfrow=c(1,2))
plot(output1$Y[,1],output1$Y[,2],main="centered")
plot(output2$Y[,1],output2$Y[,2],main="decorrelated")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab