From 6b355894c4036db4029e75fb4abda00f070939c7 Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Mon, 4 Sep 2017 08:31:52 +0000
Subject: [PATCH] deathProbabilities: Use age vector instead of hardcoded ages
starting from 0
---
R/deathProbabilities.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/R/deathProbabilities.R b/R/deathProbabilities.R
index 820adcc..bc495d2 100644
--- a/R/deathProbabilities.R
+++ b/R/deathProbabilities.R
@@ -37,7 +37,7 @@ setMethod("deathProbabilities","mortalityTable.trendProjection",
function (object, ..., YOB = 1975) {
qx=object@deathProbs * (1 + object@loading);
if (is.null(object@trend2) || length(object@trend2) <= 1) {
- ages = 0:(length(qx)-1);
+ ages = object@ages;
damping = sapply(
ages,
function (age) { object@dampingFunction(YOB + age - object@baseYear) }
--
GitLab