The y-axis of geom_density is not a probability.
Do you know why?
library(tidymodels)
set.seed(2)
null_fits <- gss %>%
specify(hours ~ age + college) %>%
hypothesize(null = "independence") %>%
generate(reps = 1000, type = "permute") %>%
fit()
null_fits %>%
filter(term == "age") %>%
ggplot(aes(x=estimate))+
geom_density()
thank you
