fix effect size

[dtkaplan]

So that an interval = "confidence" argument will not create a bogus upper and lower bound.

You can rely on the ensemble mechanism to implement confidence intervals:

mod_1 <- lm(height ~ weight, data = Body)
E <- ensemble(mod_1, 500)
distribution <- effect_size(E, ~ height)$slope