# \donttest{
tryCatch({
stop("convergence failed")
}, error = function(e) {
err <- tryCatch(
abort_model_error(
"Model failed to converge",
model_type = "dlnm",
original_error = conditionMessage(e)
),
error = identity
)
inherits(err, "model_error")
})
# }
Run the code above in your browser using DataLab