求各位 - 经管之家

求各位

niezhiping2014

995

收藏 2015-03-25

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

扫码加我拉你入群

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

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

全部回复

DM小菜鸟

2015-4-3 21:35:36

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)))
}

扫码加我拉你入群

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

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

niezhiping2014

2015-4-9 17:03:59

非常感谢

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群