R/rowMeans-method.R

In magclass: Data Class and Tools for Handling Spatial-Temporal Data

#' @exportMethod rowMeans
#'
setMethod("rowMeans",
  signature(x = "magpie"),
  function(x, na.rm = FALSE, dims = 1, ...) { #nolint
    out <- rowMeans(as.array(x), na.rm = na.rm, dims = dims, ...)
    out <- as.magpie(as.array(x))
    return(out)
  }
)