boxplot(data$vignette_response~data$condition)