| 1 | 
| J | |
| K | |
| x | |
| est | |
| JK | |
| 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 | ##---- 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, x, est = tmean, JK = J * K, alpha = 0.05, grp = c(1:JK), 
    nboot = 500, bhop = TRUE, SEED = TRUE, ...) 
{
    con = con2way(J, K)
    A = bwmcppb.sub(J = J, K = K, x, est = est, JK = J * K, con = con$conA, 
        alpha = alpha, grp = c(1:JK), nboot = nboot, bhop = bhop, 
        SEED = SEED, ...)
    B = bwmcppb.sub(J = J, K = K, x, est = est, JK = J * K, con = con$conB, 
        alpha = alpha, grp = c(1:JK), nboot = nboot, bhop = bhop, 
        SEED = SEED, ...)
    AB = bwmcppb.sub(J = J, K = K, x, est = est, JK = J * K, 
        con = con$conAB, alpha = alpha, grp = c(1:JK), nboot = nboot, 
        bhop = bhop, SEED = SEED, ...)
    list(Fac.A = A, Fac.B = B, Fac.AB = AB)
  }
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.