## -----------------------------------------------------------------------------


## -----------------------------------------------------------------------------
library(nowcastr)
nc_eval_obj <-
  nowcast_demo %>%
  nowcast_eval(
    n_past = 10,
    col_date_occurrence = date_occurrence,
    col_date_reporting = date_report,
    col_value = value,
    group_cols = "group",
    time_units = "weeks",
    do_model_fitting = TRUE
  )


## -----------------------------------------------------------------------------
nc_eval_obj@detail %>% dplyr::glimpse(0)


## -----------------------------------------------------------------------------
nc_eval_obj@summary %>% dplyr::glimpse(0)


## -----------------------------------------------------------------------------
#| warning: false
plot_nowcast_eval(nc_eval_obj, delay = 0)


## -----------------------------------------------------------------------------
#| warning: false
plot_nowcast_eval_by_delay(nc_eval_obj, indicator = "SMAPE_improvement_med")


## -----------------------------------------------------------------------------
plot_nowcast_eval_detail(nc_eval_obj, delay = 0)


## -----------------------------------------------------------------------------
library(nowcastr)
nc_eval_obj_with_fill <-
  nowcast_demo %>%
  fill_future_reported_values(
    col_date_occurrence = date_occurrence,
    col_date_reporting = date_report,
    col_value = value,
    group_cols = "group",
    max_delay = "auto"
  ) %>%
  nowcast_eval(
    n_past = 10,
    col_date_occurrence = date_occurrence,
    col_date_reporting = date_report,
    col_value = value,
    group_cols = "group",
    time_units = "weeks",
    do_model_fitting = TRUE
  )


## -----------------------------------------------------------------------------
#| warning: false
plot_nowcast_eval(nc_eval_obj_with_fill, delay = 0)