From 998b8712ac8ec6c0f1a00a49451ded989461ca0d Mon Sep 17 00:00:00 2001
From: Reinhold Kainhofer <reinhold@kainhofer.com>
Date: Sun, 20 May 2018 01:29:35 +0200
Subject: [PATCH] fix recursive evaluation / promise in mT.setTrend
---
R/utilityFunctions.R | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/R/utilityFunctions.R b/R/utilityFunctions.R
index 78365ab..46b53f1 100644
--- a/R/utilityFunctions.R
+++ b/R/utilityFunctions.R
@@ -119,11 +119,10 @@ mT.scaleProbs = function(table, factor = 1.0, name.postfix = "scaled", name = pa
#' @export
-mT.setTrend = function(table, trend, trendages = ages(table), baseYear = baseYear(table)) {
+mT.setTrend = function(table, trend, trendages = ages(table), baseYear = table@baseYear) {
if (!is(table, "mortalityTable"))
stop("First argument must be a mortalityTable.")
- trend[table@ages %in% trendages]
t = mortalityTable.trendProjection(
table,
baseYear = baseYear,
--
GitLab