library/tidyr/demo/dadmom.R

library(tidyr)
library(dplyr)

dadmom <- foreign::read.dta("http://www.ats.ucla.edu/stat/stata/modules/dadmomw.dta")
dadmom %>%
  gather(key, value, named:incm) %>%
  separate(key, c("variable", "type"), -2) %>%
  spread(variable, value, convert = TRUE)
OllieFord/ChangepointVis documentation built on Aug. 26, 2019, 7:53 p.m.