# load FRESA.CAD library
# library("FRESA.CAD")
# iris data set
data('iris')
colors <- c("red","green","blue")
names(colors) <- names(table(iris$Species))
classcolor <- colors[iris$Species]
#Decorrelating with usupervised basis and correlation goal set to 0.25
system.time(irisDecor <- GDSTMDecorrelation(iris,thr=0.25))
print(getDerivedCoefficients(irisDecor));
Run the code above in your browser using DataLab