data-raw/CAS_reserves.R

In PirateGrunt/raw_package: R Actuarial Workshops

# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at https://mozilla.org/MPL/2.0/.

FetchDataSet <- function(stub){
  URL.stem = "http://www.casact.org/research/reserve_data/"
  URL <- paste0(URL.stem, stub, "_pos.csv")
  df <- readr::read_csv(URL, col_types = "iciiiddddddid")
}

SaveDataSet <- function(df, name){
  assign(name, df)
  filename <- paste0("./data/", name, ".rda")
  save(list=name, file = filename, compress = "xz")
}

datasets <- c("ppauto", "wkcomp", "comauto", "medmal"
              , "prodliab", "othliab")

NewColnames <- c("GroupCode"
                , "Company"
                , "AccidentYear"
                , "DevelopmentYear"
                , "Lag"
                , "CumulativeIncurred"
                , "CumulativePaid"
                , "IBNR"
                , "DirectEP"
                , "CededEP"
                , "NetEP"
                , "Single"
                , "Reserve1997")

library(dplyr)

lstSets <- lapply(datasets, FetchDataSet)
lstSets <- lapply(lstSets, function(x){
  names(x) <- NewColnames
  x
})
names(lstSets) <- datasets
mapply(lstSets, names(lstSets), FUN = SaveDataSet)