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.