library(MazamaTimeSeries)
Carmel <-
Carmel_Valley %>%
mts_filterDate(20160801, 20160810)
# Create timeInfo object for this monitor
ti <- timeInfo(
Carmel$data$datetime,
Carmel$meta$longitude,
Carmel$meta$latitude,
Carmel$meta$timezone
)
t(ti[6:9,])
# Subset the data based on day/night masks
data_day <- Carmel$data[ti$day,]
data_night <- Carmel$data[ti$night,]
# Build two monitor objects
Carmel_day <- list(meta = Carmel$meta, data = data_day)
Carmel_night <- list(meta = Carmel$meta, data = data_night)
# Plot them
plot(Carmel_day$data, pch = 8, col = 'goldenrod')
points(Carmel_night$data, pch = 16, col = 'darkblue')
Run the code above in your browser using DataLab