Commit d77b335b authored by Johannes Knoch's avatar Johannes Knoch
Browse files

Merge branch 'issue#29' into 'master'

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

See merge request !17
parents f7e7de27 fe92fdd8
Pipeline #24768 passed with stages
in 10 minutes and 48 seconds
...@@ -493,32 +493,23 @@ multi_Class_Sampling <- function(in.raster, ...@@ -493,32 +493,23 @@ 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
not_good_workaround <- comment(dummy@crs) save_class_tiff(outPath,
comment(dummy@crs) <- "" ni,
### classNames,
raster::writeRaster( index,
dummy, dummy,
filename = paste(outPath, overwrite)
paste("step_",
ni,
paste("_", classNames[index], sep = ""),
".tif",
sep = ""),
sep = ""),
format = "GTiff",
overwrite = overwrite)
###rgdal version issue save_kml(outPath,
comment(dummy@crs) <- not_good_workaround ni,
### dummy,
kml <- raster::projectRaster(dummy, overwrite)
crs = "+proj=longlat +datum=WGS84",
method = 'ngb')
raster::KML(kml, paste(outPath, paste("step_", ni, sep = ""), sep = ""), overwrite = overwrite, zip = FALSE)
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