# Create a valid baselinenowcast_df object
valid_df <- data.frame(
reference_date = as.Date("2024-01-01") + 0:4,
pred_count = c(10, 15, 12, 18, 20),
draw = 1,
output_type = "point"
)
class(valid_df) <- c("baselinenowcast_df", "data.frame")
# Validate the object
assert_baselinenowcast_df(valid_df)
Run the code above in your browser using DataLab