Sorry for the all the comments recently
For the independent samples
Code: Select all
LL <- d - (stats::qt(((
100 - (ciWidth)
) / 100) / 2,
res$parameter)) * abs(d) / stats::qt(res$p.value /
2,
res$parameter)
UL <- d + (stats::qt(((
100 - (100 * ciWidth)
) / 100) / 2,
res$parameter)) * abs(d) / stats::qt(res$p.value /
2,
rest$parameter)
Code: Select all
LL <- d - (stats::qt(((
100 - (ciWidth)
) / 100) / 2,
stud$parameter)) * abs(d) / stats::qt(stud$p.value /
2,
stud$parameter)
UL <- d + (stats::qt(((
100 - (100 * ciWidth)
) / 100) / 2,
stud$parameter)) * abs(d) / stats::qt(stud$p.value /
2,
stud$parameter)