эффективно изменять векторные значения для многих диапазонов индексов

Question

Imaging У меня есть длинный вектор

vec = 1:1E8

и фрейм данных

d = data.frame(pos_start=1:1E7, 
               pos_end=(1:1E7) + sample(1:10, 1E7, replace=TRUE), 
               val=runif(1E7))

Я хочу достичь следующей цели:

for(i in 1:nrow(d)) 
  vec[d[i, 'pos_start']:d[i, 'pos_end']] = d[i, 'val']

что можетбыть эффективным способом сделать это?