找回密码
 注册
关于网站域名变更的通知
查看: 475|回复: 1
打印 上一主题 下一主题

基于互信息的特征选择算法MATLAB实现

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2020-5-18 11:06 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式

EDA365欢迎您登录!

您需要 登录 才可以下载或查看,没有帐号?注册

x
本帖最后由 baqiao 于 2020-5-18 13:24 编辑 : J4 G+ L0 @6 m, E
6 I4 x8 N4 x. E+ q$ T" e- o
在概率论和信息论中,两个随机变量的互信息(Mutual Information,简称MI)或转移信息(transinformation)是变量间相互依赖性的量度。不同于相关系数,互信息并不局限于实值随机变量,它更加一般且决定着联合分布 p(X,Y) 和分解的边缘分布的乘积 p(X)p(Y) 的相似程度。互信息(Mutual Information)是度量两个事件集合之间的相关性(mutual dependence)。互信息最常用的单位是bit。
' `% w* U% ?8 _0 k  t; Z9 a1 N1 P/ h& X) I* f" u7 h- V- ?
互信息的定义   X+ i3 {4 g; k, {2 q
正式地,两个离散随机变量 X 和 Y 的互信息可以定义为:
/ g, k9 `- d' h& I( C& d* p1 h, {  A7 T2 j: r
其中 p(x,y) 是 X 和 Y 的联合概率分布函数,而p(x)和p(y)分别是 X 和 Y 的边缘概率分布函数。 - N; o% H8 N7 u

! [' \/ a/ ?) d$ @3 e2 ^在连续随机变量的情形下,求和被替换成了二重定积分:
$ C+ {4 a. a% i% {" b7 O3 T ( Q) I6 N- u. q5 e8 d! h: |' b" ]4 W
其中 p(x,y) 当前是 X 和 Y 的联合概率密度函数,而p(x)和p(y)分别是 X 和 Y 的边缘概率密度函数。
6 K$ J* Y, p& Y
6 V: A7 [1 H5 @7 M% {$ B互信息量I(xi;yj)在联合概率空间P(XY)中的统计平均值。 平均互信息I(X;Y)克服了互信息量I(xi;yj)的随机性,成为一个确定的量。如果对数以 2 为基底,互信息的单位是bit。
# b2 ?5 L6 t  I1 p/ A) Q
$ m7 z2 ]% y! Y; `# ?) ^直观上,互信息度量 X 和 Y 共享的信息:它度量知道这两个变量其中一个,对另一个不确定度减少的程度。例如,如果 X 和 Y 相互独立,则知道 X 不对 Y 提供任何信息,反之亦然,所以它们的互信息为零。在另一个极端,如果 X 是 Y 的一个确定性函数,且 Y 也是 X 的一个确定性函数,那么传递的所有信息被 X 和 Y 共享:知道 X 决定 Y 的值,反之亦然。因此,在此情形互信息与 Y(或 X)单独包含的不确定度相同,称作 Y(或 X)的熵。而且,这个互信息与 X 的熵和 Y 的熵相同。(这种情形的一个非常特殊的情况是当 X 和 Y 为相同随机变量时。)% P7 K2 |8 D" m, g9 P  T

9 ~: [2 O+ n7 g! R  C3 e# t互信息是 X 和 Y 联合分布相对于假定 X 和 Y 独立情况下的联合分布之间的内在依赖性。于是互信息以下面方式度量依赖性:I(X; Y) = 0 当且仅当 X 和 Y 为独立随机变量。从一个方向很容易看出:当 X 和 Y 独立时,p(x,y) = p(x) p(y),因此: 3 k' [' K6 L- d- f+ f; ?' ]' k

' O: F. _- l  P* a( J* f) t此外,互信息是非负的(即 I(X;Y) ≥ 0; 见下文),而且是对称的(即 I(X;Y) = I(Y;X))。
5 j' V) d1 z, X2 F# u" t. h' I, Z; N/ W
, X% L5 j) h* x/ Y
互信息特征选择算法的步骤 1 j, K" G6 }, p0 n3 F
①划分数据集
1 @7 v3 w+ U% G- H/ V②利用互信息对特征进行排序
) \9 V' _% U) }1 x" ~& @. \③选择前n个特征利用SVM进行训练
' C3 T# q! ]; q) l④在测试集上评价特征子集计算错误率
1 K* D7 [1 t8 ]3 L0 G6 D代码
0 s1 k6 D3 l& r注意使用的数据集是dlbcl,大概五千多维,可以从UCI上下载,最终选择前100特征进行训练。# O$ W0 K1 A4 r' ~
5 r; \4 ?$ r3 e% v4 A+ q
主函数代码:! R) I9 \1 b4 \* ?" v. u
9 o% k* I' R( g  j- v
clear all
, Q2 ?- w' I  z) ]  k4 I# ^; bclose all
1 D  o: R1 H& m) Dclc;
$ d) ?( N: u  x2 `6 t[X_train,Y_train,X_test,Y_test] = divide_dlbcl();6 }3 `3 l+ g: o, H5 x9 ^: O
Y_train(Y_train==0)=-1;
* S0 b" z/ ]; p/ OY_test(Y_test==0)=-1;
& C3 [4 ]& X- J% number of features& Q6 W# h, `: b4 v$ J
numF = size(X_train,2);
5 ]* n& i9 _6 L+ k
, m# H. [2 j* g7 W% u& m& B* e* x  U0 l. h1 P! N9 C2 @5 j8 Y: ^5 L

2 P: W1 T# x! ?" d5 m! ]5 T[ ranking , w] = mutInfFS( X_train, Y_train, numF );
+ h5 Z, ?: J" d4 e* ^5 Zk = 100; % select the Top 2 features
9 f7 M5 i' m# ~! p2 [) FsvmStruct = svmtrain(X_train(:,ranking(1:k)),Y_train,'showplot',true);5 C4 t, j" x: q/ [, Y: q% n
C = svmclassify(svmStruct,X_test(:,ranking(1:k)),'showplot',true);
( n: j" B- g! P5 R2 O/ i) Berr_rate = sum(Y_test~= C)/size(X_test,1); % mis-classification rate
$ B7 z! g" ^8 Q) _+ }- c1 s) P1 mconMat = confusionmat(Y_test,C); % the confusion matrix
8 k+ u. X% i( \fprintf('\nAccuracy: %.2f%%, Error-Rate: %.2f \n',100*(1-err_rate),err_rate);; _$ y. s. Z8 @

- Y# y( g: s3 ?2 `1 S) G: r6 S  o* l) I. e- m4 k  ^% Q
mutInfFS.m) o) K1 P/ z2 ]3 x$ X

. U2 V. J/ b( l' Afunction [ rank , w] = mutInfFS( X,Y,numF )* K) d! f1 |) }3 w. u/ C! E
rank = [];' ?7 ?7 i- o! k
for i = 1:size(X,2). Y( U( |- a/ @" H) R' e+ V
    rank = [rank; -muteinf(X(:,i),Y) i];) l/ N3 O* E2 U) g" M
end;# V  T4 P: C" v4 L  j" Y+ G! R) y
rank = sortrows(rank,1);      ]+ L" J) A" n# C+ A
w = rank(1:numF, 1);# ^4 V( x1 R- _* G9 @. F
rank = rank(1:numF, 2);+ }/ J9 a8 R1 d2 L
7 I- a  n- G0 c. h0 Y
end
8 ^2 q! G2 ?% r; Z* @* I" A* C' X; u7 {5 N* E: v
" b5 b7 x" m, g) L3 I/ \
muteinf.m
% u: y/ |8 p" z. n/ o- V5 q
8 d( ~: y& J6 J' T) nfunction info = muteinf(A, Y)  v$ ?& f! u0 y0 U
n = size(A,1);%实例数量% @7 `: a4 ~" W
Z = [A Y];%所有实例的维度值及标签
( }$ V/ o4 W; |if(n/10 > 20)0 [0 S. d4 g# M2 g& c
    nbins = 20;
4 ^3 T3 f2 `  melse$ ]8 h( Z, O; ^" p1 ]" t3 U- m* p
    nbins = max(floor(n/10),10);%设置区间的个数
) e! X& J+ e+ w$ }end;# W9 {; T" Y( [4 n. w# Q& S% m1 j8 M
pA = hist(A, nbins);%min(A)到max(A)划分出nbins个区间出来,求每个区间的概率: ^) t  D! h* J( ^, h( c* E
pA = pA ./ n;%除以实例数量
3 K9 P6 Z9 `" p/ o, a9 q. x2 y# I% ]8 L6 A6 F$ B! d& o
i = find(pA == 0);2 I3 U2 n4 D; C) D7 s+ U
pA(i) = 0.00001;%不能使某一区间的概率为06 B6 x# x0 _. H$ p/ T
0 a. F' n3 X2 F
od = size(Y,2);%一个维度
% J' M% c) W: a2 Rcl = od;! z) k' Y: Z0 }. B! E( z
%下面是求实例不同标签的的概率值,也就是频率
+ {1 ^/ ?: G0 H' Aif(od == 1)
4 B: h4 D$ ^7 {, @1 w" P0 o    pY = [length(find(Y==+1)) length(find(Y==-1))] / n;! F4 A7 T, @  N9 ?- j- _
    cl = 2;9 W& ]  W$ X+ h6 L
else
: T1 A: H' v. k! p    pY = zeros(1,od);
2 {, p6 J, D; D. B1 ?) ^. \- S: ]. \    for i=1: od) ~, t% t/ C4 V1 \2 I6 Y! e
        pY(i) = length(find(Y==+1));
* ~! ~# B2 a  _3 q* V1 f. @    end;1 @; s! A& h5 l9 E! g& h' Y2 R
    pY = pY / n;
3 [4 n  q, {( Z: k' D7 T0 t9 e/ c9 send;
9 E( [+ B% P  j0 u9 ^% K0 ap = zeros(cl,nbins);* U/ K8 ~: Z% S- b8 N! v$ C
rx = abs(max(A) - min(A)) / nbins;%每个区间长度
  L7 @; I2 U) S" }, tfor i = 1:cl
6 B# r8 r; ]( Y: h0 k! N" M    xl = min(A);%变量的下界% H+ T" B4 B/ k
    for j = 1:nbins
& v2 ~: h/ S+ B8 g6 @4 E3 c6 p        if(i == 2) && (od == 1), V! j" F) Q7 N4 y( {4 z
            interval = (xl <= Z(:,1)) & (Z(:,2) == -1);
5 r) G. {: A, b% A/ V# B3 U& P. r4 A        else& X3 T, g- |3 k9 t! j$ {
            interval = (xl <= Z(:,1)) & (Z(:,i+1) == +1);( @/ v3 p6 }, a$ c7 @* |1 P
        end;
/ u% d9 F  j9 [  J; S        if(j < nbins)4 h, \4 |  h) y+ E2 H
            interval = interval & (Z(:,1) < xl + rx);0 U: s6 z1 H* O. P  r
        end;3 P: |0 a6 m4 ?2 v2 u& h/ S
        %find(interval)
/ T5 g9 B5 L# ]+ B: Q4 U* S3 J        p(i,j) = length(find(interval));6 i3 Z0 n+ B& j' [2 i
) t& }" Q( C9 {+ v1 p
        if p(i,j) == 0 % hack!1 w" m6 Y7 u) [) x7 c. X' e
            p(i,j) = 0.00001;) d5 ^$ w" z  w# d3 N% Z
        end8 J! ^/ o+ D  D; H/ q# v" S& H
0 P% a9 O, T  l* j2 u  H/ q
        xl = xl + rx;
) S# F* I" R4 Q    end;! n0 Z- h5 t5 Q* i
end;
2 M2 y2 _* a4 m' qHA = -sum(pA .* log(pA));%计算当前维度的信息熵
( [" G  t1 }; B3 w& C# H" I0 eHY = -sum(pY .* log(pY));%计算标签的信息熵
$ D# w. q8 v2 X7 b# G0 d$ i- \pA = repmat(pA,cl,1);* u, H0 ~& U- D
pY = repmat(pY',1,nbins);
4 M% Z6 v: I2 X) f0 S4 \3 cp = p ./ n;: Q" `" `) X6 }" z7 G- s$ s
info = sum(sum(p .* log(p ./ (pA .* pY))));
) n* h# q1 v) p8 l" Zinfo = 2 * info ./ (HA + HY);%计算互信息! o4 b5 V& q& y
$ I" x0 u3 z, P8 z$ W
0 M2 R' r. y  N# g2 ]7 P# P
前100个特征的效果:
2 H  }* ~0 t8 k' b' x- U0 H, U. O) a& Q1 s; y
Accuracy: 86.36%, Error-Rate: 0.14
! M+ n: J* b" ^2 P+ E# c! X; Z/ _, a1 B5 A
选择前两个特征进行训练(压缩率接近100%,把上述代码中的K设为2即可)的二维图: 5 F+ @" ~/ U2 j% w+ H- E% T
: n; F( [, \" h3 X$ J/ C
Accuracy: 75.00%, Error-Rate: 0.25
) P% `' u  `" w, \" s
$ h% E: m; a& m* c4 e8 s4 o( M* U; }) f7 [, [5 }) h: k

. n$ p; z' e$ r' c$ H

该用户从未签到

2#
发表于 2020-5-18 13:23 | 只看该作者
基于互信息的特征选择算法MATLAB实现
您需要登录后才可以回帖 登录 | 注册

本版积分规则

关闭

推荐内容上一条 /1 下一条

EDA365公众号

关于我们|手机版|EDA365电子论坛网 ( 粤ICP备18020198号-1 )

GMT+8, 2025-11-24 07:51 , Processed in 0.171875 second(s), 26 queries , Gzip On.

深圳市墨知创新科技有限公司

地址:深圳市南山区科技生态园2栋A座805 电话:19926409050

快速回复 返回顶部 返回列表