平均函数的标准误差

时间:2014-03-05 00:39:03

标签: sql vba ms-access ms-access-2010 scientific-computing

如何计算MS Access中均值的标准误差?以下是我的想法:

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

在此示例中,qryAvgGROP返回一组平均值,这些平均值在上面的代码中再次取平均值。因此我需要均值的标准误差,而不是标准差,所以我不能使用StDev()函数。

1 个答案:

答案 0 :(得分:-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))

结束功能