R/mean.R

In sdcSpatial: Statistical Disclosure Control for Spatial Data

Defines functions sum.sdc_raster mean.sdc_raster

#' @export
mean.sdc_raster <- function(x, ...){
  r <- x$value
  r$sum/r$count
}

#' @export
sum.sdc_raster <- function(..., na.rm = TRUE){
  x <- list(...)[[1]]
  x$value$sum
}

Try the sdcSpatial package in your browser