R/zero_mat.R

In ntyndall/cerebrum:

Defines functions zero_mat

Documented in zero_mat

#' @title Zero Mat
#'
#' @export


zero_mat <- function(x) {
  return(
    lapply(
      X = x,
      FUN = function(y) {
        y[] <- 0
        return(y)
      }
    )
  )
}