diff --git a/data-raw/US/Annuities/USA_Annuities.xlsx b/data-raw/US/Annuities/USA_Annuities.xlsx index 2d1f5149db75fadde31688855dcee98e05a484bb..60fc637df0aca6aa6ea8c92ad0736304385d531a 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 3774c74cd9c3db70e07af523da30541e48f42b85..21e0caebcfa7ce8ce916418cb1a1204e1989e83d 100644 --- a/data-raw/US/create_MortalityTables_US_Annuities.R +++ b/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# diff --git a/data/USA1951GAM.RData b/data/USA1951GAM.RData new file mode 100644 index 0000000000000000000000000000000000000000..d44c373f3e3d9911eb6503c966edd2f52b389ee0 Binary files /dev/null and b/data/USA1951GAM.RData differ diff --git a/vignettes/international-mortality-tables-overview.Rmd b/vignettes/international-mortality-tables-overview.Rmd index 8e988f30d768a5d02f9b3510710ac5202afba1c8..02bf11c21227be172d74021ab332b51826334228 100644 --- a/vignettes/international-mortality-tables-overview.Rmd +++ b/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,