library(ctl)
data(ath.metabolites) # Arabidopsis Thaliana dataset
qtldata <- QTLmapping(ath.metab$genotypes, ath.metab$phenotypes, phenocol = 23)
plot(qtldata) # Plot the results of the QTL scan for the phenotype
Run the code above in your browser using DataLab