%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Meta Bayes
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%:-['../metabayes/metabayes.pl'].

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  Datasets
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/*--------- Toy Example ---------*/
%:-['datasets/ex_parity/ex_3-7_ab_p4n9_2000.pl'].

/*--------- experiments ---------*/
%%:-['datasets/labelledExs_75/ex_16_7_165.pl'].

%:-['../family/russianRoyal/ex_ancestors_RussianRoyal.pl'].
%:-['../family/russianRoyal/family_RussianRoyal.pl'].

%:-['../trains/ex_trains.pl'].
%:-['../trains/trains.pl'].

%:-['../trains/ex_trains10_r.pl'].
%:-['../trains/ex_trains20.pl'].

%:-['../trains/folds/tr_1.pl'].
%:-['../trains/folds/ts_1.pl'].
%:-['../trains/ex_trains_test20.pl'].
%:-['../trains/trains10_r.pl'].


%:-['../trains/ex_trains20.pl'].
%:-['../trains/trains20.pl'].


/******************* Settings ********************/
%set(sampleSizes,[2,4,6,8,10,12,14,16,18,20]).  %,20,30,40,50
%set(sampleSizes,[2,4,6,8,10]).

%set(sameSizeRepeated,RepeatedTimesIndexes):-numbersList(1,10,RepeatedTimesIndexes).
%set(test_size,1000).
%set(train_size,500). % MaxRepeatedTimesIndexes * MaxSampleSizes <= TrainSize 
%set(test_size,2).
%set(train_size,8). % MaxRepeatedTimesIndexes * MaxSampleSizes <= TrainSize 

%set(maxTrainSize,Max):-set(sampleSizes,SampleSizes),last_ele(Max,SampleSizes).

set(generalise_method,map).
%set(generalise_method,bayes_sampling).
%set(generalise_method,bayes_finall).

set(prediction,bayes_predict).


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Generalise
:- 	findall(PosEI,ex(PosEI,1),PosEIs),
    	findall(NegEI,ex(NegEI,0),NegEIs),
generalise_oneTrainingSetF(PosEIs,NegEIs,_,WholeG),
%pprint_wholeG(WholeG),
    	nl. %pretty_print.



/* learning curve
%:- 
%	yap_flag(argv,[Size0,Index0,SampleSize0]),
%	%consult(File),
%atom_number(Size0,Size),
%atom_number(Index0,Index),
%atom_number(SampleSize0,HSampleSize),
%train_testF(Size,Index,HSampleSize).

%tt:-train_testF(2,1,10).
%*/


%:- 
%%    yap_flag(argv,[Fold0,SampleSize0]),
%%    %consult(File),
%%atom_number(Fold0,Fold),
%%atom_number(SampleSize0,HSampleSize),
%%%leave_one_out(Size,HSampleSize).
%%train_test(HSampleSize).
%train_test(10).

tt:-leave_one_out(1,HSampleSize).


hot:- train_test(10).




bak :- 
	yap_flag(argv,[File,PL,KB,Size]),
	consult(File),
	atom_number(PL,PLN),
	atom_number(KB,KBN),
	atom_number(Size,SZ),
	PLKB=[PLN,KBN,SZ],
%	writeln(PLKB),
	itF(PLKB).