# Text file is zipped to save space.
dataset_name <- system.file("extdata", "example_data.zip",
package = "asciiSetupReader")
sps_name <- system.file("extdata", "example_setup.sps",
package = "asciiSetupReader")
if (FALSE) {
example <- spss_ascii_reader(dataset_name = dataset_name,
sps_name = sps_name)
# Does not fix value labels
example2 <- spss_ascii_reader(dataset_name = dataset_name,
sps_name = sps_name, value_label_fix = FALSE)
# Keeps original column names
example3 <- spss_ascii_reader(dataset_name = dataset_name,
sps_name = sps_name, real_names = FALSE)
}
# Only returns the first 5 columns
example4 <- spss_ascii_reader(dataset_name = dataset_name,
sps_name = sps_name, keep_columns = 1:5)
Run the code above in your browser using DataLab