dt_op[1, 1] <- dt[1, 2] - dt[1, 1]
dt_op[1, 2] <- dt[1, 3] - dt[1, 1]
dt_op[1, 3] <- dt[1, 4] - dt[1, 1]
dt_op[1, 4] <- dt[1, 5] - dt[1, 1]
dt_op[1, 5] <- dt[1, 7] - dt[1, 6]
dt_op[1, 6] <- dt[1, 8] - dt[1, 7]

temp <- function(r) {
i = 1
l = length(r)
op <- list()
for(j in 2:l) {
  op[[j-1]] <- r[j] - r[i]
  if (j -i == 4) {
        j = j + 2
        i = i + 5
  }
  }
return(op)
}