Ticket #273: matVeh_MMS_MDF.error.tol

//////////////////////////////////////////////////////////////////////////////
// FILE : matVeh_MMS_MDF.error.tol
// PURPOSE: generar un previsión, que al ser guardada y recuperada, no 
//  devuelve correctamente algunas variables
//////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
// PARAMETERS
//////////////////////////////////////////////////////////////////////////////

// define paths
Text PathMMS = "C:/Users/jconde/bsd/entity/PrjBysForBysMMS/";
Text PathMMSSamples = PathMMS + "trunk/samples/ARIMAX_matVeh/";
Text PathSaveResults = "C:/temp/";

// Compile example
Set Include(PathMMSSamples + "funPrj.tol");
Set Include(PathMMSSamples + "matVeh_MMS_MDV.tol");
Set Include(PathMMSSamples + "matVeh_MMS_MDM.tol");
Set Include(PathMMSSamples + "matVeh_MMS_MEM_BSR.tol");

//////////////////////////////////////////////////////////////////////////////
// FUNCTIONS
//////////////////////////////////////////////////////////////////////////////

Set AllResults_FOR(Real void){
  Copy(
    EvalSet(
      Select(MMS::GetEstimations(?), Real(NameBlock est)
      {
        And(est::HasResults(?), ClassOf(est)=="@MMS.Forecast")
      }), Set(NameBlock est)
      {
        Text name = est::GetIndex(?);
        Set subMs = est::GetModelResults(?)::GetSubmodels(?);
        Set mainResults = (subMs[1])::GetMainResults(?);
      
        Date iniFor = (subMs[1])::GetForecastFirst(?);
        Date endFor = (subMs[1])::GetForecastLast(?);
      
        Set resultsEST = EvalSet(mainResults, Serie(Serie ser)
        {
          Serie serEST = SubSer(ser, First(ser), Succ(iniFor, Dating(ser), -1));
          Eval("Serie "+ Name(ser) +".EST = serEST;")
        });
      
        Set resultsFOR = EvalSet(mainResults, Serie(Serie ser)
        {
          Serie serFOR = SubSer(ser, iniFor, endFor);
          Eval("Serie "+ Name(ser) +".FOR = serFOR;")
        });
      
        Set effects     = (subMs[1])::GetEffects(?);
        Eval("Set "+ name +" = resultsEST << resultsFOR <<
             [[iniFor, endFor]] <<
             [[ effects, mainResults ]];")
      }
    )
  )
};



//////////////////////////////////////////////////////////////////////////////
// CODE
//////////////////////////////////////////////////////////////////////////////



// fore creation
Real MMS::CreateForecast([[
  Text _.name = "F.Avr";
  @MMS.Estimation _.estimation = estBSR;
  @MMS.SettingsEstimate _.settings = [[
    Real _.showTraces = True
  ]]
]]);

@MMS.Forecast forecast = MMS::GetEstimation(
  Replace(estBSR::GetIndex(?), "BSR", "F.Avr")
);

// forecasting interval
Real forecast::SetForecastInterval( 
  ?,
  y2009m05d01,
  y2009m06d01
);

// fore execution
Real forecast::Execute(?);

// saving estimations and forecastings!
Text nameEst = estBSR::GetIndex(?);
Text nameFor = forecast::GetIndex(?);
Real estBSR::Store(PathSaveResults + nameEst +".oza");
Real forecast::Store(PathSaveResults + nameFor +".oza");

// Forecasting results (series)
Set Results = AllResults_FOR(?);



//////////////////////////////////////////////////////////////////////////////
// REMOVE ESTIMATIONS
//////////////////////////////////////////////////////////////////////////////

Real MMS::RemoveEstimations(?);
Real MMS::RemoveModels(?);
Real MMS::RemoveVariables(?);


// includes some needed variables
Set Include(PathMMSSamples + "funPrj.tol");


// load estimations
Real MMS::LoadFile(PathSaveResults + nameEst + ".oza");
Real MMS::LoadFile(PathSaveResults + nameFor + ".oza");

// Forecasting results (series)
Set ResultsFromSavedEstimations = AllResults_FOR(?);