Export dataset to RData.

data-raw/ahs.R

@@ -14,13 +14,13 @@ str(ahs)
 library(lattice)
 library(latticeExtra)
 
-data(ahs, package="mcglm")
+## data(ahs, package="mcglm")
 str(ahs)
 
 xt <- xtabs(~age+sex, data=ahs)
 mosaicplot(xt)
 
-xt <- xtabs(~age+chcond1, data=ahs)
+xt <- xtabs(~age+chcond, data=ahs)
 mosaicplot(xt)
 
 useOuterStrips(
@@ -47,4 +47,11 @@ useOuterStrips(
     )
 )
 
+## dir.create("../data/")
+save(ahs, file = "../data/ahs.RData")
+rm(list = ls())
+load("../data/ahs.RData")
+ls()
+str(ahs)
+
 ##----------------------------------------------------------------------