knitr::opts_chunk$set(echo = TRUE)
library(epiuf)
df <- data.frame(date1 = c("2022-05-02", "2022-05-05","2022-05-08", "2022-05-10", "2022-05-12", 
                          "2022-05-10", "2022-05-19", "2022-05-25")
                 ,date2 = c("2022-05-02", "2022-05-05","2022-05-08", "2022-05-10", "2022-05-12", NA_character_, NA_character_, NA_character_))


df$date1 = as.Date(df$date1)
df$date2 = as.Date(df$date2)
isoYearWeek(df$date1, weekformat="-W")
isoYearWeek(df$date2, weekformat="-W")


Epiconcept-Paris/STRAP-epiuf documentation built on Aug. 5, 2024, 3:41 a.m.