R/prob_ext.R

In josteist/Compadre: Analysis of Macroevolutionary Rates of Speciation, Extinction and Sampling using Capture-Mark-Recapture techniques

#' A function to calculate the probability of extinction for a paraclade.
#' @param m mu - extinction rate
#' @param l lambda - speciation rate
#' @param dt duration of the interval/period
#' @export
#' 
#' 
prob_ext <- function(m,l,dt){(m * (exp((l-m)*dt) - 1) / (l * exp((l-m)*dt)-m))}