楼主: sunou12345
914 0

[实际应用] 互熵。。。 [推广有奖]

  • 21关注
  • 9粉丝

副教授

22%

还不是VIP/贵宾

-

威望
0
论坛币
4769 个
通用积分
13.0629
学术水平
5 点
热心指数
5 点
信用等级
4 点
经验
93 点
帖子
429
精华
0
在线时间
892 小时
注册时间
2009-11-20
最后登录
2024-4-30

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
互熵。。就是KL距离。。
下面针对离散序列


R里面加载程序包entropy
library("entropy")
先把数据变成csv格式,放在c盘里,然后导入数据
mydata <- read.csv("c:/mydata.csv", 1)

freqs1=c(概率1,概率2,概率3等等)    %显然你要先知道每个数值的概率
freqs2=c(概率1,概率2,概率3等等)
KL.plugin(freqs1, freqs2, unit=c("log2"))
chi2.plugin(freqs1, freqs2, unit=c("log2"))




二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

关键词:Entropy Library BRARY 导入数据 Data 程序

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-5-17 22:09