# Loading and re-coding ANES 1980 data:
data(LC1980)
LC1980[LC1980 == 0 | LC1980 == 8 | LC1980 == 9] <- NA
self <- LC1980[, 1]
stimuli <- LC1980[, -1]
dat <- prep_data(self, stimuli)
# Prepare data for cross-validation:
dat_cv <- prep_data_cv(dat, K = 10)
Run the code above in your browser using DataLab