#' 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))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.