R/update_burst_mean.R

In sams25/rcombinator_old: Tools to Simulate the Evolution of Genetic Sequences

#' Updates the mean for the Poisson distribution after a burst event
#' @param burst_mean The original mean for the burst event
#' @param num_sequences The original number of sequences
#' @param new_num_sequences The number of sequences after the burst
#' @return An updated burst mean
#' @export
update_burst_mean <- function(burst_mean, num_sequences, new_num_sequences)
{
  return(burst_mean * (num_sequences/new_num_sequences))
}