# First build a useful data_set set
require(data.table)
data_set <- data.table(ID = seq_len(100),
date1 = seq(from = as.Date("2010-01-01"),
to = as.Date("2015-01-01"),
length.out = 100),
date2 = seq(from = as.Date("1910-01-01"),
to = as.Date("2000-01-01"),
length.out = 100)
)
# Now let's compute
data_set <- generate_date_diffs(data_set, cols = "auto", analysis_date = as.Date("2016-11-14"))
Run the code above in your browser using DataLab