# NOT RUN {
# load required data
data(cat_ls)
data(cont_ls)
# convert data to object of class winmove
cat_ls <- new("winmove", cat_ls)
# aggregate using a rectangular window with dimensions c(2,3)
d <- range(cont_ls, d = c(2,3), type = "rectangle")
# convert data to object of class numeric
cont_ls <- raster::values(cont_ls)
d <- range(cont_ls)
# }
Run the code above in your browser using DataLab