Nothing
###
### R routines for the R package mixmeta (c)
#
fbtr <-
function(A,k) {
#
################################################################################
# FUNCTION TO COMPUTE THE (BLOCK-DIAGONAL) TRACE OF A MATRIX
btrA <- 0
for(i in seq(dim(A)[1]/k)) {
ind <- (i-1)*k+1:k
btrA <- btrA + A[ind,ind]
}
#
btrA
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.