产生均匀随机数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

大家好，现在beta是一个向量，我想请教下，下面的语句可否只用一个语句表示出来。
不要用 循环, 谢谢

p=length(beta)

theta=c( )

for (i in 1:p){

theta=rbind(theta, runif(1,beta[i]-5,beta[i]+5))

}

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：随机数 length Theta rbind beta

这个想表达什么呢

escaflowne1985 发表于 2019-10-31 11:03
这个想表达什么呢

产生一个向量theta, theta 的第 i 维元素来自(beta-5, beta+5)上的均匀分布

escaflowne1985 发表于 2019-10-31 11:03
这个想表达什么呢

产生一个向量theta, theta 的第 i 维元素来自(beta-5, beta+5)上的均匀分布

escaflowne1985 发表于 2019-10-31 11:03
这个想表达什么呢

产生一个向量theta, theta 的第 i 维元素来自(beta -5, beta +5)上的均匀分布

1. beta <- c(1:3)
   
2. p=length(beta)
   
3. theta=c( )
   
4. set.seed(123)
   
5. for (i in 1:p){
   
6.   theta=rbind(theta, runif(1,beta[i]-5,beta[i]+5))
   
7. }
   
8. theta
   
9. 
   
10. func1 <- function(x){
    
11.             y <- runif(1,x-5,x+5)
    
12.             return(y)}
    
13. set.seed(123)
    
14. theta <- apply(as.data.frame(beta), 1, func1)
    
15. theta

复制代码

用apply能一句吧

1. smpl <- function(x){
   
2.   result <- runif(1,x-5,x+5)
   
3.   result
   
4. }
   
5. 
   
6. theta <- sapply(beta,smpl)

复制代码