# Voir plus d'exemples et d'explication dans la vignette("iperform")
x <- rnorm(222, mean = 50, sd = 6.3)
date <- seq.Date(as.Date("2023-01-01"), by = "day", length.out = 222)
df <- data.frame(date, x)
mtd(df, date = "2023-08-04", x = "x")
Run the code above in your browser using DataLab