R/data-raw/colas.R

In NumbersInternational/flipExampleData: Example data files for use in the flip project

library(foreign)
colas <- foreign::read.spss(system.file("extdata", "Colas.sav", package = "flipExampleData"),
                            to.data.frame = TRUE, reencode = TRUE)
                            colas <- TidySPSS(colas)
usethis::use_data(colas, internal = FALSE, overwrite = TRUE)



# library(foreign)
# colas <- read.spss("C:/q/Install/Examples/colas.sav",
#                   to.data.frame = TRUE)
#
# levels(colas$d2) <- enc2utf8(levels(colas$d2))
# levels(colas$q7) <- enc2utf8(levels(colas$q7))
#
# devtools::use_data(colas, internal = FALSE, overwrite = TRUE)
#
# data(colas)
# data <- data.frame(Cola.drinking.frequency.CocaCola = colas$q2a, Exercise.frequency = colas$q8)
# QFilter = colas$d3 == "Male"
# linear.regression <- Regression(Cola.drinking.frequency.CocaCola ~ Exercise.frequency, data, subset = QFilter)
# linear.regression
#
# CART(d2 ~ d1, data = colas)
#