# Create a `tsd` object
tsd_data <- generate_seasonal_data()
# Create a `tsd_burden_levels` object
tsd_burden_levels <- seasonal_burden_levels(
tsd = tsd_data
)
# Print the summary
summary(tsd_burden_levels)
Run the code above in your browser using DataLab