if (FALSE) {
# read in data
data(phenoRxK, package = "wgaim")
data(genoRxK, package = "wgaim")
# subset linkage map and convert to "interval" object
genoRxK <- subset(genoRxK, chr = c("1A", "2D1", "2D2", "3B"))
genoRxK <- cross2int(genoRxK, impute = "Martinez", id = "Genotype")
# base model
rkyld.asf <- asreml(yld ~ lrow, random = ~ Genotype + Range,
residual = ~ ar1(Range):ar1(Row), data = phenoRxK)
# find QTL
rkyld.qtl <- wgaim(rkyld.asf, intervalObj = genoRxK, merge.by = "Genotype",
trace = "trace.txt", na.action = na.method(x = "include"))
# summarise
print(rkyld.qtl, genoRxK)
summary(rkyld.qtl, genoRxK)
}
Run the code above in your browser using DataLab