data("Example_data", package = "Covid19Wastewater")
Example_data$Late_date <- sample(Example_data$date)
Example_data$Late_date[sample(1:length(Example_data), length(Example_data) / 3)] <- NA
head(date_distance_calc(Example_data, "date", "Late_date"))
Run the code above in your browser using DataLab