data-raw/exres.R

library(dplyr)
library(lubridate)

# get four days of data
dat <- exdat %>%
  filter(month(DateTimeStamp) == 6 & day(DateTimeStamp) %in% 1:4)

exres <- ebase(dat, interval = 900, Z = 1.85, n.chains = 2)

usethis::use_data(exres, overwrite = TRUE)
fawda123/EBASE documentation built on Sept. 29, 2024, 4:34 p.m.