From 49d7020af05e9ae9bf8e0c2a95a64a1ccc84a971 Mon Sep 17 00:00:00 2001
From: Kainhofer Reinhold <reinhold@kainhofer.com>
Date: Wed, 20 Feb 2019 10:57:50 +0100
Subject: [PATCH] Fix typo (Search and replace error)
---
inst/extdata/MortalityTables_Austria_Census.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/inst/extdata/MortalityTables_Austria_Census.R b/inst/extdata/MortalityTables_Austria_Census.R
index 152f007..da6a406 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(
--
GitLab