Added USA1937Annuity table as data set

data-raw/US/create_MortalityTables_US_Annuities.R

@@ -11,9 +11,33 @@ US.annuities.file = here::here("data-raw", "US", "Annuities", "USA_Annuities.xls
 
 
 
-###############################################################################
-### 1971 IAM individual annuity table; with optional projection scale B_x
-###############################################################################
+##############################################################################h#
+### 1937 Standard Annuity Table                                             ####
+##############################################################################h#
+
+USA1937Annuity.data = read_excel(
+  US.annuities.file, sheet = "1937 Standard",
+  col_names = c("age","qx"),
+  skip = 7)
+
+USA1937Annuity = mortalityTable.period(
+  name = "USA 1937 Standard Annuity Table, male",
+  ages = USA1937Annuity.data$age,
+  deathProbs = USA1937Annuity.data$qx,
+  data = list(
+    dim = list(table = "1937 Stnadard Annuity", sex = "m", collar = "Mortality", type = "Rententafel", data = "unloaded", year = 1937)
+  )
+)
+
+save(USA1937Annuity,
+     file = here::here("data", "USA1937Annuity.RData")
+)
+
+
+
+##############################################################################h#
+### 1971 IAM individual annuity table; with optional projection scale B_x   ####
+##############################################################################h#
 
 USA1971IAM.data = read_excel(
   US.annuities.file, sheet = "1971 IAM",