#the sample dataset does not have any irregular data
sample.data.environment |> has_irregulars()
#even removing some data does not make it irregular, as all the Datetimes
#still fall in the regular interval
sample.data.environment |> dplyr::filter(MEDI <= 50000) |> has_irregulars()
#shifting some of the data will create irregular data
sample.data.environment |>
dplyr::mutate(
Datetime = dplyr::if_else(
sample(c(TRUE, FALSE), dplyr::n(), replace = TRUE), Datetime, Datetime + 1
)
) |>
has_irregulars()
Run the code above in your browser using DataLab