clear all;
%以身高作為特征用留一法進行分類,只對女生的數據使用
M = load('E:\研究生課程\模式識別課程\homework1_1007\FEMALE.TXT');
N = load('E:\研究生課程\模式識別課程\homework1_1007\MALE.TXT');
 %先驗概率
 pw1=0.5;%女生
 pw2=0.5;%男生
 right=0;
 wrong=0;
for i=1:50
    row=M(i,:)  %保存第i行數據
    M(i,:)=[];  %刪除第i行數據
    fu=mean(M);%計算均值
    mu=mean(N);
    f_height_mu=fu(1,1);%女生身高的均值估值
    m_height_mu=mu(1,1);%男生身高的均值估值
    fd=std(M);%計算標準差
    md=std(N);
    f_height_sigma=fd(1,1);%女生身高的方差估值
    m_height_sigma=md(1,1);%男生身高的方差估值
   %女生條件概率服從N(f_height_mu,f_height_sigma)
   %男生條件概率服從N(m_height_mu,m_height_sigma)
   

%下面用刪除的樣本進行測試
   test=row(1,1);
   fy=normpdf(test,f_height_mu,f_height_sigma);
   fy=fy*pw1;
   my=normpdf(test,m_height_mu,m_height_sigma);
   my=my*pw2;
 if(fy>my)
    result='f';
 else
    result='m';
 end
 
 if(strcmp(result,'f')==1)
     right=right+1;
 elseif(strcmp(result,'f')==0)
     wrong=wrong+1;
 end
 M = load('E:\研究生課程\模式識別課程\homework1_1007\FEMALE.TXT');
    
end

wrong=wrong/50
%試驗結果由身高做為特征值，先驗概率為0.5對0.5，對FEMALE.TXT中的數據進行留一法測試，錯誤率為16%
%試驗結果由身高做為特征值，先驗概率為0.5對0.5，對MALE.TXT中的數據進行留一法測試，錯誤率為16%