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

Fix typo (Search and replace error)

parent 1b389dc4
No related branches found
No related tags found
No related merge requests found
Pipeline #1 canceled
Stage: build
Stage: test
Hide whitespace changes
Inline Side-by-side
inst/extdata/MortalityTables_Austria_Census.R
+ 1
− 1
View file @ 49d7020a
...@@ -11,7 +11,7 @@ a.vz.dataF = utils::read.csv(system.file("extdata", "Austria_Census_Female.csv", ...@@ -11,7 +11,7 @@ a.vz.dataF = utils::read.csv(system.file("extdata", "Austria_Census_Female.csv",
a.vz.dataU = utils::read.csv(system.file("extdata", "Austria_Census_Unisex.csv", package = "MortalityTables"), skip = 3); a.vz.dataU = utils::read.csv(system.file("extdata", "Austria_Census_Unisex.csv", package = "MortalityTables"), skip = 3);
censtable = function(data, name, qslot, baseYear = 1900, sex = "m") { censtable = function(data, name, qslot, baseYear = 1900, sex = "m") {
qx = data[names(data) = = qslot]; qx = data[names(data) == qslot];
ix = complete.cases(qx); ix = complete.cases(qx);
mortalityTable.period(name = name, ages = data$x[ix], deathProbs = qx[ix,], baseYear = baseYear, mortalityTable.period(name = name, ages = data$x[ix], deathProbs = qx[ix,], baseYear = baseYear,
data = list( data = list(
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment