Поворот диапазона индексов до 0 для каждого случая в r

Question

Я пытаюсь установить диапазон индексов (от 5 до индекса переменной) равным 0 в огромном фрейме данных для каждого случая:

Что я придумал:

mapply(function(x,y,z) df[x, y:z] = 0, seq_len(nrow(df)), 5, df$index)

Так, например, для первого случая, если индекс равен 10, тогда df [1,5: 10] следует превратить в 0 с.

Answer 1

Мы можем использовать

mapply(function(x,y,z)  numeric(length(df[x, y:z])), 
       seq_len(nrow(df)), 5, df$index)