From d4a4d6ab82286f3f56702e765856101ea3039353 Mon Sep 17 00:00:00 2001 From: Kevin Islas Date: Wed, 6 Feb 2019 22:46:27 -0600 Subject: [PATCH] deaths' dataset wasn't being filtered by yod==2008, mod!=0, dod!=0 (it was being assigned to ok dataset but never used again) --- case-study/case-study.r | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/case-study/case-study.r b/case-study/case-study.r index 5f279cb..0799019 100644 --- a/case-study/case-study.r +++ b/case-study/case-study.r @@ -24,8 +24,8 @@ if (!file.exists("deaths.rds")) { deaths <- readRDS("deaths.rds") -ok <- subset(deaths, yod == 2008 & mod != 0 & dod != 0) -xtable(ok[c(1, 1:14 * 2000), c("yod", "mod", "dod", "hod", "cod")], +deaths <- subset(deaths, yod == 2008 & mod != 0 & dod != 0) +xtable(deaths[c(1, 1:14 * 2000), c("yod", "mod", "dod", "hod", "cod")], "raw.tex") codes <- read.csv("icd-main.csv")