我正在尝试做一些简单的数学运算，但无法弄明白，基本上我有以下数据框 -
Allo <- c(0,0,0,0,1,0)
我正在尝试创建一个代码，用于识别1的位置，然后根据年龄差距的想法重新计算列
因此，如果CurAge <- 5和RetAge <- 24中间行为5，第一行为余数。
结果列就像Allo1 <- c(3,5,5,5,1,0)
编辑： 建立Beauvel上校首先拥有的东西我认为解决方案必须符合
的要求Allo [1：（match（1，Allo）-1）] = seq（（RetAge-CurAge-1），0，-5）
但我需要按特定数字（5）向第1行的余数倒数，所以rep（）和seq（）的组合？