1 |
J |
|
K |
|
x |
|
alpha |
|
con |
|
est |
|
plotit |
|
dif |
|
grp |
|
nboot |
|
BA |
|
hoch |
|
xlab |
|
ylab |
|
pr |
|
SEED |
|
... |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | ##---- 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, alpha = 0.05, con = 0, est = tmean, plotit = FALSE,
dif = TRUE, grp = NA, nboot = NA, BA = TRUE, hoch = TRUE,
xlab = "Group 1", ylab = "Group 2", pr = TRUE, SEED = TRUE,
...)
{
conM = con2way(J, K)
A = rmmcppb(x, con = conM$conA, alpha = alpha, dif = dif,
plotit = plotit, est = est, nboot = nboot, BA = BA, hoch = hoch,
SEED = SEED, xlab = xlab, ylab = ylab, pr = pr, ...)
B = rmmcppb(x, con = conM$conB, alpha = alpha, dif = dif,
plotit = plotit, est = est, nboot = nboot, BA = BA, hoch = hoch,
SEED = SEED, xlab = xlab, ylab = ylab, pr = pr, ...)
AB = rmmcppb(x, con = conM$conAB, alpha = alpha, dif = dif,
plotit = plotit, est = est, nboot = nboot, BA = BA, hoch = hoch,
SEED = SEED, xlab = xlab, ylab = ylab, pr = pr, ...)
list(Factor_A = A, Factor_B = B, Factor_AB = AB)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.