R/cleverTraceMat.R

In gRc: Inference in Graphical Gaussian Models with Edge and Vertex Symmetries

##############################################
trA <- function(A){
  if (ncol(A)==1)
    return(nrow(A))
  else
    return(0)
}
##############################################

##############################################
trAWB <- function(A,W,B){
  .Call("trAWB", A, W, B, PACKAGE="gRc")
}
##############################################


##############################################
 trAWBW <- function(A,W,B){
   .Call("trAWBW", A, W, B, PACKAGE="gRc")
 }
##############################################


##############################################
trAW <- function(A, W){
  .Call("trAW", A, W, PACKAGE="gRc")
}
##############################################


##############################################
trAWBV <- function(A,W,B,V){
  .Call("trAWBV", A, W, B, V, PACKAGE="gRc")
}
##############################################


##############################################
# extractIndexMatrix <- function(x, y) {
#   storage.mode(x) <- storage.mode(y) <- "double"
#   .Call("eim", x, y, PACKAGE="gRc")
# }
##############################################