From 65d28fba283eb7842e4b121dd904effc0add9aa2 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Mon, 4 Sep 2017 09:44:05 +0000
Subject: [PATCH] Add some test code (wrapped in if(FALSE))
---
R/pensionTable.R | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/R/pensionTable.R b/R/pensionTable.R
index 353f4c7..3558a7b 100644
--- a/R/pensionTable.R
+++ b/R/pensionTable.R
@@ -152,8 +152,13 @@ setMethod("periodTransitionProbabilities", "pensionTable",
if (FALSE) {
+ pensionTables.load("Austria_AVOe2008P")
transitionProbabilities(AVOe2008P.male, YOB = 1977, as.data.frame = FALSE)
epP = transitionProbabilities(EttlPagler.male, YOB = 1982)
# avoe08p =
transitionProbabilities(AVOe2008P.male, YOB = 1977, as.data.frame = TRUE)
+avoe08p.period = periodTransitionProbabilities(AVOe2008P.male, Period = 2007, as.data.frame = TRUE)
+
+pensionTables.list(package = "MortalityTablesPrivate")
+pensionTables.load("Austria_AVOe1999P")
}
--
GitLab