Advertisement
Guest User

Untitled

a guest
Jun 25th, 2019
67
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.41 KB | None | 0 0
  1. r <- raster(matrix(rep(3, 100),100,100))
  2. r[sampleRandom(r, 50, cells = TRUE)[, 'cell']] <- 1
  3. r[sampleRandom(r, 10, cells = TRUE)[, 'cell']] <- 2
  4. r[r == 3] <- NA
  5.  
  6. r_agg <- raster::aggregate(r, fact = factor, fun = function(x,...){
  7. ifelse(x[x == 1], length(na.omit(x))/2^2, (length(na.omit(x))/2^2)/2)
  8. })
  9.  
  10. Error in setValues(out, v) :
  11. values must be numeric, integer, logical or factor
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement