R/matrix_addition.R

In AlienorStahl/netwerk: Calculate network things

Defines functions sum_matrix

Documented in sum_matrix

#' Test
#'
#' @param x Matrix to be tested
#'
#' @return The sum
#' @export
#'
#' @examples
sum_matrix <- function(x) {
  # summing the matrix
  if (is.matrix(x) != T) {stop("Not a matrix!")}
  return(sum(x))
}