Allow end_time to take a number representing number of hours after start_time

[Robinlovelace]

So this would work, for example:

s <- lubridate::ymd_h("2019-01-01 00")
ic_event(start_time = s, end_time = 3)