est.map(cross, chr, error.prob=0.0001,
map.function=c("haldane","kosambi","c-f","morgan"),
m=0, p=0, maxit=10000, tol=1e-6, sex.sp=TRUE,
verbose=FALSE, omit.noninformative=TRUE, offset, n.cluster=1)cross. See
read.cross for details.-
to have all csnow is available
calculations for multiple chromosomes are run in parallel using this
number of nodes.map object; a list whose components (corresponding to
chromosomes) are either vectors of marker positions (in cM) or
matrices with two rows of sex-specific marker positions.
The maximized log likelihood for each chromosome is saved as an
attribute named loglik. In the case that estimation was under
an interference model (with m > 0), allowed only for a backcross, m
and p are also included as attributes.For a backcross or intercross, inter-marker distances may be estimated using the Stahl model for crossover interference, of which the chi-square model is a special case.
In the chi-square model, points are tossed down onto the four-strand bundle according to a Poisson process, and every $(m+1)$st point is a chiasma. With the assumption of no chromatid interference, crossover locations on a random meiotic product are obtained by thinning the chiasma process. The parameter $m$ (a non-negative integer) governs the strength of crossover interference, with $m=0$ corresponding to no interference.
In the Stahl model, chiasmata on the four-strand bundle are a superposition of chiasmata from two mechanisms, one following a chi-square model and one exhibiting no interference. An additional parameter, $p$, gives the proportion of chiasmata from the no interference mechanism.
Lange, K. (1999) Numerical analysis for statisticians. Springer-Verlag. Sec 23.3.
Rabiner, L. R. (1989) A tutorial on hidden Markov models and selected applications in speech recognition. Proceedings of the IEEE 77, 257--286.
Zhao, H., Speed, T. P. and McPeek, M. S. (1995) Statistical analysis of crossover interference using the chi-square model. Genetics 139, 1045--1056.
plot.map, replace.map,
est.rf, fitstahldata(fake.f2)
fake.f2 <- subset(fake.f2,chr=18:19)
newmap <- est.map(fake.f2)
logliks <- sapply(newmap, attr, "loglik")
plot.map(fake.f2, newmap)
fake.f2 <- replace.map(fake.f2, newmap)Run the code above in your browser using DataLab