library(dplyr)
# get four days of data
dat <- exdat %>%
filter(lubridate::month(DateTimeStamp) == 6) %>%
filter(lubridate::day(DateTimeStamp) %in% 1:4)
dat <- ebase_prep(dat, Z = 1.85, interval = 900, ndays = 1)
ebase_form(exres, dat, interval = 900, maxinterp = 48)
Run the code above in your browser using DataLab