# load FRESA.CAD library
# library("FRESA.CAD")
# iris data set
data('iris')
#Decorrelating with usupervised basis and correlation goal set to 0.25
system.time(irisDecor <- IDeA(iris,thr=0.25))
print(getLatentCoefficients(irisDecor));
Run the code above in your browser using DataLab