7.41

ci_u <- 2.559 + (qt(.975, df = 18) * .39)
ci_l <- 2.559 - (qt(.975, df = 18) * .39)

list(ci_u, ci_l)
## [[1]]
## [1] 3.37836
## 
## [[2]]
## [1] 1.73964