R做循环的时候，循环值太多，导致平均数错误（OS系统）

本人在学计量经济学，在估计ß1值的时候，因为simulation设置太高，最后算ß估计值的平均值的时候很多数据都当0处理了，所以得出的平均值是-0.几
代码如下：

n<-250
meanu<-0
sdu<-20
b0<-5
b1<--9
x<-floor(runif(n,0,11))
ns<-50000
vb1<-numeric(ns)
for (i in 1:ns){
  y<-b0+b1*x+0.5*x+rnorm(n, mean=meanu, sd=sdu)
  lm1<-lm(y~x)
  vb1[i]<-coef(lm1)[[2]]
}
vb1
mean(vb1)

我尝试过把ns减小到1000左右，这个时候，ß1估计值的平均值趋向题目给定的确定值（-9），并且我尝试了vb[48000]，这个时候数值为0。也就是说循环的值产生到后面都是0，并不是前面的-8.5左右。
我不理解是电脑无法运行这么多数值，还是有别的代码可以扩大运算的数值。
事实上，上个星期我可以运行较大数值，但是就2次，后面再重新run就不可以了。
所以我想问，是否有方法可以让运行50000次的时候不报错，或者是是我电脑不行，我得换电脑了？
电脑型号：MacBook Air2015（内存：4 GB 1600 MHz DDR3）

可以尝试修正一下参数的执行方法，尽量避免直接的减法和小数的除法，重复运行并不是一个较好的解决方案，这个确实于与电脑的内存有关，但事实上是你还没让电脑的配置发挥最大的效用导致的，多多修改一下代码，数值修正可以看看数值分析或者数值代数相关的书籍