# NOT RUN {
session_grid(NULL)
b <- ursa_dummy(nband=7,min=0,max=100,mul=1/16)
b[b<40] <- NA
print(b)
res <- c('mean'=mean(b),'local_mean'=local_mean(b)
,'sum0'=local_sum(b,cover=0),'sum1'=local_sum(b,cover=1))
print(res)
display(b)
display(res)
# }
Run the code above in your browser using DataLab