if (FALSE) {
## fit wgaim models
rktgw.qtl <- wgaim(rktgw.asf, intervalObj = genoRxK, merge.by = "Genotype",
trace = "trace.txt", na.action = na.method(x = "include"))
rkyld.qtl <- wgaim(rkyld.asf, intervalObj = genoRxK, merge.by = "Genotype",
trace = "trace.txt", na.action = na.method(x = "include"))
## create super table and export
qtlt <- qtlTable(rktgw.qtl, rkyld.qtl, labels = c("Conc.", "Shoot"))
print(xtable(qtlt), file = "superQTL.tex", include.rownames = FALSE)
}
Run the code above in your browser using DataLab