callSuper(...)
},
+ getSize = function()
+ {
+ "Number of individual forecasts"
+
+ length(pred)
+ },
append = function(new_serie, new_params, new_index)
{
"Obtain a new pair (serie, params)"
pred[[length(pred)+1]] <<- list("serie"=new_serie, "params"=new_params, "index"=new_index)
},
- getSize = function()
- {
- length(pred)
- },
getSerie = function(index)
{
- "Get serie values at specified index"
+ "Serie values at specified index"
pred[[index]]$serie
},
getParams = function(index)
{
- "Get params at specified index"
+ "Params at specified index"
pred[[index]]$params
},
getIndexInData = function(index)
{
- "Get (day) index in data where prediction took place"
+ "(day) Index in data where prediction took place"
pred[[index]]$index
}