mlpack/fastlib/trunk/contrib/tqlong/GraphicalModel/gm_test.cpp

#include <iostream>
#include <fastlib/fastlib.h>
#include "gm.h"
using namespace std;

const fx_entry_doc gm_test_entries[] = {
  {"method", FX_PARAM, FX_STR, NULL,
   "  Inference method: naive (*), sum_product, msg_priority, msg_pending.\n"},
  {"iter", FX_PARAM, FX_INT, NULL,
   "  Maximum number of iterations: default 10.\n"},
  {"ctol", FX_PARAM, FX_DOUBLE, NULL,
   "  Change tolerance: default 1e-5.\n"},
  FX_ENTRY_DOC_DONE
};

const fx_submodule_doc gm_test_submodules[] = {
  FX_SUBMODULE_DOC_DONE
};

const fx_module_doc gm_test_doc = {
  gm_test_entries, gm_test_submodules,
  "This is a program generating sequences from HMM models.\n"
};

void testInference(fx_module*);

int main(int argc, char** argv)
{
  fx_module* root = fx_init(argc, argv, &gm_test_doc);
  testInference(root);
  fx_done(root);
}

template <typename Inference, typename Variable>
void printBelief(const typename Inference::vertex_type& u,
                 const typename Inference::belief_type& blf)
{
  if (u->isVariable())
  {
    const Variable* var = (const Variable*) u->variable();
    cout << var->name() << " belief: ";
    BOOST_FOREACH(const typename Inference::belief_type::value_type& p, blf)
    {
      cout << (var->valueMap()->getForward(FINITE_VALUE(p.first))) << " = " << p.second << " ";
    }
    cout << endl;
  }
  else // the average of this factor is blf[0]
  {
    const typename Inference::factor_type* f = (const typename Inference::factor_type*) u->factor();
    cout << f->toString() << " average = " << blf.get(0) << endl;
  }
}

void testInference(fx_module* module)
{
  typedef gm::ConvergenceMeasure Cvm;
  typedef gm::FiniteVar<std::string> Variable;
  typedef Variable::int_value_map_type value_map_type;

  typedef gm::Assignment Assignment;
  typedef gm::Logarithm Logarithm;
  typedef gm::TableF<Logarithm> Factor;
  typedef gm::FactorGraph<Factor> Graph;
  typedef gm::NaiveInference<Factor> Inference;
  typedef Inference::belief_type belief_type;
  typedef Inference::belief_map_type belief_map_type;

  struct GraphBuilder
  {
    GraphBuilder(gm::Variable* rain, gm::Variable* sprinklet, gm::Variable* wet,
                 const gm::Assignment& evidence, Graph& fg)
    {
      double w1[2][2] = {{0, -0.5},{-2,0.5}};
      Factor f1("rw", gm::Domain() << rain << wet);
      for (int i = 0; i < 2; i++)
        for (int j = 0; j < 2; j++)
        {
        Assignment a;
        a[rain] = i;
        a[wet] = j;
        f1[a] = Logarithm(w1[i][j],1);
      }

      double w2[2][2] = {{0, -0.5},{-1,0}};
      Factor f2("sw", gm::Domain() << sprinklet << wet);
      for (int i = 0; i < 2; i++)
        for (int j = 0; j < 2; j++)
        {
        Assignment a;
        a[sprinklet] = i;
        a[wet] = j;
        f2[a] = Logarithm(w2[i][j],1);
      }
      Factor f1_res(f1, evidence);
      Factor f2_res(f2, evidence);
      fg.add(f1_res);
      fg.add(f2_res);
    }
  };

  gm::Universe u;

  value_map_type vMap;
  vMap << value_map_type::pair_type(0, "FALSE") << value_map_type::pair_type(1, "TRUE");

  gm::Variable* rain = u.newVariable("rain", Variable("temp", vMap));
  gm::Variable* sprinklet = u.newVariable("sprinklet", Variable("temp", vMap));
  gm::Variable* wet = u.newVariable("wet", Variable("temp", vMap));

//  cout << u.toString("Universe RSW") << endl;

  Assignment e;
//  e[rain] = 0;
//  e[sprinklet] = 1;
  e[wet] = 0;
  cout << "Evidence = " << e.toString() << endl;

  Graph fg("RSW");
  GraphBuilder(rain, sprinklet, wet, e, fg);
//  cout << fg.toString() << endl;

  const char* method = fx_param_str(module, "method", "naive");
  int maxIter = fx_param_int(module, "iter", 10);
  double cTol = fx_param_double(module, "ctol", 1e-5);

  belief_map_type beliefs;
  if (strcmp(method, "naive") == 0) 
  {
    gm::NaiveInference<Factor> bp(fg);
    bp.run();
    beliefs = bp.beliefs();
  }
  else if (strcmp(method, "sum_product") == 0) 
  {
    gm::SumProductInference<Factor> bp(fg, Cvm(Cvm::Iter, maxIter));
    bp.run();
    beliefs = bp.beliefs();
  }
  else if (strcmp(method, "msg_priority") == 0) 
  {
    gm::MessagePriorityInference<Factor> bp(fg, Cvm(Cvm::Iter | Cvm::Change, maxIter, cTol));
    bp.run();
    beliefs = bp.beliefs();
  }
  else if (strcmp(method, "msg_pending") == 0) 
  {
    gm::MessagePendingInference<Factor> bp(fg, Cvm(Cvm::Iter | Cvm::Change, maxIter, cTol));
    bp.run();
    beliefs = bp.beliefs();
  }

  cout << "---------------------- Inference result ----------------------" << endl;
  BOOST_FOREACH (const belief_map_type::value_type& p, beliefs)
  {
    printBelief<Inference, Variable>(p.first, p.second);
  }
}