fix Data acquisition; TODO: check CV for local method

[talweg.git] / pkg / R / Data.R

diff --git a/pkg/R/Data.R b/pkg/R/Data.R
index 8aa149d..4b1e1f3 100644 (file)
--- a/pkg/R/Data.R
+++ b/pkg/R/Data.R
@@ -75,7 +75,7 @@ Data = R6::R6Class("Data",
                                        # Complete current cell
                                        private$.tvp[[L]]$time <- c(private$.tvp[[L]]$time, time)
                                        private$.tvp[[L]]$serie <- c(private$.tvp[[L]]$serie, value)
-                                       private$.tvp[[L]]$level_hat <- c(private$.tvp[[L]]$levem_hat, level_hat)
+                                       private$.tvp[[L]]$level_hat <- c(private$.tvp[[L]]$level_hat, level_hat)
                                }
                        }
                        if (strftime( tail(private$.tvp[[length(private$.tvp)]]$time,1),