export.R
In crunch: Crunch.io Data Tools

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