data(long_df)
data(main_df)
head(long_df)
# See data for first patient
subset(long_df, PersonID == "Patient_001")
# Compare average scores by treatment
long_df %>%
dplyr::left_join(main_df[,c("ID","Treatment")], by=c("PersonID"="ID")) %>%
dplyr::group_by(Treatment) %>%
dplyr::summarise(mean_score = mean(OrdinalScore))
Run the code above in your browser using DataLab