Implement USA 1920 American Annuitants Table as data set

data-raw/US/create_MortalityTables_US_Annuities.R

@@ -51,6 +51,48 @@ save(USAMcClintock1899,
 
 
 
+##############################################################################h#
+### 1920 American Annuitants Table                                          ####
+##############################################################################h#
+
+USAAnnuitantsTable1920.data = read_excel(
+  US.annuities.file, sheet = "American Annuitants Table",
+  col_names = c("age","qx1","qx2","qx3","qx4","qx5","qx", "qy1","qy2","qy3","qy4","qy5","qy"),
+  skip = 6)
+
+USAAnnuitantsTable1920 = array(
+  data = c(
+    mortalityTable.period(
+      name = "USA 1920 American Annuitants Table, male",
+      ages = USAAnnuitantsTable1920.data$age,
+      baseYear = 1920,
+      deathProbs = unname(as.data.frame(USAAnnuitantsTable1920.data[,2:7])),
+      selectInitialAge = TRUE,
+      data = list(
+        dim = list(table = "1920 American Annuitants Table", sex = "m", collar = "Mortality", type = "Rententafel", data = "unloaded", year = 1920, country = "USA")
+      )
+    ),
+    mortalityTable.period(
+      name = "USA 1920 American Annuitants Table, female",
+      ages = USAAnnuitantsTable1920.data$age,
+      baseYear = 1920,
+      deathProbs = unname(as.data.frame(USAAnnuitantsTable1920.data[,8:13])),
+      selectInitialAge = TRUE,
+      data = list(
+        dim = list(table = "1920 American Annuitants Table", sex = "f", collar = "Mortality", type = "Rententafel", data = "unloaded", year = 1920, country = "USA")
+      )
+    )
+  ),
+  dim = c(2),
+  dimnames = list(Sex = c("m", "f"))
+)
+
+save(USAAnnuitantsTable1920,
+     file = here::here("data", "USAAnnuitantsTable1920.RData")
+)
+
+
+
 ##############################################################################h#
 ### 1937 Standard Annuity Table                                             ####
 ##############################################################################h#

vignettes/international-mortality-tables-overview.Rmd

@@ -1477,8 +1477,6 @@ Standard Industrial Mortality Tables
 * 1961 Commissioners Industial Extended Term Insurance Table (1961 CIET), Proc.NAIC, 1961 Vo. II. pp.541-543
 * 2017 Commissioners Standard Guaranteed Issue Mortality Tables (2017 CSGI)
 
-* American Annuitants Table
-  * Source: Dr. Arthur Hunter, “Mortality Among American Annuitants and Premiums Based Thereon”, Transactions Society of Actuaries, Vol. XXI, Society of Actuaries (1920), p. 166-167. https://archive.org/details/transactions21actuuoft/page/156/mode/2up
 * 1946-50 Intercompany group annuity experience
 * 1964-68 Intercompany group annuity experience
 * 1955 American Annuity
@@ -1521,7 +1519,9 @@ plotMortalityTables(
 ## Annuities (individual and group)
 
 * McClintock's Annuitants Table (1899)
-  * Source: Emory M’Clintock, "Special Tables for the Estimation of Mortality among Annuitants", Transaction of the Society of Actuaries Vol. VI (1899) p. 20. https://archive.org/details/transactions06actuuoft/page/12/mode/2up
+  * Source: Emory M’Clintock, "Special Tables for the Estimation of Mortality among Annuitants", Transaction of the Society of Actuaries Vol. VI (1899), p. 20. https://archive.org/details/transactions06actuuoft/page/12/mode/2up
+* American Annuitants Table (1920)
+  * Source: Arthur Hunter, "Mortality Among American Annuitants and Premiums Based Thereon", Transactions Society of Actuaries, Vol. XXI, Society of Actuaries (1920), p. 166-167. https://archive.org/details/transactions21actuuoft/page/156/mode/2up
 * 1937 Standard Annuity Table (male) `r USA1937Annuity`
   * Source: Frank D. Kineke, “A New Annuity Mortality Table”, Transactions Society of Actuaries XXXIX , Society of Actuaries, (1938) p. 18-19
 * 1943 Annuity Experience table
@@ -1563,6 +1563,7 @@ Usage in R:
 ```{r AnnuitiesUS}
 plotMortalityTables(
   USAMcClintock1899,
+  USAAnnuitantsTable1920,
   USA1937Annuity,
   USA1943AnnuityExperience,
   USAa1949,