用R语言计算信息熵
来源:互联网 发布:武汉大学软件学院怎样 编辑:程序博客网 时间:2024/05/19 09:13
test.entropy <- function(d){
print(d)
res <- 0
for(i in 1:length(d))
{
if(d[i]!=0)
res <- res + d[i]*log(d[i])
}
return (-res)
}
d1=c(0.25,0.25,0.25,0.25)
d2=c(0.5,0.5,0,0)
d3=c(0.8,0.2,0,0)
d4=c(1,0,0,0)
print(test.entropy(d=d1))
print(test.entropy(d=d2))
print(test.entropy(d=d3))
print(test.entropy(d=d4))
结果:
print(test.entropy(d=d1))[1] 0.25 0.25 0.25 0.25[1] 1.386294> > > print(test.entropy(d=d2))[1] 0.5 0.5 0.0 0.0[1] 0.6931472> > print(test.entropy(d=d3))[1] 0.8 0.2 0.0 0.0[1] 0.5004024> > print(test.entropy(d=d4))[1] 1 0 0 0[1] 0
- 用R语言计算信息熵
- R语言科学计算
- R语言 Hurst指数计算
- R语言中的并行计算
- R语言并行计算(1)
- R语言中的并行计算
- R语言中的并行计算
- R语言并行计算编程
- R语言:计算各种距离
- R语言 警告信息关闭
- 用R语言实现向量化与并行计算
- 用R语言实现向量化与并行计算
- 【R语言 爬虫】用R爬虫,爬取杭州安居客九堡租房信息
- 皮尔森相似度计算举例(R语言)
- R语言的计算中去除NA
- r语言并行计算(2)----foreach函数
- R语言snow包并行计算
- R语言中的数学计算(转载)
- Myeclipse弹出 Multiple Errors have Occurred
- 二叉堆排序
- ORA-12537 if Listener (including SCAN Listener) and Database are Owned by Different OS User [ID 1069
- 谢尔排序-shell sort
- 佳能软件不用光盘安装升级包的方法
- 用R语言计算信息熵
- error LNK2019: 无法解析的外部符号
- EXT JS学习网站
- 神舟III号 USART-COM1工程配置
- PostgreSQL启动过程中的那些事七:初始化共享内存和信号十七:shmem中初始化AutoVacuum相关结构
- Launcher源码初探
- Ora-12547: Tns:Lost Contact Creating Database After Clean Installation
- SI信号完整性分析术语
- Android横竖屏限制切换