data(little.ana.bc)
fit.pheno <- bqtl(bc.phenotype~locus(15)+locus(42),little.ana.bc)
summary(residuals(fit.pheno))
plot( fitted( fit.pheno ), residuals( fit.pheno) )
<testonly>rm(little.ana.bc,fit.pheno)</testonly>
Run the code above in your browser using DataLab