## ----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")