## 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)
# ## End(Not run)
Run the code above in your browser using DataLab