r - 尝试将离散随机变量提高到负幂时出错
问题描述
library(discreteRV)
X <- RV(c(0, 9), c(1/2, 1/2))
X ** (-2)
每当我尝试运行它时,都会收到以下错误:
Error in RV(as.numeric(outcomes(X))^Y, probs(X), fractions = attr(X, "fractions"), :
More probabilities/odds than outcomes provided
解决方案
问题是你试图将零提高到负幂,这基本上相当于计算 1/0(在这种情况下,你试图找到 (1/0)^2) - 一种不确定的形式。替换0
为 时1
,代码运行良好
> X <- RV(c(1, 9), c(1/2, 1/2))
> X ** (-2)
Random variable with 2 outcomes
Outcomes 0.0123456790123457 1
Probs 1/2 1/2
推荐阅读
- shopify - 如何在 Shopify 中有效地检索产品所属的所有集合的列表?
- php - 重启apache服务器后,php脚本不再工作
- mongodb - 使用比较其他字段的日期来更新 mongodb 字段
- php - php if 语句获取浏览器
- r - ggplot2中的饼图和百分比
- java - IntelliJ 将 Gradle 依赖项与不同的项目混淆 - 仍然有效
- reactjs - 测试时未定义 INITIAL_STATE
- r - .local(x, ...) 中的错误:file.exists(extension(x, ".shp")) 不是 TRUE
- python - smtlib 邮件不发送且无错误代码
- javascript - 如何使用 chrome 扩展在 iframe 或页面中打开当前网站的控制台日志