R/normalise_distribution.R

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

#' Normalises a distribution from 0 to 1 given the relative frequencies
#' of each of the events

#' @param distribution A vector of relative frequencies
#' @return A vector with the probability distribution of each of the outcomes
#' @export

normalise_distribution <- function(distribution)
{
  return(distribution/sum(distribution))
}