#' @title GetTriangleData
#' @export GetTriangleData
#' @include Triangle.R
#'
#' @description
#' This function will return data values from a triangle.
#'
#' @param Triangle A Triangle object
#' @param OriginPeriodStart A vector of origin years. This parameter may be null.
#' @param DevInteger A vector of development integers. This parameter may be null.
#' @param EvaluationDate A vector of evaluation dates. This parameter may be null.
#' @param Measure A character vector with the names of measures to return.
#'
#' @return A data frame
#'
#' @importFrom lubridate tz
#' @importFrom lubridate tz<-
#'
GetTriangleData = function(Triangle, OriginPeriodStart = NULL, DevInteger = NULL, EvaluationDate = NULL, Measure){
df = Triangle@TriangleData
if (!is.null(OriginPeriodStart)){
tz(OriginPeriodStart) = tz(df$OriginPeriodStart)
df = df[df$OriginPeriodStart %in% OriginPeriodStart, ]
}
if (!is.null(DevInteger)){
df = df[df$DevInteger %in% DevInteger, ]
}
if (!is.null(EvaluationDate)){
tz(EvaluationDate) = tz(df$EvaluationDate)
df = df[df$EvaluationDate %in% EvaluationDate, ]
}
df = df[, colnames(df) %in% Measure]
row.names(df) = NULL
df
}
mojo = TestDataFrame()
myTriangle = newTriangle(TriangleData = mojo
, OriginPeriods = AccidentYear
, DevelopmentLags = Month
, Cumulative = TRUE
, StochasticMeasures = c("Paid")
, StaticMeasures = c("EP")
, Verbose = FALSE)
cazart = GetTriangleData(myTriangle, OriginPeriodStart = mdy("1-1-2002"), Measure = c("IncrementalPaid", "PriorPaid"))
cazart
cazart = GetTriangleData(myTriangle, OriginPeriodStart = mdy("1-1-2002"), DevInteger = 2, Measure = c("IncrementalPaid", "PriorPaid"))
cazart
cazart = GetTriangleData(myTriangle, DevInteger = 2, Measure = c("IncrementalPaid", "PriorPaid"))
cazart
cazart = GetTriangleData(myTriangle, EvaluationDate = ymd("2004-12-31"), Measure = c("IncrementalPaid", "PriorPaid"))
cazart
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.