# Step 1: Install and load necessary packages
install.packages("zoo")
library(zoo)
# Step 2: Create sample data with timestamps
timestamps <- seq(as.POSIXct("2023-01-01 00:00:00"), as.POSIXct("2023-01-10 23:59:59"), by = "15 min")
values <- rnorm(length(timestamps))
# Step 3: Convert data to zoo time series object
time_series <- zoo(values, order.by = timestamps)
# Step 4: Aggregate data by day
daily_series <- aggregate(time_series, as.Date, mean)
# Step 5: Display the resulting time series for each day
print(daily_series)