# NOT RUN {
library("lubridate")
start.period <- ymd_hms("2017-12-10 12:00:00")
end.period <- ymd_hms("2017-12-12 12:00:00")
portion_withoverlaps(act[act$subject_ID==1,], from = start.period, to = end.period)
# }
Run the code above in your browser using DataLab