diff --git a/R/mcglm.R b/R/mcglm.R index bd5bb010d760adc3e4fe47ef5f5ea9ed7982227a..ebefbc5a7d8184a0cb4922141c7022986d739060 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 fd48eb6bb15d7d2a7dcadb76395350f65f311aee..3531eedb93db59d91b566e16717f523444894e9b 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 7f159c406fc11a19c969027f848e65ad5c5ed678..e157b1710e2bb4299373c66d40e6776d6a8219ff 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(