?%?結構學習是K2算法，參數學習是最大后驗
n=6;
ns=[3?3?2?2?3?3];
A=1;?B=2;?C=3;?D=4;?E=5;?Class=6;
order=[4?5?6?3?2?1];?%指定節點次序
max_fan_in=2;
result_matrix=zeros（ns（Class）ns（Class））;
%讀入訓練數據集
fn=‘bdata_001.txt‘;
load（fn）;
fata_train1=‘bdata_001‘;
[num_attrib?num_cases]=size（data_train1）;
data_train=zeros（num_attribnum_cases）;
%根據實例進行網絡結構學習
dag_gbn=zeros（nn）;
dag_gbn=learn_struct-K2（data_train?ns?order?‘max_fan_in‘?max_fan_in）;
bnet2=mk_bnet（dag_gbnns）;
%對生成的結構進行參數學習
priors=1;
seed=0;
rand（‘state‘seed）;
for?i=1:n
bnet2.CPD{i}=tabular_CPD（bnet2?i‘CPT‘‘unif‘‘prior_type‘‘dirichlet_type‘‘BDeu‘‘dirichlet_weight‘?priors）;
end
bnet4=bayes_update_params（bnet2?data_train）;
CPT3-cell（1n）;
for?i=1:n
s=struct（bnet4CPD{i}）;
CPT3{i}=s.CPT;
end
%畫出圖形
draw_graph（dag_gbn）

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件????????854??2009-08-25?09:56??K2.m

-----------?---------??----------?-----??----

??????????????????854????????????????????1