projects
/
talweg.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
updated report for 01/03
[talweg.git]
/
R
/
Data.R
diff --git
a/R/Data.R
b/R/Data.R
index
311453b
..
a17e262
100644
(file)
--- a/
R/Data.R
+++ b/
R/Data.R
@@
-42,36
+42,42
@@
Data = setRefClass(
{
"Get time values at specified index"
{
"Get time values at specified index"
+ index = dateIndexToInteger(index, .self)
data[[index]]$time
},
getCenteredSerie = function(index)
{
"Get serie values (centered) at specified index"
data[[index]]$time
},
getCenteredSerie = function(index)
{
"Get serie values (centered) at specified index"
+ index = dateIndexToInteger(index, .self)
data[[index]]$serie
},
getLevel = function(index)
{
"Get level for the serie at specified index"
data[[index]]$serie
},
getLevel = function(index)
{
"Get level for the serie at specified index"
+ index = dateIndexToInteger(index, .self)
data[[index]]$level
},
getSerie = function(index)
{
"Get serie values (centered+level) at specified index"
data[[index]]$level
},
getSerie = function(index)
{
"Get serie values (centered+level) at specified index"
+ index = dateIndexToInteger(index, .self)
data[[index]]$serie + data[[index]]$level
},
getExoHat = function(index)
{
"Get exogeous predictions at specified index"
data[[index]]$serie + data[[index]]$level
},
getExoHat = function(index)
{
"Get exogeous predictions at specified index"
+ index = dateIndexToInteger(index, .self)
data[[index]]$exo_hat
},
getExoDm1 = function(index)
{
"Get exogenous measures the day before specified index"
data[[index]]$exo_hat
},
getExoDm1 = function(index)
{
"Get exogenous measures the day before specified index"
+ index = dateIndexToInteger(index, .self)
data[[index]]$exo_Dm1
}
)
data[[index]]$exo_Dm1
}
)