# NOT RUN {
data(marty)
## PCA on sample - example set
example.subset <- marty[1:100,]
pca <- runPCA(t(example.subset), verbose = FALSE, plotInertia = FALSE, plotSample = FALSE)
## Sample plot of PCA object colored by tumour type
perso.colors <- colorRampPalette(c("red", "green"))
# }
# NOT RUN {
plotSample(pca, lab = marty.type.cl, palette="perso.colors", ellipse=TRUE)
# }
Run the code above in your browser using DataLab