извлечение диапазонов с использованием rowids из data.table

Question

В приведенном ниже примере я хотел бы использовать столбцы в sel.dt в качестве начала и конца для извлечения строк из data.dt.Итак, я хотел бы создать таблицу данных со следующими строками из data.dt: (11, 12, 8, 9, 10, 11, 12, 13, 14, 58, 59, ...)

require(data.table)

N <- 10000
data.dt <- data.table(id=sample(1:100, N, replace=TRUE), cost=runif(N,100,200))
sel.dt <- data.table(i=sample(5:60,10,replace=TRUE))[, j:=i+sample(1:10,10,replace=TRUE)]

> data.dt
       id     cost
    1: 24 114.2434
    2: 14 104.7751
    3: 99 103.2048
    4: 49 187.9645
    ..............

> sel.dt
     i  j
 1: 11 12
 2:  8 14
 3: 58 59
 ........