Displaying 1 result from an estimated 1 matches for "sampno".
Did you mean:
samplo
2002 Mar 22
0
sequential t-test - replies
...tical values ( 'U0'
and 'U1' in Davies )
#
lik <- lhs - (exp(-0.5 * (DELTA^2) * (N - U^2)) * Hh(N -
1, - DELTA * U))/Hh(N - 1)
lik
}
#
#
#
U0 <- U1 <- rep(NA, maxn)
#
SampNo <- 1:maxn
#
# for each n in the required sequence, get the critical values U0
and U1
#
for(n in minn:maxn) {
U1[n] <- uniroot(Lik, lower = bot, upper = top, N = n,
DELTA = delta, lhs = (1 - beta)/alpha)$root
U0[n] <- uniroot...