array-variables.R
In crunch: Crunch.io Data Tools

## ---- results='hide', echo=FALSE, message=FALSE-----------------------------------------------------------------------
library(crunch)
load("vignettes.RData")

## ---- eval=FALSE------------------------------------------------------------------------------------------------------
#  grep("^imiss_", names(ds), value=TRUE)

## ---- echo=FALSE------------------------------------------------------------------------------------------------------
grep("^imiss_", names(start_make_array), value=TRUE)

## ---- eval=FALSE------------------------------------------------------------------------------------------------------
#  ds$imiss_b

## ---- echo=FALSE------------------------------------------------------------------------------------------------------
cat(show_imiss_b, sep="\n")

## ---- eval=FALSE------------------------------------------------------------------------------------------------------
#  ds$imiss <- makeArray(ds[grep("^imiss_", names(ds))], name="Issue importance")
#  ds$imiss

## ---- echo=FALSE------------------------------------------------------------------------------------------------------
cat(show_imiss, sep="\n")

## ---- eval=FALSE------------------------------------------------------------------------------------------------------
#  subvariables(ds$imiss)

## ---- echo=FALSE------------------------------------------------------------------------------------------------------
cat(show_imiss_subvars, sep="\n")

## ---- eval=FALSE------------------------------------------------------------------------------------------------------
#  ds$imiss$imiss_b

## ---- echo=FALSE------------------------------------------------------------------------------------------------------
cat(show_imiss_b, sep="\n")

## ---- eval=FALSE------------------------------------------------------------------------------------------------------
#  names(subvariables(ds$imiss))

## ---- echo=FALSE------------------------------------------------------------------------------------------------------
names_imiss_subvars

## ---- eval=FALSE------------------------------------------------------------------------------------------------------
#  names(subvariables(ds$imiss)) <- c("The economy", "Immigration",
#      "The environment", "Terrorism", "Gay rights", "Education",
#      "Health care", "Social security", "The budget deficit",
#      "The war in Afghanistan", "Taxes", "Medicare", "Abortion")
#  subvariables(ds$imiss)

## ---- echo=FALSE------------------------------------------------------------------------------------------------------
cat(show_imiss_subvars2, sep="\n")

## ---- eval=FALSE------------------------------------------------------------------------------------------------------
#  sorting <- order(names(subvariables(ds$imiss)))
#  subvariables(ds$imiss) <- subvariables(ds$imiss)[sorting]
#  subvariables(ds$imiss)

## ---- echo=FALSE------------------------------------------------------------------------------------------------------
cat(show_imiss_subvars3, sep="\n")

## ---- eval=FALSE------------------------------------------------------------------------------------------------------
#  ds$boap_4

## ---- echo=FALSE------------------------------------------------------------------------------------------------------
cat(show_boap_4, sep="\n")

## ---- eval=FALSE------------------------------------------------------------------------------------------------------
#  ds$boap <- makeMR(ds[grep("^boap_[0-9]+", names(ds))],
#      name="Approval of Obama on issues",
#      selections=c("Strongly approve", "Somewhat approve"))
#  ds$boap

## ---- echo=FALSE------------------------------------------------------------------------------------------------------
cat(show_boap, sep="\n")

## ---- eval=FALSE------------------------------------------------------------------------------------------------------
#  ds$boap <- undichotomize(ds$boap)
#  ds$boap

## ---- echo=FALSE------------------------------------------------------------------------------------------------------
cat(show_boap2, sep="\n")

## ---- eval=FALSE------------------------------------------------------------------------------------------------------
#  ds$boap <- dichotomize(ds$boap, "Strongly approve")
#  ds$boap

## ---- echo=FALSE------------------------------------------------------------------------------------------------------
cat(show_boap3, sep="\n")

## ---------------------------------------------------------------------------------------------------------------------
grep("boap", names(ds), value=TRUE)

## ---- eval=FALSE------------------------------------------------------------------------------------------------------
#  unbind(ds$boap)
#  ds <- refresh(ds)

## ---- results='hide', echo=FALSE, message=FALSE-----------------------------------------------------------------------
ds <- start_make_array

## ---------------------------------------------------------------------------------------------------------------------
grep("boap", names(ds), value=TRUE)