Implement USA 1899 McClintock's Annuitants Table as data set

data-raw/US/create_MortalityTables_US_Annuities.R

@@ -11,6 +11,46 @@ US.annuities.file = here::here("data-raw", "US", "Annuities", "USA_Annuities.xls
 
 
 
+##############################################################################h#
+### 1899 McClintock's Annuitants Table                                      ####
+##############################################################################h#
+
+USAMcClintock1899.data = read_excel(
+  US.annuities.file, sheet = "McClintock 1899",
+  col_names = c("age","qx", "qy"),
+  skip = 6)
+
+USAMcClintock1899 = array(
+  data = c(
+    mortalityTable.period(
+      name = "USA 1899 McClintock's Annuitants Table, male",
+      ages = USAMcClintock1899.data$age,
+      baseYear = 1899,
+      deathProbs = USAMcClintock1899.data$qx,
+      data = list(
+        dim = list(table = "McClintock Annuitants Table", sex = "m", collar = "Mortality", type = "Rententafel", data = "unloaded", year = 1899, country = "USA")
+      )
+    ),
+    mortalityTable.period(
+      name = "USA 1899 McClintock's Annuitants Table, female",
+      ages = USAMcClintock1899.data$age,
+      baseYear = 1899,
+      deathProbs = USAMcClintock1899.data$qy,
+      data = list(
+        dim = list(table = "McClintock Annuitants Table", sex = "f", collar = "Mortality", type = "Rententafel", data = "unloaded", year = 1899, country = "USA")
+      )
+    )
+  ),
+  dim = c(2),
+  dimnames = list(Sex = c("m", "f"))
+)
+
+save(USAMcClintock1899,
+     file = here::here("data", "USAMcClintock1899.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)
 
-* McClintock's Annuitants Table A
-  * Source: Dr. Emory M’Clintock, “Special Tables for the Estimation of Mortality among Annuitants”, Transaction of the Society of Actuaries Vol. VI (1899) p. 20. Accessed: 01/2013 from http://www.archive.org/stream/transactions06actuuoft/transactions06actuuoft_djvu.txt
 * 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
@@ -1522,6 +1520,8 @@ 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
 * 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
@@ -1562,6 +1562,7 @@ Group Annuity Valuation Table Task Force, "1994 Group Annuity Mortality Table an
 Usage in R:
 ```{r AnnuitiesUS}
 plotMortalityTables(
+  USAMcClintock1899,
   USA1937Annuity,
   USA1943AnnuityExperience,
   USAa1949,