I get this error code when running my code.
Code:
Option Base 1
Sub t_Dist()
CI = 95
TEST = Array(246, 235, 249, 215, 221, _
222, 210, 238, 201, 245, _
250, 215, 245, 243, 211, _
241, 234, 222, 204, 226)
u = 228.65
n = UBound(TEST)
Sum = 0
For i = 1 To n
Sum = Sum + TEST(i)
Diff2 = (TEST(i) - x_bar) ^ 2
Next i
x_bar = Sum / n
Diff2 = 0
For i = 1 To n
Diff2 = Diff2 + (TEST(i) - x_bar) ^ 2
Next i
sx_bar = s / (n ^ 0.5)
T1 = ((x_bar - u) / sx_bar)
Z1 = Z_CI(CI)
X1_bar = Z1 * sx_bar + x_bar
Z2 = -Z1
X2_bar = Z2 * sx_bar + x_bar
End Sub
Function Z_CI(CI)
Pi = Application.WorksheetFunction.Pi
imax = 1000
di = s / imax
LHS = (1 - CI / 100) / 2
SUM_Z = 0
For i = 1 To imax
Z = -4 + (i - 1) * di
SUM_Z = SUM_Z + di * Exp(-(Z ^ 2) / 2)
RHS = SUM_Z / ((2 * Pi) ^ 0.5)
If RHS > LHS Then Exit For
Next i
Z_CI = -Z
End Function
Last edited by a moderator: