Commit 7b7702a7 authored by Romulo Pereira Goncalves's avatar Romulo Pereira Goncalves
Browse files

Full collection

parent 8ce8abea
......@@ -295,7 +295,7 @@ sample_nb <- function(raster,
remove(mod_all)
remove(dif)
remove(seed2)
gc()
gc(full = TRUE)
out <- list(index = index, acc = acc, obj = obj)
return(out)
......
......@@ -363,7 +363,7 @@ multi_Class_Sampling <- function(in.raster,
sep = ""))
}
# Release memory
gc()
gc(full = TRUE)
if (i == r) {
print("Congratulation - you finally made it towards the last habitat")
......
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