fix(Utils): return the truncated integer value of the mean time step from .GetFeatModel

Refs #106

R/Utils.R

@@ -60,7 +60,7 @@
                                monthly = 365.2425 / 12 * 24,
                                yearly  =      365.2425 * 24)
     res$TimeStep     <- res$TimeStep * 3600
-    res$TimeStepMean <- res$TimeStepMean * 3600
+    res$TimeStepMean <- as.integer(res$TimeStepMean * 3600)
     res$Class <- c(res$TimeUnit, res$Class)
     if (grepl("CemaNeige", res$NameFunMod)) {
       res$Class <- c(res$Class, "CemaNeige")