From 90df9e77892823f00e896b45574db41500c10f35 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Thu, 1 Oct 2015 14:43:08 -0300
Subject: [PATCH] Removes part that edits the data set.
---
data-raw/ahs.R | 18 +-----------------
1 file changed, 1 insertion(+), 17 deletions(-)
diff --git a/data-raw/ahs.R b/data-raw/ahs.R
index 0d45243..1d50890 100644
--- a/data-raw/ahs.R
+++ b/data-raw/ahs.R
@@ -6,23 +6,7 @@ setwd("/home/walmes/GitLab/mcglm/data-raw")
ahs <- read.table("ahs.txt", header=TRUE, sep="\t")
str(ahs)
-ahs$sex <- factor(ahs$sex, labels=c("male", "female"))
-str(ahs)
-
-xtabs(~chcond1+chcond2, data=ahs)
-
-ahs$chcond <- factor(with(ahs, chcond1+2*chcond2),
- labels=c("otherwise", "not limited", "limited"))
-xtabs(~chcond, data=ahs)
-ahs$chcond1 <- NULL
-ahs$chcond2 <- NULL
-ahs$id <- NULL
-
-names(ahs)[c(1:9, 15, 10:14)]
-ahs <- ahs[, c(1:9, 15, 10:14)]
-str(ahs)
-
-save(ahs, file="../data/ahs.RData")
+## save(ahs, file="../data/ahs.RData")
##----------------------------------------------------------------------
## Include in the @examples
--
GitLab