请大家帮我看看下面的这段程序,最后要返回的是满足N>1时的k的平均值,我做了1000次,所以应返回这1000个k的均值,每次符合条件的k都赋予n[i],但为什么结果最后竟然是500多??请问问题出在哪里?
kehou3=function(B)
{
k=0
N=0
n=array()
for(i in 1:B)
{
repeat
{
k=k+1
u=runif(1)
N=N+u
if(N>1)
{
n[i]=k
break
}
}
}
mean(n)
}
kehou3(1000)