我试试，大大们也帮我检查下，谢谢
#正态分布
总体方差以知的情况下
    均值的置信区间
c(mean(x)-qnorm(1-alpha/2)*sigma/sqrt(n),mean(x)+qnorm(1-alpha/2)*sigma/sqrt(n))

总体方差未知：
    均值的置信区间
c(mean(x)-qt(1-alpha/2,df=n-1)*sd(x)/sqrt(n),mean(x) +qt(1-alpha/2,df=n-1)*sd(x)/sqrt(n))
或者t.test(x)$conf.int

方差的置信区间
c((n-1)*var(x)/qchisq(1-alpha/2,df=n-1),(n-1)*var(x)/qchisq(alpha/2,df=n-1))