# 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)
## Inertia plot of PCA object
plotInertia(pca)
# }
Run the code above in your browser using DataLab