inst/extdata/MortalityTables_Germany_Endowments_DAV1994T.R

In kainhofer/r-mortality-tables: A Framework for Various Types of Mortality / Life Tables

stopifnot(require(methods), require(utils), require(MortalityTables)) # MortalityTable classes; new; Excel reader

#' German Life Tables for (pure) endowments, loaded and unloaded
#'   - DAV1994T: General German risk life table, based on general mortality 1986/88
#'               Available objects:
#'                  o DAV1994T.male (male, loaded)
#'                  o DAV1994T.male.2Ord (male, unloaded)
#'                  o DAV1994T.female (female, loaded)
#'                  o DAV1994T.female.2Ord (female, unloaded)
"Germany_Endowments"

###############################################################################
### DAV 1994T (male, female), 1st-order and general mortality 1986/88
###############################################################################

DAV1994T.data = utils::read.csv(
    system.file("extdata", "Germany_Endowments_DAV1994T.csv",
                package = "MortalityTables"),
    skip = 1);

# DAV1994T (Male, Female), 1st-order and general mortality 1986/88
DAV1994T.male = mortalityTable.period(
    name       = "DAV 1994T male, loaded",
    ages       = DAV1994T.data$Alter,
    deathProbs = DAV1994T.data$qbar_x.a,
    data = list(
        dim = list(sex = "m", collar = "Aggregat", type = "Risikotafel", data = "loaded", year = "DAV 1994T")
    )
)

DAV1994T.male.2Ord = mortalityTable.period(
    name       = "DAV 1994T male, unloaded",
    ages       = DAV1994T.data$Alter,
    deathProbs = DAV1994T.data$q_x,
    data = list(
        dim = list(sex = "m", collar = "Aggregat", type = "Risikotafel", data = "unloaded", year = "DAV 1994T")
    )
)

DAV1994T.female = mortalityTable.period(
    name       = "DAV 1994T female, loaded",
    ages       = DAV1994T.data$Alter,
    deathProbs = DAV1994T.data$qbar_y.a,
    data = list(
        dim = list(sex = "w", collar = "Aggregat", type = "Risikotafel", data = "loaded", year = "DAV 1994T")
    )
)

DAV1994T.female.2Ord = mortalityTable.period(
    name       = "DAV 1994T female, unloaded",
    ages       = DAV1994T.data$Alter,
    deathProbs = DAV1994T.data$q_y,
    data = list(
        dim = list(sex = "w", collar = "Aggregat", type = "Risikotafel", data = "unloaded", year = "DAV 1994T")
    )
)

rm(DAV1994T.data)