diff --git a/data-raw/US/Annuities/USA_Annuities.xlsx b/data-raw/US/Annuities/USA_Annuities.xlsx index e48332be8fcd8a01f559600e6594f110d38b8cb6..c8c7c3d888baa1e253b028d3b0dd37f6e7c73edf 100644 Binary files a/data-raw/US/Annuities/USA_Annuities.xlsx and b/data-raw/US/Annuities/USA_Annuities.xlsx differ diff --git a/data-raw/US/create_MortalityTables_US_Annuities.R b/data-raw/US/create_MortalityTables_US_Annuities.R index 293eac13b95ebf8e24026e49675cd410d2cf9950..1babaad7081d71ab96fdbed74f8d9ce079357f7a 100644 --- a/data-raw/US/create_MortalityTables_US_Annuities.R +++ b/data-raw/US/create_MortalityTables_US_Annuities.R @@ -319,6 +319,46 @@ save(USA1971GAM, +##############################################################################h# +### 1973 (Individual) Annuity Experience Table #### +##############################################################################h# + +USA1973AnnuityExperience.data = read_excel( + US.annuities.file, sheet = "1973 Experience", + col_names = c("age","qx", "qy"), + skip = 6) + +USA1973AnnuityExperience = array( + data = c( + mortalityTable.period( + name = "USA 1973 Annuity Experience male", + ages = USA1973AnnuityExperience.data$age, + baseYear = 1973, + deathProbs = USA1973AnnuityExperience.data$qx, + data = list( + dim = list(table = "1973 Annuity Experience", sex = "m", collar = "Mortality", type = "Rententafel", data = "unloaded", year = 1973, country = "USA") + ) + ), + mortalityTable.period( + name = "USA 1973 Annuity Experience female", + ages = USA1973AnnuityExperience.data$age, + baseYear = 1973, + deathProbs = USA1973AnnuityExperience.data$qy, + data = list( + dim = list(table = "1973 Annuity Experience", sex = "f", collar = "Mortality", type = "Rententafel", data = "unloaded", year = 1973, country = "USA") + ) + ) + ), + dim = c(2), + dimnames = list(Sex = c("m", "f")) +) + +save(USA1973AnnuityExperience, + file = here::here("data", "USA1973AnnuityExperience.RData") +) + + + ##############################################################################h# ### 1983 Table "a" (individual) and GAM (group annuities), period tables #### ##############################################################################h# diff --git a/data/USA1973AnnuityExperience.RData b/data/USA1973AnnuityExperience.RData new file mode 100644 index 0000000000000000000000000000000000000000..9c620a234da83abc2caa5bd351e640ef43a6181c Binary files /dev/null and b/data/USA1973AnnuityExperience.RData differ