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)
},
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)
},