# NOT RUN {
## Generate data
X = aux.gensamples()
## 5 types of preprocessing
X_center = aux.preprocess(X)
X_scale = aux.preprocess(X,type="scale")
X_cscale = aux.preprocess(X,type="cscale")
X_decorr = aux.preprocess(X,type="decorrelate")
X_whiten = aux.preprocess(X,type="whiten")
## Check with Covariance matrix
par(mfrow=c(2,3))
image(cov(X)[,3:1], zlim=c(-5,5)); title("original covariance")
image(cov(X_center$pX)[,3:1],zlim=c(-5,5)); title("opt::center")
image(cov(X_scale$pX)[,3:1], zlim=c(-5,5)); title("opt::scale")
image(cov(X_cscale$pX)[,3:1],zlim=c(-5,5)); title("opt::cscale")
image(cov(X_decorr$pX)[,3:1],zlim=c(-5,5)); title("opt::decorrelate")
image(cov(X_whiten$pX)[,3:1],zlim=c(-5,5)); title("opt::whiten")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab