R, "replicate"의 결과를 얻기 위해 "for"함수를 사용하여 동일한 결과를 얻을 수 있습니까? <code>for</code> 기능을 사용하여 내가 <code>replicate</code> 기능을 사용하여이 코드 같은 결과를하고 싶은

Question

,

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

위의 코드는 제대로 작동하지 않습니다.

Answer 1

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