open System open MicrosoftResearch.Infer open MicrosoftResearch.Infer.Models open MicrosoftResearch.Infer.Distributions open MicrosoftResearch.Infer.Factors let a = Variable.Discrete [|0.2;0.8|] let b = Variable.New<bool>()
let case0 = Variable.Case(a, 0)
b.SetTo (Variable<bool>.Constant false)
case0.Dispose()
let case1 = Variable.Case(a, 1)
b.SetTo (Variable<bool>.Constant true)
case1.Dispose()
let engine = new InferenceEngine() let post = engine.Infer<Bernoulli>(b)
Console.WriteLine("b: " + post.ToString())
Marked as answer byVariable.NewTuesday, January 24, 2012 4:03 AM
open System open MicrosoftResearch.Infer open MicrosoftResearch.Infer.Models open MicrosoftResearch.Infer.Distributions open MicrosoftResearch.Infer.Factors let a = Variable.Discrete [|0.2;0.8|] let b = Variable.New<bool>()
let case0 = Variable.Case(a, 0)
b.SetTo (Variable<bool>.Constant false)
case0.Dispose()
let case1 = Variable.Case(a, 1)
b.SetTo (Variable<bool>.Constant true)
case1.Dispose()
let engine = new InferenceEngine() let post = engine.Infer<Bernoulli>(b)
Console.WriteLine("b: " + post.ToString())
Marked as answer byVariable.NewTuesday, January 24, 2012 4:03 AM