From ba656b9b346e428ed022b5570a02056e48ec8d30 Mon Sep 17 00:00:00 2001
From: wbonat <wbonat@gmail.com>
Date: Wed, 11 Nov 2015 11:22:09 +0100
Subject: [PATCH] Fix typo chcond -> chcond1

---
 R/mcglm.R      | 2 +-
 data-raw/ahs.R | 4 ++--
 man/ahs.Rd     | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/mcglm.R b/R/mcglm.R
index bd5bb01..ebefbc5 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+chcond, data=ahs)
+#' xt <- xtabs(~age+chcond1, data=ahs)
 #' mosaicplot(xt)
 #'
 #' useOuterStrips(
diff --git a/data-raw/ahs.R b/data-raw/ahs.R
index fd48eb6..3531eed 100644
--- a/data-raw/ahs.R
+++ b/data-raw/ahs.R
@@ -1,5 +1,5 @@
 ##----------------------------------------------------------------------
-## Prepare de the data set.
+## Prepare the data set.
 
 setwd("/home/walmes/GitLab/mcglm/data-raw")
 
@@ -20,7 +20,7 @@ str(ahs)
 xt <- xtabs(~age+sex, data=ahs)
 mosaicplot(xt)
 
-xt <- xtabs(~age+chcond, data=ahs)
+xt <- xtabs(~age+chcond1, data=ahs)
 mosaicplot(xt)
 
 useOuterStrips(
diff --git a/man/ahs.Rd b/man/ahs.Rd
index 7f159c4..e157b17 100644
--- a/man/ahs.Rd
+++ b/man/ahs.Rd
@@ -85,7 +85,7 @@ str(ahs)
 xt <- xtabs(~age+sex, data=ahs)
 mosaicplot(xt)
 
-xt <- xtabs(~age+chcond, data=ahs)
+xt <- xtabs(~age+chcond1, data=ahs)
 mosaicplot(xt)
 
 useOuterStrips(
-- 
GitLab