Commit 72c75989 authored by Romulo Pereira Goncalves's avatar Romulo Pereira Goncalves
Browse files

Merge branch 'performance' into 'classification_parallelism'

Performance

See merge request !6
parents b812f569 9760856d
classify <- function(j, channels, switch, models, raster) {
ch <- channels[j]
res <- raster::predict(object = raster, model = models[[ch]])
if (is.na(switch[ch]) == F) {
res <- raster::reclassify(res, rbind(c(0.5, 1.5, 2), c(1.6, 2.5, 1)))
}
return(res)
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment