 library(tidyverse) library(lubridate)  date_data <- tibble(dates = c(seq(ymd("0000-00-00"),                                   ymd("0000-00-00"),                                   by = "days"),                               seq(ymd("0000-00-00"),                                   ymd("0000-00-00"),                                   by = "days"),                               seq(ymd("0000-00-00"),                                   ymd("0000-00-00"),                                   by = "days")),                     sample_id = 0L)  