diff --git a/inst/extdata/MortalityTables_Austria_Census.R b/inst/extdata/MortalityTables_Austria_Census.R index 152f0075094657a513a9c3921a9ec3162c46d7d0..da6a406475317af192bf07cf4e259409dab053b9 100644 --- a/inst/extdata/MortalityTables_Austria_Census.R +++ b/inst/extdata/MortalityTables_Austria_Census.R @@ -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); censtable = function(data, name, qslot, baseYear = 1900, sex = "m") { - qx = data[names(data) = = qslot]; + qx = data[names(data) == qslot]; ix = complete.cases(qx); mortalityTable.period(name = name, ages = data$x[ix], deathProbs = qx[ix,], baseYear = baseYear, data = list(