library(MazamaTimeSeries)
UTC_week <- sts_filterDate(
example_sts,
startdate = 20180808,
enddate = 20180815,
timezone = "UTC"
)
# UTC day boundaries
head(UTC_week$data)
# Trim to local time day boundaries
local_week <- sts_trimDate(UTC_week)
head(local_week$data)
Run the code above in your browser using DataLab