# 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.