{
data(NCI60Selec)
Z1<-DiStatis(NCI60Selec)
M1<-SelectVar(Z1,Crit="R2-Adj")
A1<-GroupProj(M1,method="ward",metric="euclidean",NGroups=6)
data(winesassesors)
Z2<-DiStatis(winesassesors)
M2<-SelectVar(Z2,Crit="R2-Adj")
A2<-GroupProj(M2,method="ward",metric="euclidean",NGroups=6)
}Run the code above in your browser using DataLab