For our analyses, we need: the demographics Gender & Age, the IVs Condition & Political Party, and the DV SDO

analysis_data <- data.frame(choice_data$GEND, numeric_data$AGE, choice_data$condition, choice_data$PPP1, SDO$SDO_mean_scores)

Next, because the method we used to make this dataframe results in some rather cumbersome column names to deal with, we’ll give all the columns in this new dataframe easy intuitive names like this:

names(analysis_data) <- c("Gender", "Age", "Condition","PoliticalParty", "SocialDominance")