iccsa-21-wind

commit 5d2c87e2a4c55fb981767c4e6715bfd1597b38fe
parent 78f7a75a1bb9f8c515776f8ca10158762484d57e
Author: Ivan Gankevich <i.gankevich@spbu.ru>
Date:   Sun, 18 Apr 2021 00:54:19 +0300

Fix time_delta argument.

Diffstat:
R/acf-min-max.R
 | 
2
+-
R/direction-min-max.R
 | 
2
+-

2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/R/acf-min-max.R b/R/acf-min-max.R
@@ -2,7 +2,7 @@ source("R/common.R")
 
 time_delta = 60*60*2
 for (timestamp in c(1614920400, 1615388400, 1614135600, 1616058000, 1614430800, 1614452400)) {
-  velocity <- select_samples(timestamp, timestamp+time_delta)
+  velocity <- select_samples(timestamp, time_delta)
   path <- file.path('build', 'acf')
   dir.create(path, recursive=TRUE)
   filename <- file.path(path, sprintf("%d-hist-xy", timestamp))
diff --git a/R/direction-min-max.R b/R/direction-min-max.R
@@ -7,7 +7,7 @@ t_min_rmse <- direction_rmse_min_timestamp
 t_max_rmse <- direction_rmse_max_timestamp
 time_delta = 60*60*2
 for (timestamp in c(t_min_rmse, t_max_rmse)) {
-  velocity <- select_samples(timestamp, timestamp+time_delta)
+  velocity <- select_samples(timestamp, time_delta)
   path <- file.path('build', 'direction')
   dir.create(path, recursive=TRUE)
   filename <- file.path(path, sprintf("%d-hist-xy", timestamp))