# NOT RUN {
data(fake.bc)
# }
# NOT RUN {
fake.bc <- calc.genoprob(fake.bc, step=2.5)
# covariates
ac <- pull.pheno(fake.bc, c("sex","age"))
ic <- pull.pheno(fake.bc, "sex")
# scan with additive but not the interactive covariate
out.acovar <- scanone(fake.bc, addcovar=ac)
# scan with interactive covariate
out.icovar <- scanone(fake.bc, addcovar=ac, intcovar=ic)
# plot the difference of with and without the interactive covariate
# This is a LOD score for a test of QTL x covariate interaction
plot(out.icovar-out.acovar)
# }
Run the code above in your browser using DataLab