[新手求救] 如何用R程式编写有关从二项分布中抽样本？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如何用R程式编写有关从二项分布中抽样本？
能否替我看看这程式中有什么问题？

谢谢

prob <- function(n,p)
        {
                u <- runif(n, 0, 1)
                x <- 0
                prob_sum <- 0
       
               
                        for (i in 0:n)
                        {
                                if (x <= n)
                                {
                                        combination <- factorial(n)/(factorial(x)*factorial(n-x))
                                        prob <- combination * (p ^ x) * ((1 - p) ^ (n - x))
                                        prob_sum <- prob_sum + prob
                       
                                        ifelse (prob_sum >= u[i], x, x <- x + 1)
                                        print (x)
                                }
                        }               
        }

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：二项分布 如何用 Rob 如何 二项分布