if(requireNamespace("terra", quietly = TRUE)){
require(torch)
require(terra)
#Multiclass example
#Generate example data as SpatRasters
ref <- terra::rast(matrix(sample(c(1, 2, 3), 625, replace=TRUE), nrow=25, ncol=25))
pred <- terra::rast(matrix(sample(c(1, 2, 3), 625, replace=TRUE), nrow=25, ncol=25))
#Calculate metrics
metsOut <- assessRaster(reference=ref,
predicted=pred,
multiclass=TRUE,
mappings=c("Class A", "Class B", "Class C"),
decimals=4)
print(metsOut)
#Binary example
#Generate example data as SpatRasters
ref <- terra::rast(matrix(sample(c(0, 1), 625, replace=TRUE), nrow=25, ncol=25))
pred <- terra::rast(matrix(sample(c(0, 1), 625, replace=TRUE), nrow=25, ncol=25))
#Calculate metrics
metsOut <- assessRaster(reference=ref,
predicted=pred,
multiclass=FALSE,
mappings=c("Background", "Positive"),
decimals=4)
print(metsOut)
}
Run the code above in your browser using DataLab