# NOT RUN {
# load required data
data(cat_ls)
# convert data to object of class winmove
cat_ls <- new("winmove", cat_ls)
# calculate Shannon diversity in a rectangular window of dimension 5
d <- shdi(cat_ls, d = 5, type = "rectangle", lc_class = 1:4)
# convert data to object of class numeric
cat_ls <- raster::values(cat_ls)
# calculate Shannon evenness
d <- shei(cat_ls, lc_class = 1:4)
# }
Run the code above in your browser using DataLab