{
data(NCI60Selec)
fit<-DiStatis(NCI60Selec,Scale=TRUE,Center=TRUE)
A<-SelectVar(fit,Crit="p-val(Bonf)",perc=0.95)
M3<-GroupProj(A,NGroups=4,method="ward",metric="euclidean")
summary(M3)
}Run the code above in your browser using DataLab