R/data-raw/pcaphonetestdata.R

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

# The data file that is created here has been first imported into Q, then modified in
# Q ('Data_Preparation1.Q') and then saved out as an SPSS file, which is turned into an R data file here.


temp <- foreign::read.spss(system.file("extdata", "pcaPhoneTestData.sav", package = "flipExampleData"),
                           to.data.frame = TRUE, use.value.labels = FALSE)
temp <- TidySPSS(temp)
pcaPhoneTestData <- list(data.set = temp[,match("q2320_1", names(temp)):match("q2320_25", names(temp))],
                  data.set.original =  temp[,match("q23a", names(temp)):match("q23y", names(temp))],
                  weight = temp$wBTNOH,
                  calibrated.weight = temp$nEJYFW)
usethis::use_data(pcaPhoneTestData, internal = FALSE, overwrite = TRUE)