如何在Excel中实现单样本t检验

如题所述

第1个回答推荐于2016-09-08

　　自己写了一个单样本t检验的自定义函数
　　Public Function 单样本t检验(RowData As Range, StandardValue As Double, _
Optional symbol As Variant = "=", Optional Probability As Double = 0.05) As String
Dim Ave As Double, Stdev As Double, t As Double, tinv As Double
Dim Numb As Integer

Numb = RowData.Count
Ave = Application.WorksheetFunction.Average(RowData)
Stdev = Application.WorksheetFunction.Stdev(RowData)
t = (Ave - StandardValue) / (Stdev / Sqr(Numb))

If (symbol = "=") Then ''''单样本双侧t检验
tinv = Application.WorksheetFunction.tinv(Probability, Numb - 1)
If (Abs(t) <= tinv) Then
单样本t检验 = "接受" & "“" & "等于" & StandardValue & "”" & "的假设。"
Else: 单样本t检验 = "不接受" & "“" & "等于" & StandardValue & "”" & "的假设。"
End If
ElseIf (symbol Like "<") Then ''''单样本右侧t检验
Probability = 0.025
tinv = Application.WorksheetFunction.tinv(2 * Probability, Numb - 1)
If (t <= tinv) Then
单样本t检验 = "接受" & "“" & "小于" & StandardValue & "”" & "的假设。"
Else: 单样本t检验 = "不接受" & "“" & "小于" & StandardValue & "”" & "的假设。"
End If
ElseIf (symbol Like ">") Then ''''单样本左侧t检验
tinv = Application.WorksheetFunction.tinv(2 * Probability, Numb - 1)
If (t >= tinv) Then
单样本t检验 = "接受" & "“" & "大于" & StandardValue & "”" & "的假设。"
Else: 单样本t检验 = "不接受" & "“" & "大于" & StandardValue & "”" & "的假设。"
End If
End If

End Function本回答被提问者和网友采纳

相似回答

Excel如何在Excel中实现单样本t检验excel单样本t值检验答：1.点击fx，类别选“统计”，找到TTEST。2.Array1;2分别选择要进行检验的两组数值，Tails一般填2(双尾检验);Type填1就是“配对t检验”，填2就是“等方差双样本检验”，填3就是“异方差双样本检验”。3.不懂的话，可以看填参数对话框下面的“有关该函数的帮助”

怎样用Excel做t检验如何用excell表进行t检验答：1. 准备数据：在Excel中，您需要准备两组数据作为独立样本t检验的样本。这两组数据应具有相同数量和类型的数据点。2. 选择数据：使用Excel中的数据选择器(即鼠标单击选择)或“数据”选项卡，选择您要执行t检验的数据。3. 点击“数据分析”按钮：在Excel的“数据分析”选项卡中，选择“t检验：双样本异...

如何在Excel中实现单样本t检验答：Public Function 单样本t检验(RowData As Range, StandardValue As Double, _Optional symbol As Variant = "=", Optional Probability As Double = 0.05) As String Dim Ave As Double, Stdev As Double, t As Double, tinv As Double Dim Numb As Integer Numb = RowData.Count Ave = Appl...