## .
## Ambidextrous Left Right
## 0.005 0.090 0.905
ggplot(handedness_data, aes(x = hand)) +
geom_bar(fill = 'white', color = 'black') + # These two lines are important
stat_count(geom = "text", size = 5,
aes(label = scales::percent(..count../nrow(handedness_data)),
y = ..count.. + 1300)) +
ggpubr::theme_pubr() +
labs(x = 'Handedness', y = 'Count') # The rest is just decoration
Variable | N | Mean | Std. Dev. | Min | Pctl. 25 | Pctl. 75 | Max |
---|---|---|---|---|---|---|---|
repay_rate | 20890 | 0.576 | 0.182 | 0.107 | 0.437 | 0.718 | 0.975 |
Variable | N | Mean | Std. Dev. | Min | Pctl. 25 | Pctl. 75 | Max |
---|---|---|---|---|---|---|---|
repay_rate | 20890 | 0.576 | 0.182 | 0.107 | 0.437 | 0.718 | 0.975 |
dbinom(999, 1000, .5)
chance of happeningReminders:
\[ \bar{X} = \hat{\mu} \sim N(\mu, \sigma/\sqrt{n}) \]
2*(1-pnorm(.575, .5, .0013)
, a two-tailed p-value