# 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
\dontrun{
plotVariable(pca)
}
}
# }
Run the code above in your browser using DataLab