From fb50a1c81ab6ff3ac13625fc76c73ef295a7985e Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Thu, 7 Jan 2016 10:14:11 -0200
Subject: [PATCH] Fix chcond1 to chcond.
---
R/mcglm.R | 2 +-
vignettes/vignette-01.Rmd | 8 ++++----
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/R/mcglm.R b/R/mcglm.R
index ebefbc5..bd5bb01 100644
--- a/R/mcglm.R
+++ b/R/mcglm.R
@@ -109,7 +109,7 @@ NULL
#' xt <- xtabs(~age+sex, data=ahs)
#' mosaicplot(xt)
#'
-#' xt <- xtabs(~age+chcond1, data=ahs)
+#' xt <- xtabs(~age+chcond, data=ahs)
#' mosaicplot(xt)
#'
#' useOuterStrips(
diff --git a/vignettes/vignette-01.Rmd b/vignettes/vignette-01.Rmd
index 7ffd51c..9812fb1 100644
--- a/vignettes/vignette-01.Rmd
+++ b/vignettes/vignette-01.Rmd
@@ -175,7 +175,7 @@ barplot(prop.table(xtabs(~illness, data=ahs)),
ylab="Sample proportion",
xlab="illness")
-barplot(prop.table(xtabs(~chcond1, data=ahs)),
+barplot(prop.table(xtabs(~chcond, data=ahs)),
ylab="Sample proportion",
xlab="chcond")
layout(1)
@@ -183,10 +183,10 @@ layout(1)
xt <- xtabs(~age+sex, data=ahs)
mosaicplot(xt)
-xt <- xtabs(~age+chcond1, data=ahs)
+xt <- xtabs(~age+chcond, data=ahs)
mosaicplot(xt)
-xt <- xtabs(~sex+chcond1, data=ahs)
+xt <- xtabs(~sex+chcond, data=ahs)
mosaicplot(xt)
##----------------------------------------------------------------------
@@ -220,7 +220,7 @@ useOuterStrips(
useOuterStrips(
combineLimits(
- xyplot(Ndoc+Nndoc+Nadm+Nhosp+Nmed~age|chcond1,
+ xyplot(Ndoc+Nndoc+Nadm+Nhosp+Nmed~age|chcond,
groups=sex, outer=TRUE, data=ahs,
jitter.x=TRUE, amount=0.01,
type=c("p", "a"),
--
GitLab