信息熵的具体计算

#起初把log(a,2)错写成log(2,a)了，浪费了太多时间，算得怀疑自己是不是理解错了。

a1= log(9/14,2)
a2= log(5/14,2)
m = - ( (9/14) * a1 + (5/14) * a2)
m
#m=0.9402859586706309

a1= log(6/8,2)
b1= log(2/8,2)
m1 = - ( (6/8) * a1 + (2/8) * b1)
m1

a2= log(3/6,2)
b2= log(3/6,2)
m2 = - ( (3/6) * a2 + (3/6) * b2)
m2

n=m1*(8/14)+m2*(6/14)
n
#n=0.8921589282623617

#信息增益
h=0.9402859586706309-n
h
#h=0.04812703040826927