我想随机生成四组数，每组取4个值，每组都要求在-2.5到2.5之间取值，且要求每个组的均值为0。我写了这样的语法，但是生成的数据不能保证每组的均值为0，或接近于0。每组均值得到的结果是：1.2，-0.3，-0.5，0.05。这是什么原因？
d<-matrix(0,16,1)
d[1:4,1]<-runif(4,min=-2.5,max=2.5)
d1=ave(d[1:4,1])
d1=0
d[5:8,1]<-runif(4,min=-2.0,max=2.0)
d2=sum(d[5:8,1])/4
d2=0
d[9:12,1]<-runif(4,min=-2.0,max=2.0)
d3=sum(d[9:12,1])/4
d3=0

d[13:16,1]<-runif(4,min=-2.0,max=2.0)
d4=ave(d[13:16,1])
d4=0
print(d)