library(dplyr)
# get four days of data
dat <- exdat %>%
filter(lubridate::month(DateTimeStamp) == 6) %>%
filter(lubridate::day(DateTimeStamp) %in% 1:4)
# create missing values
set.seed(222)
dat <- dat %>%
slice_sample(prop = 0.9) %>%
arrange(DateTimeStamp)
interp_plot(dat, Z = 1.85, interval = 900, param = 'DO_sat')
Run the code above in your browser using DataLab