library(ctl)
data(ath.metabolites) # Arabidopsis Thaliana data set
ctlscan <- CTLscan(ath.metab$genotypes, ath.metab$phenotypes, phenocol=1:4)
ctlscan
# Genetic regions with significant CTLs found for the first phenotype
CTLregions(ctlscan, ath.metab$map, phenocol = 1)
summary <- CTLsignificant(ctlscan) # Matrix of Trait, Marker, Trait interactions
summary # Get a list of significant CTLs
nodes <- ctl.lineplot(ctlscan, ath.metab$map) # Line plot the phenotypes
nodes
Run the code above in your browser using DataLab