mm_mem gapfilling

/home/rainerh/Dokumente/datadisk/OpenCode/r/icpf_mm/mm_mem_gapfilling.R

Dieses Skript soll nach mm_mem und mm_mem_evapotranspiration auf dem R-Server ausgeführt werden.

Es greift auf das Schema "fuk" zu und greift die DWD Daten ab. Diese werden dann genutzt um lineare Modelle anzupassen und die Lücken zu füllen.

Da wir die Modelle nicht jeden Tag neu fitten wollen (oder?) müsste man sich überlegen ob man das R-Objekt

  mod = gam(y ~ s(x), data = zz)

auf dem Server ablegt. Vielleicht aber doch besser es jedes Mal neu zu erstellen?

Dann sind in dem Skript noch einige Ausgaben die wir nicht brauchen. Z.B. plot splines

Ich hätte aber gerne die mit den Bestimmtheitsmaßen:

  out <-paste("gapfilling_r2.csv",sep="_")
  write.table(r2,file.path(path_out1,out),sep=";",dec=",",col.names = T,row.names = F,na="")

Diese sollten wir mittelfristig in einem Reiter "Datenqualität" darstellen und das gap-filling beschreiben, oder?

Dann sollte das Skript laufen auch wenn keine aktuellen Daten für die Lücken vorliegen.

Ziel wäre, dass ich vorerst einmal die Woche die DWD Daten ergänze und die Routine dann Futter kriegt und die Lücken mit der +20000 Kennung füllt.