diff --git a/R/utilityFunctions.R b/R/utilityFunctions.R index 78365ab8acfbeff3e598375e2381de9c9b634b69..46b53f11a7b5e467267990b099520ceb0ec8d589 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,