diff --git a/data-raw/US/Annuities/USA_Annuities.xlsx b/data-raw/US/Annuities/USA_Annuities.xlsx index dcdeb479d1c61d9bf7534ff8ce70d4080ece583b..d0467749dab15903707b68634ae42d04adc1ac23 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 f5ffaef5bdedcc59e0440a2020c8702e23627a3c..88277ae8e446d4b1479fa2ccc324f8fde797d13a 100644 --- a/data-raw/US/create_MortalityTables_US_Annuities.R +++ b/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# diff --git a/data/USAMcClintock1899.RData b/data/USAMcClintock1899.RData new file mode 100644 index 0000000000000000000000000000000000000000..f4f50c9c4c2a299c4e23c9f6753a90bc6d812b52 Binary files /dev/null and b/data/USAMcClintock1899.RData differ diff --git a/vignettes/international-mortality-tables-overview.Rmd b/vignettes/international-mortality-tables-overview.Rmd index 748a7f5b1db819cec0ad1ac9b2e2c4cdee5a6951..e0dae9617adde1945c729e11da215f486f15ec74 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) -* 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,