R - Rolling a function on two columns in data.table

Question

I have a data.table as follows -

library(data.table)
dt = data.table(
  date = seq(as.Date("2015-12-01"), as.Date("2015-12-10"), by="