From 2f60b0667e0c67aff70a04686c44809c2dbf2f55 Mon Sep 17 00:00:00 2001
From: vwmaus <vwmaus1@gmail.com>
Date: Tue, 11 Oct 2022 13:36:38 +0200
Subject: [PATCH] Fixes bug in conversion of type dates

---
 R/resampleTimeSeries.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/resampleTimeSeries.R b/R/resampleTimeSeries.R
index 4a8c595..d310a9f 100644
--- 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)
 }