r - 找到R中数字总和恰好为70的概率?
问题描述
问题是从掷出的 20 个骰子中找出数字总和正好等于 70 的概率。
我创建了一个矩阵
A = matrix(NA, nrow=20, ncol=1e4)
for (i in 1:20) {
A[i,]=sample(1:6,1e4,replace=TRUE)
}
我被困在下一步该怎么做。我应该创建一个长度为 10^4 的向量 s,使得 s[i] = 位置 i 中的列的总和。
解决方案
您可以创建一个 20 x 10,000 的样本骰子矩阵,然后计算列总和,然后计算恰好是 70 的那些。概率估计就是这个结果除以 10,000。所以这个单行就足够了:
length(which(colSums(replicate(1e4, sample(1:6, 20, replace = TRUE))) == 70))/1e4
#> [1] 0.0526
推荐阅读
- ssl - 客户端无法在端口 5223 上使用 SSL 连接 ejabberd
- mysql - 这是防止数据库注入的安全方法吗?
- apache-kafka - Hyperledger Orderer 不适用于 Kafka - 错误解码数据包:CRC 不匹配
- apache-camel - 如何将 REST 调用的选项作为参数添加到标头?
- java - 调用 removeLocationUpdates 后位置回调未停止
- javascript - 将结束标签移动到包含元素的末尾
- netbeans - 更新 Netbeans 8.1 模块项目模板
- ios - 如何计算具有不同条件的 Swift 对象数组中元素的出现次数
- google-bigquery - 大查询中IP地址列的数据类型
- c - printf 如何在打印出 strtok 的标记时知道它们的结尾?