## Not run:
# data(marty)
#
# ## PCA on sample on 100 genes
# ## In practice see genes.selection
# ##mvgenes<-genes.selection(marty, thres.num=100)
#
# pca <- runPCA(t(marty[1:100,]), verbose = FALSE, plotSample = FALSE,
# plotInertia = FALSE)
# \dontrun{
# ## Variable plot of PCA object
# plotVariable(pca)
# }
# ## End(Not run)
Run the code above in your browser using DataLab