R/matrix_addition.R

In aammd/netwerk: Werks with Networks

#' Sum a matrix
#'
#' This function sums up one numeric matrix
#'
#' @param matrix The matrix to be summed
#'
#' @return Integer
#' @export
sum_matrix <- function(matrix){

  # sum the matrix
  sum <- sum(matrix)

  return(sum)
}