data(lymphoma)
class=1+as.numeric(as.factor(unlist(lymphoma$class)))
cc=cmdscale(dist(lymphoma$data))
plot(cc,pch=21,bg=class,xlab="First Component",ylab="Second Component");
# WARNING: The next example is high computational extensive
#
# kk=KODAMA(lymphoma$data,FUN=PLS.SVM.CV)
# cc=cmdscale(kk$dissimilarity)
# plot(cc,pch=21,bg=class,xlab="First Component",ylab="Second Component");
Run the code above in your browser using DataLab