求各位

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

请求各位帮忙，F（x）=x,  x1,x2,......,x100.   Y1=min(x1,x2,......x100)要产生10个Y1的随机数的R程序怎么写啊（用逆变换法），跪求

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Min 随机数 逆变换 R程序 程序

invF <- function(x){ log(1/(1-x))}
D <- vector()
for (i in 1:100){
    a <- runif(1e4) # 两组1万个0-1均匀分布随机数
    b <- runif(1e4)
    ran1 <- sapply(a, invF)
    ran2 <- sapply(b, invF)
    D <- c(D, max(abs(ran1 - ran2)))
}

非常感谢