diff --git a/R/ValuationTables.R b/R/ValuationTables.R index 80b5ca1dbebf94d7769de1a78750b88b28858466..c1fae8c81fe2d380d785668ee8c23642614feb98 100644 --- a/R/ValuationTables.R +++ b/R/ValuationTables.R @@ -191,7 +191,7 @@ setMethod("periodDeathProbabilities","valuationTable.trendProjection", function (object, ..., Period=1975) { qx=object@deathProbs * (1+object@loading); if (is.null(object@trend2) || length(object@trend2)<=1) { - ages=0:(length(qx)-1); + # ages=0:(length(qx)-1); damping=object@dampingFunction(Period-object@baseYear); # print(data.frame(age=0:(length(qx)-1), trend=object@trend, exponent=-object@trend*damping, damping=damping, baseqx=qx, qx=exp(-object@trend*damping)*qx)[66:90,]); finalqx=exp(-object@trend*damping)*qx;