```
set.seed(642)
A <- rnorm(10, 0, 1)
B <- rnorm(10, 1, 2)
t.test(A,B)
ci.A <- t.test(A)$conf
ci.B <- t.test(B)$conf
df <- data.frame(means = c(mean(A), mean(B)), low = c(ci.A[1], ci.B[1]), high = c(ci.A[2], ci.B[2]))
df
# t-test for a difference is not significant
# conf int for A doesn't include point estimate for B
# conf int for B does include point estimate for A
set.seed(642)
A <- rnorm(10, 0, 1)
B <- rnorm(10, 1, 1)
t.test(A,B)
ci.A <- t.test(A)$conf
ci.B <- t.test(B)$conf
df <- data.frame(means = c(mean(A), mean(B)), low = c(ci.A[1], ci.B[1]), high = c(ci.A[2], ci.B[2]))
df
# ttest for difference is not significant
# both conf ints don't contain the other point estimate but overlap
set.seed(642)
A <- rnorm(10, 0, 1)
B <- rnorm(10, 1.45, 1)
t.test(A,B)
ci.A <- t.test(A)$conf
ci.B <- t.test(B)$conf
df <- data.frame(means = c(mean(A), mean(B)), low = c(ci.A[1], ci.B[1]), high = c(ci.A[2], ci.B[2]))
df
# ttest for difference is significant
# confidence intervals do overlap slightly but neither interval contains the other point estimate
```