| 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 = bbbmcppb.sub(J = J, K = K, L = L, x, est = est, con = con$conA, 
        alpha = alpha, nboot = nboot, bhop = bhop, SEED = SEED, 
        grp = grp, ...)
    B = bbbmcppb.sub(J = J, K = K, L = L, x, est = est, con = con$conB, 
        alpha = alpha, nboot = nboot, bhop = bhop, SEED = SEED, 
        grp = grp, ...)
    C = bbbmcppb.sub(J = J, K = K, L = L, x, est = est, con = con$conC, 
        alpha = alpha, nboot = nboot, bhop = bhop, SEED = SEED, 
        grp = grp, ...)
    AB = bbbmcppb.sub(J = J, K = K, L = L, x, est = est, con = con$conAB, 
        alpha = alpha, nboot = nboot, bhop = bhop, SEED = SEED, 
        grp = grp, ...)
    AC = bbbmcppb.sub(J = J, K = K, L = L, x, est = est, con = con$conAC, 
        alpha = alpha, nboot = nboot, bhop = bhop, SEED = SEED, 
        grp = grp, ...)
    BC = bbbmcppb.sub(J = J, K = K, L = L, x, est = est, con = con$conBC, 
        alpha = alpha, nboot = nboot, bhop = bhop, SEED = SEED, 
        grp = grp, ...)
    ABC = bbbmcppb.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.