- 博客(1)
- 收藏
- 关注
RSS订阅原创 统计学 拒绝接受方法
rBETA <- function(n, a,b){ n <- 1000 k <- 0 y <- numeric(n) while (k < n) { u <- runif (1) x <- runif(1) if (x^(a - 1) * (1 - x)^(b - 1) > u){ k<- k + 1 y[k]<- x.
2021-04-27 12:57:33
592
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人