R/initial_claims_generator.R

In Atan1988/tidysimloss: What the Package Does (One Line, Title Case)

#' @title generate initial claims states
#' @name ini_claims_gen
#' @description generates initial claims
#' @param policy_df Polidy Data frame
#' @param policy_required_field_map maps the required fields, Policy Number, Policy Effective Date, Policy Expriation Date
#' @param severity_init_components_alist initial State components:
#' @param severity_params_components_alist parameter components:
#' @export
crt_tidysimloss  <- function(policy_df, policy_required_field_map,
                             frequency_alist, frequency_params_components_alist,
                             severity_init_components_alist,
                             severity_transit_components_alist, severity_params_components_alist) {
  claims_key <- c('PolicyNo', 'NumberOfClaims')

  policy_df_w_claims <- policy_df %>%
    ###evaluate number of claims
    expr_evaluation(expr_alist = frequency_alist,
                    params_alist = frequency_params_components_alist) %>%
    dplyr::select_at(dplyr::vars(policy_required_field_map[claims_key]))
  colnames(policy_df_w_claims) <- claims_key

  policy_df_w_claims <- policy_df_w_claims %>%
    dplyr::filter(NumberOfClaims > 0)

  claims_df <- policy_df_w_claims %>% dplyr::pull(NumberOfClaims) %>%
    purrr::map(~seq(1, ., 1)) %>%
    dplyr::mutate(policy_df_w_claims, ClaimNo = .) %>% tidyr::unnest(cols = c(ClaimNo)) %>%
    dplyr::mutate(ClaimNo = paste(PolicyNo, ClaimNo, sep = '_')) %>%
    dplyr::select(PolicyNo, ClaimNo) %>%
    dplyr::left_join(Policy_df, by = policy_required_field_map[1])

  ###simulate initial conditions
  claims_df_init <- claims_df %>%
    expr_evaluation(df = ., expr_alist = severity_init_components_alist) %>%
    dplyr::mutate(age = 0,
           status = 'open',
           total_indemn = ini_indemn_paid  + ini_indemn_reserve,
           total_expense = ini_expense_paid + ini_expense_reserve
    )

  ###
  claims_tranist <- function() {
   claims_df_init <<- claims_df_init %>%
      expr_evaluation(df = ., expr_alist = severity_transit_components_alist) %>%
      claims_trans()

   return(claims_df_init)
  }
  return(claims_tranist)
}