View source: R/estimate_time.R
| estimate_time | R Documentation | 
Estimate the time since the onset of hybridization, following equation 14 in Janzen et al. 2018
estimate_time(J = NA, N = Inf, R = Inf, H_0 = 0.5, C = 1)
| J | The observed number of junctions | 
| N | Population Size | 
| R | Number of genetic markers | 
| H_0 | Frequency of heterozygosity at t = 0 | 
| C | Mean number of crossovers per meiosis (e.g. size in Morgan of the chromosome) | 
The number of generations passed since the onset of hybridization
J <- number_of_junctions(N = 100, R = 1000, H_0 = 0.5, C = 1, t = 200)
estimate_time(J = J, N = 100, R = 1000, H_0 = 0.5, C = 1)
# should be 200 again
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.