R/cleverTraceMat.R

Defines functions trAWBV trAW trAWBW trAWB trA

Documented in trA trAW trAWB trAWBV trAWBW

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

Try the gRc package in your browser

Any scripts or data that you put into this service are public.

gRc documentation built on May 29, 2017, 12:33 p.m.