# Analyze the data using the aedseo package
tsd_data <- tsd(
observed = c(100, 120, 150, 180, 220, 270),
time = as.Date(c(
"2023-01-01",
"2023-01-02",
"2023-01-03",
"2023-01-04",
"2023-01-05",
"2023-01-06"
)),
time_interval = "day"
)
aedseo_results <- aedseo(
tsd = tsd_data,
k = 3,
level = 0.95,
family = "poisson"
)
# Predict growth rates for the next 5 time steps
prediction <- predict(object = aedseo_results, n_step = 5)
# Print the prediction
print(prediction)
Run the code above in your browser using DataLab