data(marty)
## PCA on sample - example set
example.subset <- marty[1:100,]
pca <- runPCA(t(example.subset), verbose = FALSE, plotInertia = FALSE, plotSample = FALSE)
## Inertia plot of PCA object
plotInertia(pca)Run the code above in your browser using DataLab