Add USA 1951 GAM annuity table as data set

data-raw/US/create_MortalityTables_US_Annuities.R

@@ -75,6 +75,46 @@ save(USAa1949,
 
 
 
+##############################################################################h#
+### 1951 GAM Group Annuity Table                                            ####
+##############################################################################h#
+
+USA1951GAM.data = read_excel(
+  US.annuities.file, sheet = "1951 GAM",
+  col_names = c("age","qx", "qy"),
+  skip = 6)
+
+USA1951GAM = array(
+  data = c(
+    mortalityTable.period(
+      name = "USA 1951 GAM male",
+      ages = USA1951GAM.data$age,
+      baseYear = 1951,
+      deathProbs = USA1951GAM.data$qx,
+      data = list(
+        dim = list(table = "1951 GAM", sex = "m", collar = "Mortality", type = "Rententafel", data = "unloaded", year = 1951, country = "USA")
+      )
+    ),
+    mortalityTable.period(
+      name = "USA 1951 GAM female",
+      ages = USA1951GAM.data$age,
+      baseYear = 1951,
+      deathProbs = USA1951GAM.data$qy,
+      data = list(
+        dim = list(table = "1951 GAM", sex = "f", collar = "Mortality", type = "Rententafel", data = "unloaded", year = 1951, country = "USA")
+      )
+    )
+  ),
+  dim = c(2),
+  dimnames = list(Sex = c("m", "f"))
+)
+
+save(USA1951GAM,
+     file = here::here("data", "USA1951GAM.RData")
+)
+
+
+
 ##############################################################################h#
 ### 1971 IAM individual annuity table; with optional projection scale B_x   ####
 ##############################################################################h#

vignettes/international-mortality-tables-overview.Rmd

@@ -1521,7 +1521,8 @@ plotMortalityTables(
   * Source: Frank D. Kineke, “A New Annuity Mortality Table”, Transactions Society of Actuaries XXXIX , Society of Actuaries, (1938) p. 18-19
 * a-1949 Annuity Table
   * Source: William A. Jenkins and Edward A. Lew, “A New Mortality Basis for Annuities”; https://www.soa.org/essays-monographs/50th-anniversary/m-av99-1-01.pdf
-* 1951 Ga 
+* 1951 GAM
+  * Source: Ray M. Peterson, “Group Annuity Mortality”, Transactions of the Society of Actuaries, Vol. IV (1952). https://www.soa.org/Library/Research/Transactions-Of-Society-Of-Actuaries/1949-59/1952/January/tsa52v4n918.pdf
 * 1971 IAM (Individual Annuity Mortality), 1971 GAM (Group Annuity Mortality)
   * Source: Transations of Socienty of Actuaries 1971, Vol. 23 Pt.1 NO.67, https://www.soa.org/library/research/transactions-of-society-of-actuaries/1971/january/tsa71v23pt1n6723.pdf, https://www.soa.org/globalassets/assets/library/research/transactions-of-society-of-actuaries/1971/january/tsa71v23pt1n6724.pdf
   
@@ -1547,6 +1548,7 @@ Usage in R:
 plotMortalityTables(
   USA1937Annuity,
   USAa1949,
+  USA1951GAM,
   USA1971IAM,
   USA1983a,
   USA1983GAM,