# Participant information
participants <- tibble(
participant_id = 1:4,
age = c(22, 25, 19, 31),
condition = c("Control", "Treatment", "Treatment", "Control")
)
# Survey responses (collected separately)
survey <- tibble(
participant_id = c(1, 2, 3, 5), # Note: 4 is missing, 5 is extra
depression = c(12, 18, 10, 25),
anxiety = c(15, 20, 12, 30)
)






