WSL/SLF GitLab Repository

Commit c813ae69 authored by Adrien Michel's avatar Adrien Michel
Browse files

Added spatial correlation output

parent 16455572
......@@ -257,14 +257,14 @@ assessment.plot.calib.internal <- function (data.target.calib,
print("[I] Plotting spatial correlation")
start.time.2=Sys.time()
plt.spatial.correlation.calib(data.target.calib = data.target.calib,
data.training.calib = data.training.calib,
data.corrected.calib = data.corrected.calib,
data.target.valid = data.target.valid,
data.training.valid = data.training.valid,
data.corrected.valid = data.corrected.valid,
out.plot.dir = out.plot.dir, ncores = ncores,
dist.threshold = dist.threshold)
spatial.correlation <- plt.spatial.correlation.calib(data.target.calib = data.target.calib,
data.training.calib = data.training.calib,
data.corrected.calib = data.corrected.calib,
data.target.valid = data.target.valid,
data.training.valid = data.training.valid,
data.corrected.valid = data.corrected.valid,
out.plot.dir = out.plot.dir, ncores = ncores,
dist.threshold = dist.threshold)
print(paste("[I] Snow spatial correlation plot produced in",
as.numeric(round(difftime(Sys.time(),start.time.2, units = "mins"),2)),
"minutes"))
......@@ -289,7 +289,8 @@ assessment.plot.calib.internal <- function (data.target.calib,
#Print output and clean memory
out <- list("seasonnal.summary" = seasonnal.summary, "snow.season" = snow.season,
"snow.days" = snow.days, "snow.days.season" = snow.days.season)
"snow.days" = snow.days, "snow.days.season" = snow.days.season,
"spatial.correlation" = spatial.correlation)
out
saveRDS(out,paste0(out.plot.dir,"/summary_calib_valid.RDS"))
......
Supports Markdown
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