R：獲取相同的CI輸出以進行手動t檢驗和t.test

Question

我一直無法使我的手動t檢驗腳本輸出與t.test相同的結果。我的錯誤的任何想法？

set.seed(100) 
x <- rnorm(10, 1, 1) 
t.test(x, mu=0, alternative="less") 
## One Sample t-test 
## 
## data: x 
## t = 5.5345, df = 9, p-value = 0.9998 
## alternative hypothesis: true mean is less than 0 
## 95 percent confidence interval: 
##  -Inf 1.307313 
## sample estimates: 
## mean of x 
## 0.9820428 

# Manual CI calculation 
qt(0.95, df=length(x)-1) * sd(x)/sqrt(length(x)) 
## [1] 0.3252699 

Answer 1

你忘了添加樣本的意思。

qt(0.95, df=length(x)-1) * sd(x)/sqrt(length(x)) + mean(x) 
#[1] 1.307313