FakeCensus <- simulated.census()
summary(FakeCensus)
# \dontshow{
# some consistency checks
stopifnot(nrow(FakeCensus) == 502202)
stopifnot(! any(is.na(FakeCensus$height) | is.na(FakeCensus$weight) | is.na(FakeCensus$shoe.size)) )
stopifnot(abs(mean(FakeCensus$height[FakeCensus$sex == "m"]) - 180) < 0.1)
# }
Run the code above in your browser using DataLab