Nothing
## ---- results='hide', echo=FALSE, message=FALSE-----------------------------------------------------------------------
library(crunch)
load("vignettes.RData")
options(width=120)
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# dems <- ds[ds$pid3 == "Democrat",]
# dems
## ---- echo=FALSE------------------------------------------------------------------------------------------------------
cat(printdems, sep="\n")
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# round(crtabs(mean(track) ~ educ + gender, data=dems), 2)
## ---- echo=FALSE------------------------------------------------------------------------------------------------------
round(tab8, 2)
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# table(dems$educ)
## ---- echo=FALSE------------------------------------------------------------------------------------------------------
print(educ.dem.table)
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# table(ds$educ[ds$pid3 == "Democrat",])
## ---- echo=FALSE------------------------------------------------------------------------------------------------------
print(educ.dem.table)
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# identical(subset(ds, ds$pid3 == "Democrat"), dems)
## ---- echo=FALSE------------------------------------------------------------------------------------------------------
identical(dems2, dems)
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# filters(ds)
## ---- echo=FALSE------------------------------------------------------------------------------------------------------
print(empty.filter.catalog)
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# filters(ds)[["Young males"]] <- ds$gender == "Male" & ds$age < 30
# filters(ds)[["Young males"]]
## ---- echo=FALSE------------------------------------------------------------------------------------------------------
cat(print.young.males1, sep="\n")
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# filters(ds)
## ---- echo=FALSE------------------------------------------------------------------------------------------------------
print(filter.catalog.2)
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# f <- newFilter("Young males", ds$gender == "Male" & ds$age < 30)
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# is.public(filters(ds)[["Young males"]]) <- TRUE
# filters(ds)
## ---- echo=FALSE------------------------------------------------------------------------------------------------------
print(filter.catalog.3)
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# filters(ds)[["Young males"]] <- ds$gender == "Male" & ds$age < 35
# filters(ds)[["Young males"]]
## ---- echo=FALSE------------------------------------------------------------------------------------------------------
cat(print.young.males2, sep="\n")
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# dim(ds)
## ---- echo=FALSE------------------------------------------------------------------------------------------------------
print(dim.ds.filters)
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# exclusion(ds) <- ds$perc_skipped > 15
# exclusion(ds)
## ---- echo=FALSE------------------------------------------------------------------------------------------------------
cat(high_perc_skipped, sep="\n")
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# dim(ds)
## ---- echo=FALSE------------------------------------------------------------------------------------------------------
print(dim.ds.excluded)
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# exclusion(ds) <- NULL
# dim(ds)
## ---- echo=FALSE------------------------------------------------------------------------------------------------------
print(dim.ds.filters)
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# ## Not run
# ds <- dropRows(ds, ds$perc_skipped > 15)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.