library(ctl)
data(multitrait) # Arabidopsis Thaliana (R/qtl cross object)
mtrait <- calc.genoprob(multitrait) # Calculate genotype probabilities
qtls <- scanone(mtrait, pheno.col = 1) # Scan for QTLS using R/qtl
ctls <- CTLscan.cross(mtrait, phenocol = 1, qtl = FALSE)
ctls[[1]]$qtl <- qtls[,3]
ctl.lineplot(ctls, qtls[,1:2], 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