R/multi_q_diversity4.R

In EdieBishop/ProgInRBCIfunc: species_richness_1

#' Multiple Dq values
#'
#' This function will accept a population vector, and a vector for varying values of q, and return a
#' vector of multiple diversity (Dq) values corresponding to each value for q that was entered.
#'
#' @param population - a set of population counts, containing the number of individuals of each species within the population
#' @param q - a vector containing multiple diversity measures
#'
#' @return Dq.so.far - a vector of diversity values corresponding to the values of q that were entered in the argument q
#' @export
#'
#' @examples
multi_q_diversity4 <- function(population, q) {
  for(i in q) {
    Dq <- universal_diversity4(population = population,
                               q = i)
    if(exists("Dq.so.far") == FALSE) {
      Dq.so.far <- Dq
    } else {
    Dq.so.far <- c(Dq.so.far, Dq) }
  }
  return(Dq.so.far)
}