Skip to content
Snippets Groups Projects
Commit f97db277 authored by Reinhold Kainhofer's avatar Reinhold Kainhofer
Browse files

Fix warnings from R CMD check --as-cran

parent 46d9a72f
Branches
Tags
No related merge requests found
^.*\.Rproj$ ^.*\.Rproj$
^\.Rproj\.user$ ^\.Rproj\.user$
ValuationTables.RData MortalityTables.RData
data.saved data.saved
data-raw data-raw
^\.~.*#$ ^\.~.*#$
PossibleTables.txt PossibleTables.txt
^MortalityTables_.*\.tar\.gz$
Package: MortalityTables Package: MortalityTables
Type: Package Type: Package
Version: 1.0 Version: 1.0
Date: 2016-05-01 Date: 2016-09-01
Title: A framework for various types of mortality / life tables Title: A Framework for Various Types of Mortality / Life Tables
Authors@R: c(person("Reinhold", "Kainhofer", role=c("aut", "cre"), email="reinhold@kainhofer.com")) Authors@R: c(person("Reinhold", "Kainhofer", role=c("aut", "cre"), email="reinhold@kainhofer.com"))
Author: Reinhold Kainhofer [aut, cre] Author: Reinhold Kainhofer [aut, cre]
Maintainer: Reinhold Kainhofer <reinhold@kainhofer.com> Maintainer: Reinhold Kainhofer <reinhold@kainhofer.com>
...@@ -16,8 +16,8 @@ Suggests: ...@@ -16,8 +16,8 @@ Suggests:
lifecontingencies, lifecontingencies,
knitr, knitr,
rmarkdown rmarkdown
Description: This package provides classes to implement cohort life tables Description: Classes to implement and plot cohort life tables
for actuarial calculations. In particular, birthyear-dependent mortality for actuarial calculations. In particular, birth-year dependent mortality
tables using a yearly trend to extrapolate from a base year are implemented, tables using a yearly trend to extrapolate from a base year are implemented,
as well as period life table, cohort life tables using an age shift, and as well as period life table, cohort life tables using an age shift, and
merged life tables. merged life tables.
......
...@@ -61,7 +61,7 @@ globalVariables(c("x", "y", ".x")) ...@@ -61,7 +61,7 @@ globalVariables(c("x", "y", ".x"))
# #
# plotMortalityTables(mort.AT.census.1869.male, mort.AT.census.1869.female, mort.AT.census.2011.male, mort.AT.census.2011.female, AVOe2005R.male, AVOe2005R.female, YOB=1972,title="Vergleich österreichische Sterbetafeln, YOB=1972 (bei Generationentafeln)") # plotMortalityTables(mort.AT.census.1869.male, mort.AT.census.1869.female, mort.AT.census.2011.male, mort.AT.census.2011.female, AVOe2005R.male, AVOe2005R.female, YOB=1972,title="Austrian Tables, YOB=1972 (for cohort tables)")
# #
# plotMortalityTables(mort.AT.census.2001.male, AVOe2005R.male, YOB=1972, title="Vergleich österreichische Sterbetafeln") # plotMortalityTables(mort.AT.census.2001.male, AVOe2005R.male, YOB=1972, title="Comparison Austrian Tables")
# plotMortalityTables(getCohortTable(AVOe2005R.male, YOB=1972), getCohortTable(AVOe2005R.male, YOB=2016), title="Vergleich österreichische Sterbetafeln") # plotMortalityTables(getCohortTable(AVOe2005R.male, YOB=1972), getCohortTable(AVOe2005R.male, YOB=2016), title="Comparison Austrian Tables")
...@@ -25,7 +25,7 @@ AVOe1996R.trend.switching = function(year) { ...@@ -25,7 +25,7 @@ AVOe1996R.trend.switching = function(year) {
} }
} }
AVÖ1996R.male = mortalityTable.trendProjection( AVOe1996R.male = mortalityTable.trendProjection(
name = "AVÖ 1996R male", name = "AVÖ 1996R male",
ages = AVOe1996R.exakt.data$age, baseYear = 1991, ages = AVOe1996R.exakt.data$age, baseYear = 1991,
deathProbs = AVOe1996R.exakt.data$qx1991 * AVOe1996R.exakt.data$factorM, deathProbs = AVOe1996R.exakt.data$qx1991 * AVOe1996R.exakt.data$factorM,
...@@ -34,7 +34,7 @@ AVÖ1996R.male = mortalityTable.trendProjection( ...@@ -34,7 +34,7 @@ AVÖ1996R.male = mortalityTable.trendProjection(
dampingFunction = AVOe1996R.trend.switching dampingFunction = AVOe1996R.trend.switching
); );
AVÖ1996R.female = mortalityTable.trendProjection( AVOe1996R.female = mortalityTable.trendProjection(
name = "AVÖ 1996R female", name = "AVÖ 1996R female",
ages = AVOe1996R.exakt.data$age, baseYear = 1991, ages = AVOe1996R.exakt.data$age, baseYear = 1991,
deathProbs = AVOe1996R.exakt.data$qy1991 * AVOe1996R.exakt.data$factorF, deathProbs = AVOe1996R.exakt.data$qy1991 * AVOe1996R.exakt.data$factorF,
...@@ -43,7 +43,7 @@ AVÖ1996R.female = mortalityTable.trendProjection( ...@@ -43,7 +43,7 @@ AVÖ1996R.female = mortalityTable.trendProjection(
dampingFunction = AVOe1996R.trend.switching dampingFunction = AVOe1996R.trend.switching
); );
AVÖ1996R.male.group = mortalityTable.trendProjection( AVOe1996R.male.group = mortalityTable.trendProjection(
name = "AVÖ 1996R male, group", name = "AVÖ 1996R male, group",
ages = AVOe1996R.exakt.data$age, baseYear = 1991, ages = AVOe1996R.exakt.data$age, baseYear = 1991,
deathProbs = AVOe1996R.exakt.data$qx1991 * AVOe1996R.exakt.data$factorMG, deathProbs = AVOe1996R.exakt.data$qx1991 * AVOe1996R.exakt.data$factorMG,
...@@ -52,7 +52,7 @@ AVÖ1996R.male.group = mortalityTable.trendProjection( ...@@ -52,7 +52,7 @@ AVÖ1996R.male.group = mortalityTable.trendProjection(
dampingFunction = AVOe1996R.trend.switching dampingFunction = AVOe1996R.trend.switching
); );
AVÖ1996R.female.group = mortalityTable.trendProjection( AVOe1996R.female.group = mortalityTable.trendProjection(
name = "AVÖ 1996R female, group", name = "AVÖ 1996R female, group",
ages = AVOe1996R.exakt.data$age, baseYear = 1991, ages = AVOe1996R.exakt.data$age, baseYear = 1991,
deathProbs = AVOe1996R.exakt.data$qy1991 * AVOe1996R.exakt.data$factorFG, deathProbs = AVOe1996R.exakt.data$qy1991 * AVOe1996R.exakt.data$factorFG,
......
...@@ -30,10 +30,10 @@ plot(mort.AT.census.1951.male, mort.AT.census.1991.male, ...@@ -30,10 +30,10 @@ plot(mort.AT.census.1951.male, mort.AT.census.1991.male,
## ------------------------------------------------------------------------ ## ------------------------------------------------------------------------
# Comparison of two Austrian annuity tables for birth year 1977 # Comparison of two Austrian annuity tables for birth year 1977
plot(AVÖ1996R.male, AVOe2005R.male, YOB=1977, title="Comparison for YOB=1977") plot(AVOe1996R.male, AVOe2005R.male, YOB=1977, title="Comparison for YOB=1977")
# Comparison of two Austrian annuity tables for observation year 2020 # Comparison of two Austrian annuity tables for observation year 2020
plot(AVÖ1996R.male, AVOe2005R.male, Period=2020, title="Comparison for observation year 2020") plot(AVOe1996R.male, AVOe2005R.male, Period=2020, title="Comparison for observation year 2020")
## ----message=FALSE------------------------------------------------------- ## ----message=FALSE-------------------------------------------------------
......
...@@ -129,10 +129,10 @@ birth year or the period death probabilities for the given observation year. ...@@ -129,10 +129,10 @@ birth year or the period death probabilities for the given observation year.
```{r} ```{r}
# Comparison of two Austrian annuity tables for birth year 1977 # Comparison of two Austrian annuity tables for birth year 1977
plot(AVÖ1996R.male, AVOe2005R.male, YOB=1977, title="Comparison for YOB=1977") plot(AVOe1996R.male, AVOe2005R.male, YOB=1977, title="Comparison for YOB=1977")
# Comparison of two Austrian annuity tables for observation year 2020 # Comparison of two Austrian annuity tables for observation year 2020
plot(AVÖ1996R.male, AVOe2005R.male, Period=2020, title="Comparison for observation year 2020") plot(AVOe1996R.male, AVOe2005R.male, Period=2020, title="Comparison for observation year 2020")
``` ```
......
This diff is collapsed.
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment