Для каждого уровня "ts_id", как разрезать ВСЕ данные на 2 ячейки, используя медианное значение "s1", вычисленное с использованием строк с ex_id == 1?
DT = data.table(
ts_id = c(rep(1,15),rep(2,15)),
ex_id = c(rep(1,5),rep(2,10),rep(1,5),rep(2,10)),
s1 = rnorm(30)
)