Commit 0dc5580b authored by Johannes Knoch's avatar Johannes Knoch
Browse files

the functions from save_files.r are now used in outer_procedure.r

parent f7e7de27
...@@ -493,32 +493,31 @@ multi_Class_Sampling <- function(in.raster, ...@@ -493,32 +493,31 @@ multi_Class_Sampling <- function(in.raster,
if ( save_runs == TRUE) { if ( save_runs == TRUE) {
run1 <- maFo_rf run1 <- maFo_rf
save(run1, file = paste(outPath, paste("Run", ni, sep = ""), sep = "")) save_run(outPath,
ni,
run1)
remove(run1) remove(run1)
} }
###rgdal version issue ###rgdal version issue
not_good_workaround <- comment(dummy@crs) # not_good_workaround <- comment(dummy@crs)
comment(dummy@crs) <- "" # comment(dummy@crs) <- ""
### ###
raster::writeRaster( save_class_tiff(outPath,
dummy, ni,
filename = paste(outPath, classNames,
paste("step_", index,
ni, dummy,
paste("_", classNames[index], sep = ""), overwrite)
".tif",
sep = ""),
sep = ""),
format = "GTiff",
overwrite = overwrite)
###rgdal version issue ###rgdal version issue
comment(dummy@crs) <- not_good_workaround # comment(dummy@crs) <- not_good_workaround
### ###
kml <- raster::projectRaster(dummy, save_kml(outPath,
crs = "+proj=longlat +datum=WGS84", ni,
method = 'ngb') dummy,
raster::KML(kml, paste(outPath, paste("step_", ni, sep = ""), sep = ""), overwrite = overwrite, zip = FALSE) overwrite)
print(paste(wkt(maFo_rf@layer[[1]])))
thres <- as.numeric(decision) thres <- as.numeric(decision)
thres <- thres + num_models thres <- thres + num_models
......
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