R/Cumulate.R

Defines functions Cumulate

Documented in Cumulate

#' Cumulates a triangle
#'
#' \code{Cumulate} Cumulates a triangle
#'
#' @param triangle Non cumulated triangle as a matrix
#' @return The cumulated triangle as a matrix
#'
#' @examples  decTriangle <- Decumulate(triangleExampleEngland)
#' @examples  cumTriangle <- Cumulate(triangleExampleEngland)
#'
#' @export
Cumulate <- function(triangle){

  # Validity of triangle
  if(!(is.matrix(triangle) & is.numeric(triangle))){stop("triangle is not a numeric matrix")}

  # Cumulated triangle
  cumTriangle <- triangle
  cumTriangle <- t(apply(cumTriangle, 1, cumsum))

  # Return triangle
  return(cumTriangle)
}
ArnaudBu/ReservingLad documentation built on Sept. 21, 2021, 1:19 p.m.