daily pastebin goal
26%
SHARE
TWEET

Untitled

a guest Jun 13th, 2018 49 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. result$mean   <- extract(raster, polygons, weights=T, na.rm=F, fun=mean)
  2. result$cells  <- unlist(lapply(extract(raster, polygons, weights=T, na.rm=F),
  3.                         FUN = function(x)(length(x[,1]))))
  4. results$zeros <- unlist(lapply(extract(raster, polygons, weights=T, na.rm=F),
  5.                         FUN = function(x)(sum(x[,1]==0))))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top