1  | bwwcovm(J, K, L, x, tr = 0.2)
 | 
J | 
|
K | 
|
L | 
|
x | 
|
tr | 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17  | ##---- 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, tr = 0.2) 
{
    p = J * K * L
    idep = K * L
    mat = matrix(0, nrow = p, ncol = p)
    id = c(1:idep)
    for (j in 1:J) {
        mat[id, id] = covmtrim(x[id], tr = tr)
        id = id + idep
    }
    mat
  }
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.