From 85ce4eecb6d4ea17fa87af7bc10fc5e5683171be Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Fri, 22 Apr 2016 00:22:46 +0200
Subject: [PATCH] Update the Austrian annuity tables to explicitly use the
openxlsx functions
---
R/ValuationTables_Austria_Annuities.R | 22 +++++++++++++---------
1 file changed, 13 insertions(+), 9 deletions(-)
diff --git a/R/ValuationTables_Austria_Annuities.R b/R/ValuationTables_Austria_Annuities.R
index 866224e..5ccfd27 100644
--- a/R/ValuationTables_Austria_Annuities.R
+++ b/R/ValuationTables_Austria_Annuities.R
@@ -4,7 +4,7 @@
# rm(frame_files)
# setwd(dirname(PATH))
-setwd("R")
+# setwd("R")
library("openxlsx")
@@ -13,8 +13,7 @@ library("openxlsx")
### RR67 Rententafel für Männer, 3%
###############################################################################
-rr67.data=read.xlsx(
- "Tables/AVOe_R.xlsx",
+rr67.data=openxlsx::read.xlsx("Tables/AVOe_R.xlsx",
sheet="OeVM59-61 RR67", startRow = 3, colNames = TRUE);
rr67=valuationTable.period(
@@ -27,7 +26,7 @@ rr67=valuationTable.period(
### EROM/EROF 85 and G 1985 (period and age-shifted generation)
###############################################################################
-eromf.data=read.xlsx("Tables/AVOe_R.xlsx", sheet="EROM-F Basistafeln", startRow = 3)
+eromf.data=openxlsx::read.xlsx("Tables/AVOe_R.xlsx", sheet="EROM-F Basistafeln", startRow = 3)
erom85.male=valuationTable.period(
name="EROM 85, male", ages=eromf.data$Alter, deathProbs=eromf.data$EROM.85
@@ -49,7 +48,7 @@ EROF.G1950.female=valuationTable.period(
baseYear=1950
);
-eromf.data.av=read.xlsx("Tables/AVOe_R.xlsx", sheet="EROM-F G AV", startRow = 3, rowNames = TRUE, colNames = TRUE)
+eromf.data.av=openxlsx::read.xlsx("Tables/AVOe_R.xlsx", sheet="EROM-F G AV", startRow = 3, rowNames = TRUE, colNames = TRUE)
EROM.G1950.male.av=valuationTable.ageShift(
name="EROM G 1950 mit Altersverschiebung, male",
@@ -71,7 +70,7 @@ EROF.G1950.female.av=valuationTable.ageShift(
# AVÖ 1996R exact (Male, Female), 1st-order only
###############################################################################
-AVOe1996R.exakt.data=read.xlsx("Tables/AVOe_R.xlsx",
+AVOe1996R.exakt.data=openxlsx::read.xlsx("Tables/AVOe_R.xlsx",
sheet="AVOe 1996R exakt", startRow = 3, cols=c(1:6, 8:12));
AVOe1996R.exakt.data
@@ -129,7 +128,7 @@ AVÖ1996R.female.group=valuationTable.trendProjection(
# gender-specific tables also have 2nd-order tables, unisex only 1st-order table
###############################################################################
-AVOe2005R.exakt.data=read.xlsx("Tables/AVOe_R.xlsx", sheet="AVOe 2005R", startRow = 3, cols=c(1:7, 9:14, 16:18));
+AVOe2005R.exakt.data=openxlsx::read.xlsx("Tables/AVOe_R.xlsx", sheet="AVOe 2005R", startRow = 3, cols=c(1:7, 9:14, 16:18));
AVOe2005R.trend.damping=function(t) {
100*atan(t/100)
@@ -169,8 +168,8 @@ AVOe2005R.unisex.nodamping.group = undampenTrend(AVOe2005R.unisex.group);
#AVÖ 2005R with age-shifting (Male, Female, unisex), 1st-order only
###############################################################################
-AVOe2005R.av.base = read.xlsx("Tables/AVOe_R.xlsx", sheet="AVOe 2005R AV Basistafel", startRow = 3, rowNames = FALSE);
-AVOe2005R.av.verschiebung = read.xlsx("Tables/AVOe_R.xlsx", sheet="AVOe 2005R AV Verschiebung", startRow = 3, rowNames = TRUE);
+AVOe2005R.av.base = openxlsx::read.xlsx("Tables/AVOe_R.xlsx", sheet="AVOe 2005R AV Basistafel", startRow = 3, rowNames = FALSE);
+AVOe2005R.av.verschiebung = openxlsx::read.xlsx("Tables/AVOe_R.xlsx", sheet="AVOe 2005R AV Verschiebung", startRow = 3, rowNames = TRUE);
AVOe2005R_gen.av=function(nm, probs, shft) {
valuationTable.ageShift(
@@ -195,3 +194,8 @@ AVOe2005R.unisex.group.av=AVOe2005R_gen.av("AVÖ 2005R unisex group (age-shifted
# options("scipen" = 3, "digits"=10)
# t=AVOe2005R.unisex;
# deathProbabilities(t, YOB=1981)
+
+# plotValuationTables(mort.AT.census.1869.male, mort.AT.census.1869.female, mort.AT.census.2011.male, mort.AT.census.2011.female, AVOe2005R.male, AVOe2005R.female, YOB=1972,title="Vergleich österreichische Sterbetafeln, YOB=1972 (bei Generationentafeln)")
+#
+# plotValuationTables(mort.AT.census.2001.male, AVOe2005R.male, YOB=1972, title="Vergleich österreichische Sterbetafeln")
+plotValuationTables(getCohortTable(AVOe2005R.male, YOB=1972), getCohortTable(AVOe2005R.male, YOB=2016), title="Vergleich österreichische Sterbetafeln")
--
GitLab