Nothing
## ---- results='hide', echo=FALSE, message=FALSE-----------------------------------------------------------------------
# library(crunch)
# load("vignettes.RData")
options(width=120)
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# party_id <- as.vector(ds$pid3)
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# party_id <- as.vector(ds$pid3, mode="id")
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# v1 <- as.vector(ds$var)
#
# df <- as.data.frame(ds)
# identical(v1, df$var)
# ## TRUE
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# df <- as.data.frame(ds)
# is.data.frame(df)
# ## FALSE
# df <- as.data.frame(df)
# is.data.frame(df)
# ## TRUE
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# df <- as.data.frame(ds, force=TRUE)
# is.data.frame(df)
# ## TRUE
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# df <- as.data.frame(ds[ds$pid3 == "Democrat", c("age", "educ", "gender")], force=TRUE)
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# dems <- ds[ds$pid3 == "Democrat", ]
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# dem_age <- dems$age
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# identical(as.vector(ds$age[ds$pid3 == "Democrat"]), dem_age)
# ## TRUE
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# perc_completed <- as.vector(100 - ds$perc_skipped)
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# exportDataset(ds, file="econ.sav", format="spss")
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# write.csv(ds, file="econ.csv")
## ---- eval=FALSE------------------------------------------------------------------------------------------------------
# write.csv(ds[ds$pid3 == "Democrat", c("age", "educ", "gender")], file="demo-demos.csv")
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.