diff --git a/data-raw/US/Annuities/USA_Annuities.xlsx b/data-raw/US/Annuities/USA_Annuities.xlsx index d0467749dab15903707b68634ae42d04adc1ac23..54c44bcfa552bfb3631891585d5a2b4e4d95e381 100644 Binary files a/data-raw/US/Annuities/USA_Annuities.xlsx and b/data-raw/US/Annuities/USA_Annuities.xlsx differ diff --git a/data-raw/US/create_MortalityTables_US_Annuities.R b/data-raw/US/create_MortalityTables_US_Annuities.R index 88277ae8e446d4b1479fa2ccc324f8fde797d13a..43dacc1ed26b85a799d7665c4b43402c24883b37 100644 --- a/data-raw/US/create_MortalityTables_US_Annuities.R +++ b/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# diff --git a/data/USAAnnuitantsTable1920.RData b/data/USAAnnuitantsTable1920.RData new file mode 100644 index 0000000000000000000000000000000000000000..8790d5512dd469d4ecf7686babdb12ced142ab59 Binary files /dev/null and b/data/USAAnnuitantsTable1920.RData differ diff --git a/vignettes/international-mortality-tables-overview.Rmd b/vignettes/international-mortality-tables-overview.Rmd index e0dae9617adde1945c729e11da215f486f15ec74..0cf7400e8ebdf716f570b875c12642c7f64a2681 100644 --- a/vignettes/international-mortality-tables-overview.Rmd +++ b/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,