R 尝试向第一个非NA列右侧的每列添加增长百分比

我试图根据“启用对该疾病的支持”的推出计划，显示某些疾病的处方量的小增长率（2%）。比如：

其中，prevcol+2%是我试图计算整个df的值。我只是将我的技能培养成循环，所以我尝试了：

ii <- 3:18
for (val in ii) {
  HOSPITAL[,val+1] <- HOSPITAL[val]+HOSPITAL[val]*.02
}

---

ii请使用
dput
添加数据，并显示相同的预期输出。请阅读有关和如何给出a的信息。为什么对角线值不需要再增加2%呢？