## Metabolomics starvation data obtained from http://genomics-pubs.princeton.edu/StarvationMetabolomics/Download.shtml
data(StarvationData)
## Computes the eigensystem for the actual data
eigensystem <- compute(StarvationData)
## Generates all provided plots for the eigensystem
params <- new("EigensystemPlotParam")
if (.Platform$OS.type != "windows") plot(eigensystem, params)
## Generates all provided plots for the eigensystem, with use of contrast 2 for the heatmap
contrast(params) <- 2
if (.Platform$OS.type != "windows") plot(eigensystem, params)
## Generates the fraction and lines plot for the eigensystem
params <- new("EigensystemPlotParam")
plots(params) <- c("fraction","lines")
if (.Platform$OS.type != "windows") plot(eigensystem, params)
Run the code above in your browser using DataLab