How to Correctly Calculate the Nearest Date Between Events in R and Create a Control Group.