Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- r <- raster(matrix(rep(3, 100),100,100))
- r[sampleRandom(r, 50, cells = TRUE)[, 'cell']] <- 1
- r[sampleRandom(r, 10, cells = TRUE)[, 'cell']] <- 2
- r[r == 3] <- NA
- r_agg <- raster::aggregate(r, fact = factor, fun = function(x,...){
- ifelse(x[x == 1], length(na.omit(x))/2^2, (length(na.omit(x))/2^2)/2)
- })
- Error in setValues(out, v) :
- values must be numeric, integer, logical or factor
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement