couter产生一次以后，第二此只能用replace

 程序怎么弄呢那？还是调不出来!!

capture program drop counter
set more off
set obs 10
replace counter=0
    local i=1
    while `i'<=10000 {
               quietly replace heads=0
               quietly replace heads = heads + int(uniform()*2)
               quietly egen sum counter = counter+1 if sum==3
               drop heads sum
               disp `i'
    local i=`i'+1
}
到了下面还是这样的，egen又不能换，还有如果都要这样的话，那么程序大的话怎么弄，晕死了

mata
A=uniform(10000,3):<0.49
B=J(10000,1,1)
for(i=1;i<=rows(A);i++) {
  if(A[i,.]==(0,0,0)) {
    B[i,1]=0
  }
  }
mean(B)
end

这个程序怎么又有问题，说什么 mean():  3001  expected 2 arguments but received 1，就是说B这样设定不对的咯，该怎么表达呢？？

这个在10的版本中能运行，但在9的版本中不可以。。。。。不过还是不知道怎么改。。。。。。。。。。