你的错误信息是因为你没有给g赋初值，而不是循环发生错误。
还有integrate的结果不是一个数，而是一个list，应该用integrate(...)$value
虽然当积分限从0开始的时候积分是发散的，但是此处的数值积分不会有这个错误。所以R不会报任何的错误。

再问：
    非常谢谢楼上的回复，但不好意思，实在抱歉，仓促间，没将问题想好。下面是我真正想问的问题（试了很多遍了）

m <- rep(NA, 6)                                     # 对m进行赋值，等同于原来的g, 无论是NA，还是0，结果都相仿

f <- function(x) {return(1/x)}                  # 被积函数

for (i in -1:4) {
m[i+2] <- integrate(f, lower=i, upper=7, stop.on.error=FALSE)$value        # 循环，赋值
}
m                                                                              # 输出m

输出结果：
错误于integrate(f, lower = i, upper = 7, stop.on.error = FALSE) :
  non-finite function value
> m
[1] NA NA NA NA NA NA

# 评论： 其实，在第一次循环时，就会发生积分函数值无限的错误，但这个错误导致后面的
         循环无法进行。这是因为，如果后面的循环可以进行，那么m的第二、三、四、五和六
         个元素不应该还是原来的空值。我的期望结果是，即使一次积分运算发生错误，如何让
         它进行 下一次积分，而不是跳出整个循环？