Nothing
#' Create triangle evaluation dates
#'
#' Triangle evaluation dates are established by adding development lags to the starting point of the origin periods.
#' @export CreateEvaluationDates
#'
#' @param OriginPeriod A vector of interval objects
#' @param DevelopmentLag A vector of period objects
#'
#' @return A vector of intervals
#'
#' @seealso \code{\link{CreateDevelopmentLags}}, \code{\link{CreateOriginPeriods}}
#'
#' @examples
#' \dontrun{
#' OriginStart = c(mdy("1/1/2000"), mdy("1/1/2000"), mdy("1/1/2001"))
#' OriginEnd = c(mdy("12/31/2000"), mdy("12/31/2000"), mdy("12/31/2001"))
#' OriginPeriod = CreateOriginPeriods(OriginStart, OriginEnd)
#' DevelopmentLag = c(months(12), months(24), months(12))
#'
#' EvaluationDates = CreateEvaluationDates(OriginPeriod, DevelopmentLag)
#' EvaluationDates
#' }
#'
#' @importFrom lubridate is.interval
#' @importFrom lubridate is.period
#' @importFrom lubridate days
#' @importFrom lubridate mdy
#' @importFrom lubridate int_start
#'
CreateEvaluationDates = function(OriginPeriod, DevelopmentLag)
{
if (!is.interval(OriginPeriod)) stop ("OriginPeriod is not a valid interval object.")
if (!is.period(DevelopmentLag)) stop ("DevelopmentLag is not a valid Period object.")
EvaluationDate = int_start(OriginPeriod) + DevelopmentLag - days(1)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.