model <- readRDS(paste0(system.file("extdata",package="eva3dm"),
"/model.Rds"))
summary(model)
summary(select(data = model, start = '2012-01-09'))
summary(select(data = model, start = '2012-01-05', end = '2012-01-09'))
summary(select(data = model, day = 6))
summary(select(data = model, hour = 12))
summary(select(data = model, day = 6, hour = 12))
summary(select(data = model, day = 'weekday'))
summary(select(data = model, day = 'weekend'))
summary(select(data = model, day = 'tue'))
summary(select(data = model, day = 'jan'))
Run the code above in your browser using DataLab