scanoneboot(cross, chr, pheno.col=1, model=c("normal","binary","2part","np"), method=c("em","imp","hk","ehk","mr","mr-imp","mr-argmax"), addcovar=NULL, intcovar=NULL, weights=NULL, use=c("all.obs", "complete.obs"), upper=FALSE, ties.random=FALSE, start=NULL, maxit=4000, tol=1e-4, n.boot=1000, verbose=FALSE)cross. See
read.cross for details."mr"), or by first filling in missing data
using a single imputation ("mr-imp") or by the Viterbi
algorithm ("mr-argmax").model="normal".NULL, use the usual starting values; if
length 1, use random initial weights for EM; otherwise, this should
be a vector of length n+1 (where n is the number of possible
genotypes for the cross), giving the initial values for EM."em" and
"ehk"."em" and "ehk".n.boot, giving the estimated QTL locations
in the bootstrap replicates. The results for the original data are
included as an attribute, "results".
lodint or bayesint instead. The bulk of the arguments are the same as for the
scanone function. A single chromosome should be
indicated with the chr argument; otherwise, we focus on the
first chromosome in the input cross object.
A single-dimensional scan on the relevant chromosome is performed. We further perform a nonparametric bootstrap (sampling individuals with replacement from the available data, to create a new data set with the same size as the input cross; some individuals with be duplicated and some omitted). The same scan is performed with the resampled data; for each bootstrap replicate, we store only the location with maximum LOD score.
Use summary.scanoneboot to obtain the desired
confidence interval.
scanone, summary.scanoneboot,
plot.scanoneboot,
lodint, bayesint data(fake.f2)
fake.f2 <- calc.genoprob(fake.f2, step=1, err=0.001)
## Not run: bootoutput <- scanoneboot(fake.f2, chr=13, method="hk")
plot(bootoutput)
summary(bootoutput)
Run the code above in your browser using DataLab