www.pudn.com > bayes.rar > test.fbc

/*----------------------------------------------------------------------
  domains
----------------------------------------------------------------------*/
dom(x) = IR;
dom(y) = IR;
dom(class) = { a, b, c };

/*----------------------------------------------------------------------
  full Bayes classifier
----------------------------------------------------------------------*/
fbc(class) = {
  prob(class) = { a: 10, b: 30, c: 60 };
  prob(x,y|class) = {
    a: N([2, 4], [ 0.1],
                 [ 0.1, 0.2]),
    b: N([3, 2], [ 0.9],
                 [ 0.3, 0.3]),
    c: N([5, 5], [ 0.8],
                 [-0.9, 1.2]) };
};