diff --git a/R/mcglm.R b/R/mcglm.R
index ebefbc5a7d8184a0cb4922141c7022986d739060..bd5bb010d760adc3e4fe47ef5f5ea9ed7982227a 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 7ffd51c1fb728b9ba1a11a35cf4d6f1fd02ec1ec..9812fb1824aec2ee95588d39fe59b28f16c73796 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"),