更换长度为零

Question

我有一个数据集idcredit，其中包含两个变量; PAY_0和Default。 PAY_0是输入(-2:8)和Default是二进制的因素。

我想计算每个PAY_0输入Default的次数。我尝试了以下for循环。

default.pay = rep(0,11)

for(i in 1:30000)
{
 for(j in -2:8)
  { 
 if(idcredit$PAY_0[i]==j)
   {
    default.pay[j]<-default.pay[j]+idcredit$Default[i]
   }
  }


}
default.pay

我收到以下错误：

Error in default.pay[j] <- default.pay[j] + idcredit$Default[i] : 
  replacement has length zero

我认为这是因为我的j从-2开始。但是我尝试在每个输入PAY_0上添加3，但它仍然无法正常工作。

我似乎找到了一个使用的方法：

default.pay = rep(1,11)

虽然这实际上没有给出正确的答案，但很容易解决。