Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
R
R - Mortality Tables
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
10
Issues
10
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
R
R - Mortality Tables
Commits
7b3171b1
Commit
7b3171b1
authored
May 20, 2018
by
Reinhold Kainhofer
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix typo
parent
a6b1d47b
Changes
3
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
75 additions
and
73 deletions
+75
-73
inst/extdata/MortalityTables_Austria_Census.R
inst/extdata/MortalityTables_Austria_Census.R
+2
-2
inst/extdata/MortalityTables_Germany_Census.R
inst/extdata/MortalityTables_Germany_Census.R
+1
-1
vignettes/using-the-mortalityTables-package.html
vignettes/using-the-mortalityTables-package.html
+72
-70
No files found.
inst/extdata/MortalityTables_Austria_Census.R
View file @
7b3171b1
...
...
@@ -14,7 +14,7 @@ censtable = function(data, name, qslot, baseYear=1900, sex = "m") {
ix
=
complete.cases
(
qx
);
mortalityTable.period
(
name
=
name
,
ages
=
data
$
x
[
ix
],
deathProbs
=
qx
[
ix
,],
baseYear
=
baseYear
,
data
=
list
(
dim
=
list
(
sex
=
s
,
collar
=
"Gesamtbevölkerung"
,
type
=
"Volkssterbetafel Österreich"
,
data
=
"official"
,
year
=
baseYear
)
dim
=
list
(
sex
=
s
ex
,
collar
=
"Gesamtbevölkerung"
,
type
=
"Volkssterbetafel Österreich"
,
data
=
"official"
,
year
=
baseYear
)
)
)
}
...
...
@@ -49,7 +49,7 @@ mort.AT.census.2011.female = censtable(a.vz.dataF, name="ÖVSt 2010/2012 F", bas
mort.AT.census.2001.unisex
=
mortalityTable.mixed
(
table1
=
mort.AT.census.2001.male
,
table2
=
mort.AT.census.2001.female
,
data
=
list
(
dim
=
list
(
sex
=
"u"
,
collar
=
"Gesamtbevölkerung"
,
type
=
"Volkssterbetafel Österreich"
,
data
=
"official"
,
year
=
2001
)
dim
=
list
(
sex
=
"u"
,
collar
=
"Gesamtbevölkerung"
,
type
=
"Volkssterbetafel Österreich"
,
data
=
"official"
,
year
=
2001
)
)
)
...
...
inst/extdata/MortalityTables_Germany_Census.R
View file @
7b3171b1
...
...
@@ -14,7 +14,7 @@ censtable = function(data, name, qslot, baseYear = 1900, sex = "m") {
ix
=
complete.cases
(
qx
);
mortalityTable.period
(
name
=
name
,
ages
=
data
$
Alter
[
ix
],
deathProbs
=
qx
[
ix
,],
baseYear
=
baseYear
,
data
=
list
(
dim
=
list
(
sex
=
s
,
collar
=
"Gesamtbevölkerung"
,
type
=
"Volkssterbetafel Deutschland"
,
data
=
"official"
,
year
=
baseYear
)
dim
=
list
(
sex
=
s
ex
,
collar
=
"Gesamtbevölkerung"
,
type
=
"Volkssterbetafel Deutschland"
,
data
=
"official"
,
year
=
baseYear
)
)
)
}
...
...
vignettes/using-the-mortalityTables-package.html
View file @
7b3171b1
This diff is collapsed.
Click to expand it.
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment