R/matrix_sum.R

In aammd/netwerk: Werks with Networks

Defines functions matrix_sum

Documented in matrix_sum

#' Title
#'
#' @param x
#'
#' @return
#' @export
matrix_sum <- function(x) {
  if (is.matrix(x) != T) {stop("Not a matrix!")}
  return(sum(x))
}