Commit 49d7020a authored by Reinhold Kainhofer's avatar Reinhold Kainhofer

Fix typo (Search and replace error)

parent 1b389dc4
Pipeline #1 canceled with stages
...@@ -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(
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment