minor changes to CLP(BN).

packages/CLPBN/learning/em.yap

@@ -227,11 +227,10 @@ run_sample([C|Cases], [P|Ps], Table) :-
 	run_sample(Cases, Ps, Table).
 
 call_run_all(Mod:Items) :-
-	clpbn_flag(em_solver, pcg),
+	clpbn_flag(em_solver, pcg), !,
 	backtrack_run_all(Items, Mod).
-call_run_all(Items) :-
-	clpbn_flag(em_solver, pcg),
-	run_all(Items).
+call_run_all(Mod:Items) :-
+	run_all(Mod:Items).
 
 backtrack_run_all([Item|_], Mod) :-
 	call(Mod:Item),

packages/CLPBN/learning/example/school_params.yap

@@ -4,9 +4,20 @@
 
 :- [pos:train].
 
-:- ['~/Yap/work/CLPBN/clpbn/examples/School/school_32'].
+:- ['~/Yap/work/packages/CLPBN/clpbn/examples/School/school_32'].
 
-:- ['~/Yap/work/CLPBN/learning/em'].
+:- ['~/Yap/work/packages/CLPBN/learning/em'].
+
+%:- clpbn:set_clpbn_flag(em_solver,gibbs).
+:- clpbn:set_clpbn_flag(em_solver,jt).
+%:- clpbn:set_clpbn_flag(em_solver,vel).
+
+timed_main :-
+	statistics(runtime, _),
+	findall(X,goal(X),L),
+        em(L,0.01,10,_,Lik),
+	statistics(runtime, [T,_]),
+	format('Took ~d msec and Lik ~3f~n',[T,Lik]).
 
 main :-
         findall(X,goal(X),L),
@@ -14,9 +25,9 @@ main :-
         writeln(Lik:CPTs).
 
 %
-% change to 0.05, 0.1, 0.2 to make things simpler/harder
+% change to 0.0, 0.1, 0.2 to make things simpler/harder
 %
-missing(0.3).
+missing(0.50).
 
 % miss 30% of the examples.
 goal(professor_ability(P,V)) :-

packages/CLPBN/learning/learn_utils.yap

@@ -30,15 +30,15 @@
 
 run_all([]).
 run_all([G|Gs]) :-
-	call(G),
-	run_all(Gs).
+	run_all(user:[G:Gs]).
 run_all(M:Gs) :-
 	clpbn_reset_tables,
 	run_all(Gs,M).
 
 run_all([],_).
 run_all([G|Gs],M) :-
-	( call(M:G) -> true ; writeln(bad:M:G), break),
+%	(G = _:ge(ybr136w,t8,23,-1) -> nb_getval(clpbn_tables, Tab), writeln(Tab) ; true ),
+	( call(M:G) -> true ;  writeln(bad:M:G), start_low_level_trace, M:G ; halt ),
 	run_all(Gs,M).
 
 clpbn_vars(Vs,BVars) :-