# \donttest{
tamiasEPM
tamiasEPM <- addTraits(tamiasEPM, tamiasTraits)
z <- betadiv_disparity(tamiasEPM, radius = 150000)
plot(z)
# using square grid epmGrid
tamiasEPM2 <- createEPMgrid(tamiasPolyList, resolution = 50000,
cellType = 'square', method = 'centroid')
tamiasEPM2 <- addTraits(tamiasEPM2, tamiasTraits)
z2 <- betadiv_disparity(tamiasEPM2, radius = 150000)
terra::plot(z2, col = sf::sf.colors(100))
# }
Run the code above in your browser using DataLab