R/calc_new_coverage_vectorized.R

In arranhamlet/popvac_package: Generate population level vaccination data from a csv template.

#' Vectorised version of calc.new.coverage
#'
#' @seealso \code{\link{calc.new.coverage}}
#' @param cov1 Old vaccination coverage.
#' @param cov2 New vaccination coverage.
#' 
#' @examples
#' calc.new.coverage(cov1,cov2,skew=0)
#' @keywords internal

calc.new.coverage.vectorized = function(cov1,cov2,skew=0) {
  if(length(dim(cov1))>0) {
    return(apply(cov1,1:length(dim(cov1)),calc.new.coverage,cov2=cov2,skew=skew))
  } else if(length(cov1)>0) {
    return(sapply(1:length(cov1), function(i) calc.new.coverage(cov1[i],cov2=cov2,skew=skew)))
  } else return(calc.new.coverage(cov1,cov2,skew))
}