%?credit_class.m
%?信貸信用的評估
%?數據取自德國信用數據庫

%%?清理工作空間
clearclc

%?關閉圖形窗口
close?all

%%?讀入數據
%?打開文件
fid?=?fopen（‘german.data‘?‘r‘）;

%?按格式讀取每一行
%?每行包括21項，包括字符串和數字
C?=?textscan（fid?‘%s?%d?%s?%s?%d?%s?%s?%d?%s?%s?%d?%s?%d?%s?%s?%d?%s?%d?%s?%s?%d\n‘）;

%?關閉文件
fclose（fid）;

%?將字符串轉換為整數
N?=?20;
%?存放整數編碼后的數值矩陣
C1=zeros（N+11000）;
for?i=1:N+1
????%?類別屬性
????if?iscell（C{i}）
????????for?j=1:1000
????????????%?eg:?‘A12‘?->?2
????????????if?i<10
????????????????d?=?textscan（C{i}{j}?‘%c%c%d‘）;
????????????%?eg:?‘A103‘??->?3
????????????else
????????????????d?=?textscan（C{i}{j}?‘%c%c%c%d‘）;
????????????end
????????????C1（ij）?=?d{end};
????????end
????%?數值屬性
????else
????????C1（i:）?=?C{i};
????end
end

%%?劃分訓練樣本與測試樣本

%?輸入向量
x?=?C1（1:N?:）;
%?目標輸出
y?