Check a model's data and parameters and report anything that would stop it being fit.
Examples
peaks <- c(12500, 15300, 8900, 22100, 18700, 14200, 9800, 28500, 17400, 11600)
model_validate(model_univariate("Normal", peaks))
#> $is_valid
#> [1] TRUE
#>
#> $messages
#> character(0)
#>