iron <- read_cross2(system.file("extdata", "iron.zip", package="qtl2"))
iron <- iron[,"9"] # only chr 9
map <- insert_pseudomarkers(iron$gmap, step=1)
probs <- calc_genoprob(iron, map, error_prob=0.002)
pr <- pull_genoprobpos(probs, map, chr="9", pos=56.6)
out_fit1 <- fit1(pr, iron$pheno[,"spleen"], se=TRUE, zerosum=FALSE)
plot_ci(out_fit1$coef[1:3], out_fit1$SE[1:3],
xlab="Genotype chr 9 @ 56.6 cM", ylab="Spleen phenotype")
Run the code above in your browser using DataLab