我想用R生成一组数据，这组数据包括4个数，我先定义前三个数的范围在（-2.5,2.5）之间，第四个数是前三个数和的负数，语法是这样的：
d<-matrix(0,4,1)
d[1:3,1]<-runif(3,min=-2.5,max=2.5)
d[4,1]=-(sum(d[1:3,1]))
但是对于第四个数，我也想让它在(-2.5，2.5)之间，所以想用if循环语句来写。如果得到的d[4,1]在（-2.5,2.5）之间就结束语句，如果不在这个范围内就重新计算d[1:3,1]<-runif(3,min=-2.5,max=2.5)，直到第四个数在（-2.5,2.5）范围内，且这四个数加起来为0。
请问，这个IF循环语句该怎么写？