## Not run:
# #4 prostate cancer data which have three classes: normal, primary, metastasis
# data(prostate)
# metaPC <- MetaPCA(prostate, method="Angle", doPreprocess=FALSE)
# #Plotting 4 data in the same space with ellipses overlayed!
# coord <- foreach(dd=iter(metaPC$x), .combine=rbind) %do% dd$coord
# PlotPC2D(coord[,1:2], drawEllipse=T, dataset.name="Prostate", .class.order=c("Metastasis","Primary","Normal"),
# .class.color=c('red','#838383','blue'), .annotation=T, newPlot=T,
# .class2=rep(names(metaPC$x), times=sapply(metaPC$x,function(x)nrow(x$coord))),
# .class2.order=names(metaPC$x), .points.size=1)
#
# ## End(Not run)
Run the code above in your browser using DataLab