平均函数的标准误差

Question

如何计算MS Access中平均值的标准误差？以下是我心目中：

SELECT 
Avg(qryAvgGROP.PctGROP_MCAR) AS AvgAvgGROP_MCAR 
StandardError(qryAvgGROP.PctGROP_MCAR) AS SemAvgGROP_MCAR 
FROM qryAvgGROP; 

在这个例子中，qryAvgGROP返回一组平均值，这是再次平均在上面的代码中。因此，我需要平均值的标准误差，而不是标准偏差，所以我不能使用StDev（）函数。

Answer 1

好的。那么这里有一个VBA函数来计算标准偏差。正如你意识到方程的不同，也许你可以编辑这个来适应你的需求。如果你不知道如何在访问中使用你自己的VBA功能，那里有很多资源，或者我很乐意提供帮助。

Function StdDev(k As Long, Arr() As Single) 
Dim i As Integer 
Dim avg As Single, SumSq As Single 

avg = Mean(k, Arr) 
For i = 1 To k 
     SumSq = SumSq + (Arr(i) - avg)^2 
Next i 

StdDev = Sqr(SumSq/(k - 1)) 

端功能