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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.