Commit 799385ff authored by Reinhold Kainhofer's avatar Reinhold Kainhofer

Missing qx should not mean 0 death probability

parent b242c5c2
...@@ -106,8 +106,8 @@ setMethod("transitionProbabilities", "pensionTable", ...@@ -106,8 +106,8 @@ setMethod("transitionProbabilities", "pensionTable",
function(object, YOB = 1982, ..., as.data.frame = TRUE) { function(object, YOB = 1982, ..., as.data.frame = TRUE) {
na.zero = function(x) { x[is.na(x)] = 0; x } na.zero = function(x) { x[is.na(x)] = 0; x }
x = ages(object@qx); x = ages(object@qx);
q = na.zero(deathProbabilities(object@qx, ..., YOB = YOB)); q = deathProbabilities(object@qx, ..., YOB = YOB);
i = na.zero(deathProbabilities(object@ix, ..., YOB = YOB)); i = deathProbabilities(object@ix, ..., YOB = YOB);
qi = deathProbabilities(object@qix, ..., YOB = YOB); qi = deathProbabilities(object@qix, ..., YOB = YOB);
r = deathProbabilities(object@rx, ..., YOB = YOB); r = deathProbabilities(object@rx, ..., YOB = YOB);
ap = deathProbabilities(object@apx, ..., YOB = YOB); ap = deathProbabilities(object@apx, ..., YOB = YOB);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment