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"))
## plot QTL intervals
# matching rainbow QTL color and trait names, red flanking markers
# (default) and gray background markers.
linkMap(list(rktgw.qtl,rkyld.qtl), genoRxK, col = "gray")
# rainbow QTL color and black trait names, red flanking markers
# (default) and gray background markers.
linkMap(list(rktgw.qtl,rkyld.qtl), genoRxK, list.col = list(t.col =
"black", m.col = "red"), col = "gray")
# monochromatic plot: gray QTLs, black trait names, black flanking
# markers and gray background markers
linkMap(list(rktgw.qtl,rkyld.qtl), genoRxK, list.col = list(q.col =
rep(gray(0.8), 2), t.col = "black", mcol = "black"), col = "gray")
}
Run the code above in your browser using DataLab