1 |
J |
|
K |
|
L |
|
x |
|
est |
|
JKL |
|
alpha |
|
grp |
|
nboot |
|
bhop |
|
SEED |
|
... |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (J, K, L, x, est = tmean, JKL = J * K * L, alpha = 0.05,
grp = c(1:JKL), nboot = 2000, bhop = FALSE, SEED = TRUE,
...)
{
con = con3way(J, K, L)
A = bbwmcppb.sub(J = J, K = K, L = L, x, est = est, con = con$conA,
alpha = alpha, nboot = nboot, bhop = bhop, SEED = SEED,
grp = grp, ...)
B = bbwmcppb.sub(J = J, K = K, L = L, x, est = est, con = con$conB,
alpha = alpha, nboot = nboot, bhop = bhop, SEED = SEED,
grp = grp, ...)
C = bbwmcppb.sub(J = J, K = K, L = L, x, est = est, con = con$conC,
alpha = alpha, nboot = nboot, bhop = bhop, SEED = SEED,
grp = grp, ...)
AB = bbwmcppb.sub(J = J, K = K, L = L, x, est = est, con = con$conAB,
alpha = alpha, nboot = nboot, bhop = bhop, SEED = SEED,
grp = grp, ...)
AC = bbwmcppb.sub(J = J, K = K, L = L, x, est = est, con = con$conAC,
alpha = alpha, nboot = nboot, bhop = bhop, SEED = SEED,
grp = grp, ...)
BC = bbwmcppb.sub(J = J, K = K, L = L, x, est = est, con = con$conBC,
alpha = alpha, nboot = nboot, bhop = bhop, SEED = SEED,
grp = grp, ...)
ABC = bbwmcppb.sub(J = J, K = K, L = L, x, est = est, con = con$conABC,
alpha = alpha, nboot = nboot, bhop = bhop, SEED = SEED,
grp = grp, ...)
list(Fac.A = A, Fac.B = B, Fac.C = C, Fac.AB = AB, Fac.AC = AC,
Fac.BC = BC, Fac.ABC = ABC)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.