# NOT RUN {
data(marty)
## PCA on sample
## example dataset
example.subset <- marty[1:100,1:100]
pca <- runPCA(t(example.subset), verbose = FALSE, plotSample = FALSE,
plotInertia = FALSE)
## Biplot of PCA object
plotBiplot(pca)
# }
Run the code above in your browser using DataLab