# 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