[英]R, how could I get same results using function “for” to get the result from “replicate”?
我希望使用replicate
功能獲得與此代碼相同的結果,
set.seed(1)
n <- 100
sides <- 6
p <- 1/sides
zs <- replicate(10000,{
x <- sample(1:sides,n,replace=TRUE)
(mean(x==6) - p) / sqrt(p*(1-p)/n)
})
通過使用for
函數。 我嘗試過的代碼就是這樣。
n<-10000
side<-6
p<-1/side
set.seed(1)
for(i in 1:n){
z<-vector("numeric", n)
x<-sample(1:side, 100, replace=TRUE)
z[i]<-mean(x==6)
}
但是上面的代碼不能很好地工作。
Try this:
set.seed(1)
n <- 100
sides <- 6
p <- 1/sides
zs <- replicate(10000,{
x <- sample(1:sides,n,replace=TRUE)
(mean(x==6) - p) / sqrt(p*(1-p)/n)
})
n<-10000
sides<-6
p<-1/sides
set.seed(1)
z<-vector("numeric", n)
for(i in 1:n){
x<-sample(1:sides, 100, replace=TRUE)
z[i]<-(mean(x==6) - p) / sqrt(p*(1-p)/100)
}
all(zs == z)
# TRUE
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.