Fixes bug in conversion of type dates

r-spatial · Oct 11, 2022 · 2f60b06 · 2f60b06
1 parent cb685b3
commit 2f60b06
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/resampleTimeSeries.R b/R/resampleTimeSeries.R
@@ -50,9 +50,9 @@ setMethod("resampleTimeSeries", "twdtwTimeSeries",
           })
 
 resampleTimeSeries.twdtwTimeSeries = function(x, length){
-  labels = as.character(labels(x))
+  #labels = as.character(labels(x))
   dates = index(x)
-  freq = as.numeric(diff(range(dates)))/(length-1)
+  freq = trunc(as.numeric(diff(range(dates)))/(length-1))
   timeline = seq(min(dates, na.rm = TRUE), max(dates, na.rm = TRUE), by=freq)
   zoo(data.frame(na.spline(x, xout = timeline)), timeline)
 }