# NOT RUN {
library(ctl)
data(multitrait) # Arabidopsis Thaliana (R/qtl cross object)
mtrait <- calc.genoprob(multitrait) # Calculate genotype probabilities
qtls <- scanone(mtrait, pheno.col = 1:4) # Scan for QTLS using R/qtl
map <- qtls[,1:2] # Get the genetic map
qtls <- qtls[,-(1:2)] # Get the LOD scores
ctls <- CTLscan.cross(mtrait, phenocol = 1:4, qtls = qtls)
ctl.lineplot(ctls, map, significance = 0.05) # Line plot all the phenotypes
summary <- CTLsignificant(ctls) # Get a list of significant CTLs
summary
# }
Run the code above in your browser using DataLab