diff --git a/data-raw/US/Annuities/USA_Annuities.xlsx b/data-raw/US/Annuities/USA_Annuities.xlsx index 3959a56521269df0aabd2ec9dd9a3896934561a9..92f4045d7c4b63af8bca0a251e204a62140783b3 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 981530aa14f8a6f0da710565d4e8c2ba296d9c86..b23f8aae4d6cbb1832ecb8078d922aa3942549f5 100644 --- a/data-raw/US/create_MortalityTables_US_Annuities.R +++ b/data-raw/US/create_MortalityTables_US_Annuities.R @@ -606,59 +606,52 @@ save(USA1996IAM, USAAnnuity2000.data = read_excel( US.annuities.file, sheet = "Annuity 2000", col_names = c("age","qxBasic", "qyBasic", "qx", "qy"), - skip = 5) - -USAAnnuity2000.basic.male = mortalityTable.period( - name = "USA Annuity 2000 basic, male", - ages = USAAnnuity2000.data$age, - deathProbs = USAAnnuity2000.data$qxBasic, - data = list( - dim = list(table = "Annuity 2000 basic", sex = "m", collar = "Basic", type = "Rententafel", data = "unloaded", year = 2000) - ) -) - -USAAnnuity2000.basic.female = mortalityTable.period( - name = "USA Annuity 2000 basic, female", - ages = USAAnnuity2000.data$age, - deathProbs = USAAnnuity2000.data$qyBasic, - data = list( - dim = list(table = "Annuity 2000 basic", sex = "f", collar = "Basic", type = "Rententafel", data = "unloaded", year = 2000) - ) -) - + skip = 6) -USAAnnuity2000.male = mortalityTable.period( - name = "USA Annuity 2000 mortality, male", - ages = USAAnnuity2000.data$age, - deathProbs = USAAnnuity2000.data$qx, - data = list( - dim = list(table = "Annuity 2000", sex = "m", collar = "Mortality", type = "Rententafel", data = "loaded", year = 2000) - ) -) +USAAnnuity2000 = array( + data = c( + mortalityTable.period( + name = "USA Annuity 2000 basic, male", + ages = USAAnnuity2000.data$age, + deathProbs = USAAnnuity2000.data$qxBasic, + data = list( + dim = list(table = "Annuity 2000 Basic", sex = "m", collar = "Mortality", type = "Rententafel", data = "unloaded", year = 2000, country = "USA") + ) + ), -USAAnnuity2000.female = mortalityTable.period( - name = "USA Annuity 2000 mortality, female", - ages = USAAnnuity2000.data$age, - deathProbs = USAAnnuity2000.data$qy, - data = list( - dim = list(table = "Annuity 2000", sex = "f", collar = "Mortality", type = "Rententafel", data = "loaded", year = 2000) - ) -) + mortalityTable.period( + name = "USA Annuity 2000 basic, female", + ages = USAAnnuity2000.data$age, + deathProbs = USAAnnuity2000.data$qyBasic, + data = list( + dim = list(table = "Annuity 2000 basic", sex = "f", collar = "Mortality", type = "Rententafel", data = "unloaded", year = 2000, country = "USA") + ) + ), + mortalityTable.period( + name = "USA Annuity 2000 mortality, male", + ages = USAAnnuity2000.data$age, + deathProbs = USAAnnuity2000.data$qx, + data = list( + dim = list(table = "Annuity 2000", sex = "m", collar = "Mortality", type = "Rententafel", data = "loaded", year = 2000, country = "USA") + ) + ), -USAAnnuity2000 = array( - data = c( - USAAnnuity2000.basic.male, USAAnnuity2000.basic.female, - USAAnnuity2000.male, USAAnnuity2000.female + mortalityTable.period( + name = "USA Annuity 2000 mortality, female", + ages = USAAnnuity2000.data$age, + deathProbs = USAAnnuity2000.data$qy, + data = list( + dim = list(table = "Annuity 2000", sex = "f", collar = "Mortality", type = "Rententafel", data = "loaded", year = 2000, country = "USA") + ) + ) ), dim = c(2, 2), - dimnames = list(Sex = c("m", "f"), typ = c("loaded", "basic")) + dimnames = list(Sex = c("m", "f"), type = c("basic", "loaded")) ) save(USAAnnuity2000, - USAAnnuity2000.basic.male, USAAnnuity2000.basic.female, - USAAnnuity2000.male, USAAnnuity2000.female, - file = here::here("data", "USAAnnuity2000.RData") + file = here::here("data", "USAAnnuity2000.RData") ) diff --git a/data/USAAnnuity2000.RData b/data/USAAnnuity2000.RData index 3a72260ae83a9977227dbcb63166d8f86483e06e..0bb4749b7e5678c64ddd3c60e9ef06b3e8bada3b 100644 Binary files a/data/USAAnnuity2000.RData and b/data/USAAnnuity2000.RData differ diff --git a/vignettes/international-mortality-tables-overview.Rmd b/vignettes/international-mortality-tables-overview.Rmd index 8224a6881b2c4f916633c1d5a5b9a23200d63c4d..e748dfca325ccbad584deceda83b37a2a2e50fc4 100644 --- a/vignettes/international-mortality-tables-overview.Rmd +++ b/vignettes/international-mortality-tables-overview.Rmd @@ -1546,14 +1546,12 @@ plotMortalityTables( Group Annuity Valuation Table Task Force, "1994 Group Annuity Mortality Table and 1994 Group Annuity Reserving Table", Transactions of the Society of Actuaries, Vol.47, 1995, pp.865-872. https://www.soa.org/globalassets/assets/library/research/transactions-of-society-of-actuaries/1990-95/1995/january/tsa95v4722.pdf * 1996 IAM (Individual Annuity Mortality) * Source: Robert J. Johansen, “Review of Adequacy of 1983 Individual annuity Mortality Table”, Transactions of the Society of Actuaries Vol. XLVII (1995), http://www.soa.org/Library/Research/Transactions-Of-Society-Of-Actuaries/1990-95/1995/January/tsa95v479.pdf +* Annuity 2000 Mortality Table + * Source: Robert J. Johansen, “Review of Adequacy of 1983 Individual annuity Mortality Table”, Transactions of the Society of Actuaries Vol. XLVII (1995), http://www.soa.org/Library/Research/Transactions-Of-Society-Of-Actuaries/1990-95/1995/January/tsa95v479.pdf -* Annuity 2000 Mortality Table - * Source: Society of -Actuaries Committee on Life Insurance Research and shown on page 240 of Volume XLVII of the -Transactions of the Society of Actuaries (1995) * 2012 IAR (Individual Annuity Reserving) Valuation Table (2012 IAR = 2012 IAM Period Table + Scale G2 * 2012 IAM Basic table with selection factors $F_x$ (when little or no experience is available on a business segment (VM-21 Section 11 B.3) @@ -1577,8 +1575,8 @@ plotMortalityTables( USA1994GAM, USA1994GAR, USA1996IAM, - USAAnnuity2000, + aes = aes(color = table), legend.position = "bottom", legend.key.width = unit(2, "lines"),