data(MetRef);
u=MetRef$data;
u=u[,-which(colSums(u)==0)]
u=scaling(u)$newXtrain
class=as.factor(unlist(MetRef$donor))
results=PCA.CA.KNN.CV(u,class,1:length(class))
levels(results)=levels(class)
table(results,class)
Run the code above in your browser using DataLab