Test if object is a model_spec
Examples
spec <- model_spec(
loglik_fn = function(y, lambda) sum(dexp(y, rate = lambda, log = TRUE)),
par_names = "lambda"
)
is_model_spec(spec) # TRUE
is_model_spec(list()) # FALSETest if object is a model_spec
spec <- model_spec(
loglik_fn = function(y, lambda) sum(dexp(y, rate = lambda, log = TRUE)),
par_names = "lambda"
)
is_model_spec(spec) # TRUE
is_model_spec(list()) # FALSE