diff --git a/R/periodDeathProbabilities.R b/R/periodDeathProbabilities.R index 6a8a0c29600b63aea2240113d78714c9e9d72112..d3ba97ad4000b674c32802a2146f6ba06aa91b63 100644 --- a/R/periodDeathProbabilities.R +++ b/R/periodDeathProbabilities.R @@ -33,7 +33,7 @@ setMethod("periodDeathProbabilities", "mortalityTable.ageShift", #' @describeIn periodDeathProbabilities Return the (period) death probabilities #' of the life table for a given observation year setMethod("periodDeathProbabilities", "mortalityTable.trendProjection", - function (object, ..., Period = 1975) { + function(object, ..., Period = 1975) { qx = object@deathProbs * (1 + object@loading); if (is.null(object@trend2) || length(object@trend2) <= 1) { # ages = 0:(length(qx)-1); @@ -52,7 +52,7 @@ setMethod("periodDeathProbabilities", "mortalityTable.trendProjection", #' @describeIn periodDeathProbabilities Return the (period) death probabilities #' of the life table for a given observation year setMethod("periodDeathProbabilities", "mortalityTable.improvementFactors", - function (object, ..., Period = 1975) { + function(object, ..., Period = 1975) { qx = object@deathProbs * (1 + object@loading); impr = calculateImprovements(object, ..., Period = Period) object@modification(qx * impr) @@ -61,7 +61,7 @@ setMethod("periodDeathProbabilities", "mortalityTable.improvementFactors", #' @describeIn periodDeathProbabilities Return the (period) death probabilities #' of the life table for a given observation year setMethod("periodDeathProbabilities", "mortalityTable.mixed", - function (object, ..., Period = 1975) { + function(object, ..., Period = 1975) { qx1 = periodDeathProbabilities(object@table1, ..., Period = Period); qx2 = periodDeathProbabilities(object@table2, ..., Period = Period); mixedqx = (object@weight1 * qx1 + object@weight2 * qx2) / (object@weight1 + object@weight2) * (1 + object@loading);