Exploratory Data Analysis

library(tidyverse)
anchoring <- read_csv(file = "https://stat158.berkeley.edu/spring-2026/data/anchoring/anchoring.csv",
                      col_types = list(col_factor(), col_double()))

anchoring |>
    count(X)

anchoring |>
    group_by(X) |>
    summarize(avg = mean(Y),
              sd = sd(Y),
              med = median(Y))

ggplot(anchoring, aes(x = Y, fill = X)) +
    geom_density(alpha = .3)