if (sits_run_examples()) {
# read a shapefile for the state of Mato Grosso, Brazil
mt_shp <- system.file("extdata/shapefiles/mato_grosso/mt.shp",
package = "sits"
)
# convert to an sf object
mt_sf <- sf::read_sf(mt_shp)
# calculate sample-to-sample and sample-to-prediction distances
distances <- sits_geo_dist(
samples = samples_modis_ndvi,
roi = mt_sf
)
# plot sample-to-sample and sample-to-prediction distances
plot(distances)
}
Run the code above in your browser using DataLab