library(ctl)
data(ath.metabolites) # Arabidopsis Thaliana data set
slopes <- scanSlopes(ath.metab$genotypes, ath.metab$phenotypes[,1:4], phenocol = 2)
image(1:nrow(slopes), 1:ncol(slopes), -log10(slopes))
Run the code above in your browser using DataLab