projects
/
talweg.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix R6 classes
[talweg.git]
/
pkg
/
R
/
Data.R
diff --git
a/pkg/R/Data.R
b/pkg/R/Data.R
index
677d906
..
e33e480
100644
(file)
--- a/
pkg/R/Data.R
+++ b/
pkg/R/Data.R
@@
-30,7
+30,7
@@
#' \item{\code{getExo(index)}}
#' {Get exogenous variables at specified index.}
#' \item{\code{getExoHat(index)}}
#' \item{\code{getExo(index)}}
#' {Get exogenous variables at specified index.}
#' \item{\code{getExoHat(index)}}
-#' {Get estimated exogenous variables at specified index.}
}
+#' {Get estimated exogenous variables at specified index.}}
Data = R6::R6Class("Data",
private = list(
.data = list()
Data = R6::R6Class("Data",
private = list(
.data = list()
@@
-42,7
+42,7
@@
Data = R6::R6Class("Data",
getStdHorizon = function()
24 - as.POSIXlt( private$.data[[1]]$time[1] )$hour + 1
,
getStdHorizon = function()
24 - as.POSIXlt( private$.data[[1]]$time[1] )$hour + 1
,
- append = function(
+ append = function(
new_time, new_centered_serie, new_level, new_exo, new_exo_hat)
{
private$.data[[length(private$.data)+1]] <- list(
"time"=new_time, "centered_serie"=new_centered_serie, "level"=new_level,
{
private$.data[[length(private$.data)+1]] <- list(
"time"=new_time, "centered_serie"=new_centered_serie, "level"=new_level,