From 4f1d7d0524de68902ba13cdce19a83173bcb75c1 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Sat, 1 Nov 2008 21:08:47 +0000
Subject: [PATCH] make this example a more uniform example.

---
 CLPBN/learning/example/school_params.yap | 21 +++++++++++++++------
 1 file changed, 15 insertions(+), 6 deletions(-)

diff --git a/CLPBN/learning/example/school_params.yap b/CLPBN/learning/example/school_params.yap
index abe26f891..7f18f38de 100644
--- a/CLPBN/learning/example/school_params.yap
+++ b/CLPBN/learning/example/school_params.yap
@@ -11,22 +11,31 @@ main :-
         em(L,0.1,10,CPTs,Lik),
         writeln(Lik:CPTs).
 
+missing(0.1).
+
 % miss 30% of the examples.
 goal(professor_ability(P,V)) :-
         pos:professor_ability(P,V1),
-        ( random > 0.3 -> V = V1 ; true).
+	missing(X),
+        ( random > X -> V = V1 ; true).
 % miss 10% of the examples.
 goal(professor_popularity(P,V)) :-
         pos:professor_popularity(P,V1),
-        ( random > 0.3 -> V = V1 ; true).
+	missing(X),
+        ( random > X -> V = V1 ; true).
 goal(registration_grade(P,V)) :-
         pos:registration_grade(P,V1),
-        ( random > 0.1 -> V = V1 ; true).
+	missing(X),
+        ( random > X -> V = V1 ; true).
 goal(student_intelligence(P,V)) :-
         pos:student_intelligence(P,V1),
-        ( random > 0.1 -> V = V1 ; true).
+	missing(X),
+        ( random > X -> V = V1 ; true).
 goal(course_difficulty(P,V)) :-
         pos:course_difficulty(P,V1),
-        ( random > 0.1 -> V = V1 ; true).
+	missing(X),
+        ( random > X -> V = V1 ; true).
 goal(registration_satisfaction(P,V)) :-
-        pos:registration_satisfaction(P,V).
+        pos:registration_satisfaction(P,V1),
+	missing(X),
+        ( random > X -> V = V1 ; true).