Commit a914dfc6 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

feat(Utils): return a mean time step from .GetFeatModel

Refs #106
parent da2680b0
Pipeline #21796 passed with stages
in 8 minutes and 42 seconds
......@@ -54,7 +54,13 @@
daily = 1 * 24,
monthly = 28:31 * 24,
yearly = 365:366 * 24)
res$TimeStepMean <- switch(res$TimeUnit,
hourly = 1,
daily = 1 * 24,
monthly = 365.2425 / 12 * 24,
yearly = 365.2425 * 24)
res$TimeStep <- res$TimeStep * 3600
res$TimeStepMean <- res$TimeStepMean * 3600
res$Class <- c(res$TimeUnit, res$Class)
if (grepl("CemaNeige", res$NameFunMod)) {
res$Class <- c(res$Class, "CemaNeige")
......
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