Added USA 1973 annuity experience table as data set

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#