Ticket #1162: reload_parameters.tol

NameBlock est = ...; // objeto estimación 
Text path = ".../YYYY.MM.DD_HH.MM.SS/"; // ruta auxiliar de BSR 

Real burnin = est::GetStrategy(?)::GetSetting("mcmc.burnin");
NameBlock n = (Ois.Load(path<<"master.bsr.recover.oza")[1][1]);
Set colNames = EvalSet(n::_.colNames, Text (Text t) { PutName(t, t) });

Matrix mcmc = MatReadFile(path<<"master.bsr.mcmc.bbm");

//////////////////////////////////////////////////////////////////////////////
Anything ObtainParameter(MMS::@Parameter parameter, Set colNames, Matrix mcmc, 
  Text samplerName)
//////////////////////////////////////////////////////////////////////////////
{
  Text identifier = parameter::GetIdentifier(?);
  // Uso de MEquivalence
  Text bsrName = If(parameter::HasMEquivalence(?), {
    MMS::@MEquivalence mEquivalence = parameter::GetMEquivalence(?);
    If(mEquivalence::IsActive(?), {
      mEquivalence::GetIdentifier(?)
    }, {
      MMS::MMS.Get.Bsr.Name(parameter)
    })
  }, {
     MMS::MMS.Get.Bsr.Name(parameter)
  });
  Real idx = FindIndexByName(colNames, bsrName);    
  If(idx, {
    // Según sea el tipo de parámetros elegido se crea un tipo u otro 
    // de objeto RandVar::@Real.Random
    Matrix sample = SubCol(mcmc, [[idx]]); 
    NameBlock realR = RandVar::@Real.Sample::Sampler(sample, samplerName);
    MMS::PutLocalName(identifier, realR)
  }, {
    Case(parameter::IsFixed(?), {
      // Los parámetros Sigma2 fijos no se encuentran.
      MMS::PutLocalName(identifier, parameter::GetInitialValue(?))
    }, parameter::GetSubclass(?)=="Sigma2", {
      // A esta situación se llegaría 
      MMS::PutLocalName(identifier, Real 1)
    }, True, {
      Real MMS::MMS.Warning("No se ha encontrado el parámetro:\n"<<identifier
        <<"\nusando el nombre: '"<<bsrName<<"'.",
        "@ResultsAdapterBSR::ObtainParameter");
      MMS::PutLocalName(identifier, Real ?)
    })
  })
};

Set pars = EvalSet(MMS::MMS.SelectActive(est::GetModel(?)::GetParameters(?)), 
  Anything (NameBlock parameter) {
  ObtainParameter(parameter, colNames, mcmc, path)
});

Real est::SetParameters(pars);