1 | con3way(J, K, L)
|
J |
|
K |
|
L |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | ##---- 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)
{
cj = cjMAT(J)
ck = cjMAT(K)
cl = cjMAT(L)
ij <- matrix(c(rep(1, J)), 1, J)
ik <- matrix(c(rep(1, K)), 1, K)
il <- matrix(c(rep(1, L)), 1, L)
conA = t(kron(cj, kron(ik, il)))
conB = t(kron(ij, kron(ck, il)))
conC = t(kron(ij, kron(ik, cl)))
conAB = kron(cj, kron(ck, il))
conAC = kron(cj, kron(ik, cl))
conBC = kron(ij, kron(ck, cl))
conABC = kron(cj, kron(ck, cl))
list(conA = conA, conB = conB, conC = conC, conAB = t(conAB),
conAC = t(conAC), conBC = t(conBC), conABC = t(conABC))
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.