是否有更好的方法来限制此for循环

Question

我试图使用两个变量x和j [l]在R中设置一个for循环，其中j [l]必须等于或小于x。我尝试了多种方法来实现此目的，但未成功。下面是最接近的代码。

j<-c(0,1,2,3,4)
for (x in 1:5){
  for (l in 5:1){
    if (x>=j[l]){
      xp = x -j[l]
    }else{
      for (s in 5:1){
        xp = x - max(j[s]<=x)
      }
    }
    print(xp)
  }
}

应该输出print（xp）中的序列 0 0 0 0 1个 0 0 0 1个 2 0 0 1个 2 3 。 。 。 但是我没有得到这些价值。如果有人有任何建议，我将不胜感激。谢谢。