R/get_mean_res.R

In hrvg/statisticalRoughness: Estimation of roughness exponents across scale for large areas

#' Compute the mean resolution of lat long raster in meters
#' @param r aggegated raster
#' @param L aggregation factor
#' @param crs.ref reference crs
#' @return numeric, mean resolution in m
#' @export
#' @keywords Hurst
get_mean_res <- function(r, L, crs.ref = crs_ref){
	crs_ref <- NULL
	.r <- raster::projectRaster(raster::raster(r), crs = crs.ref)
	mean_res <- mean(raster::res(.r)) / L
	return(mean_res)
}