R/fbtr.R

In mixmeta: An Extended Mixed-Effects Framework for Meta-Analysis

###
### 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
}