data(seed10);
# Defining QTLs for all traits
out.em <- scanone( seed10, pheno.col=1:50, model='normal', method='hk');
out.peak <- define.peak( out.em, 'all',graph=TRUE,save.pict=TRUE);
## Not run: out.array <- peak.2.array(out.peak);
# # Computing additive effect
# out.peak <- calc.adef(seed10,out.em,out.peak);
# # Localizing peak
# data(BSpgmap);
# out.peak <- localize.qtl(seed10,out.peak,BSpgmap);
# ## End(Not run)
out.array <- peak.2.array(out.peak);
Run the code above in your browser using DataLab