Wolfram mathematica Wolfram Mathematica的置信区间

我对计算数据的置信区间感兴趣。例如，使用R：

data = c(1,0,2,1,2,0,1,0)
confidence_interv = (sd(data)/sqrt(8))*qnorm(.95)

其中8是数据数组的长度。 我想用Mathematica做同样的事情，也许用一种更快的方法。 并且，是否有可能绘制数据和单个数据周围的置信区间？ 谢谢

---

另请参见对该问题的不同解释

 Needs["HypothesisTesting`"]
 data = Table[RandomVariate[NormalDistribution[1, 1]], {2000}];
 ci = NormalCI[ Mean[data] , StandardDeviation[data], 
          ConfidenceLevel -> .99]

{-1.55307，3.58071}

顺便说一句，您也可以得到这样的间隔：（w/o加载

假设测试

包）

{-1.55307，3.58071}

Show[ListPlot[data], 
 Plot[{lm[x], 
   lm["SinglePredictionBands", ConfidenceLevel -> 0.95]}, {x, 0, 9}, 
  Filling -> {2 -> {1}}], PlotRange -> {Automatic, {-4, 6}}, 
 Frame -> True, ImageSize -> 300]

 Needs["HypothesisTesting`"]
 data = Table[RandomVariate[NormalDistribution[1, 1]], {2000}];
 ci = NormalCI[ Mean[data] , StandardDeviation[data], 
          ConfidenceLevel -> .99]

 Histogram[data,
   Epilog -> {Text[Style["99% confidence range", FontSize -> 20], {1, 100}],
              Red,Line[{{#, 0}, {#, 100}}] & /@ ci ,
              Arrowheads[{-.05, .05}], Arrow[{{ci[[1]], 70}, {ci[[2]], 70}}]}] 

  InverseCDF[
        NormalDistribution[Mean[data], StandardDeviation[data]],
            (1 + # {-1, 1})/2 &@.99 ]