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

cat("example calculate time") 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

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.