R/check.R

In poissonconsulting/tmbr: Analyses Using TMB

#' @export
check_model_pars.tmb_code <- function(x, fixed, random, derived, drops) {
  chk_string(fixed)
  chk_null_or(random, vld = vld_character)
  chk_null_or(derived, vld = vld_character)
  chk_null_or(drops, vld = vld_character)

  if (!any(str_detect(pars(x, param_type = "primary"), fixed)))
    error("fixed does not match any primary code parameters")

  if (length(random) && !all(random %in% pars(x, param_type = "primary")))
    error("random effects parameters missing from primary code parameters")

  if (length(derived) && !all(derived %in% pars(x, param_type = "derived")))
    error("derived parameters missing from derived code parameters")

  if (length(drops) && !all(unlist(drops) %in% pars(x, param_type = "primary", scalar = TRUE)))
    error("drops parameters missing from primary scalar code pars")

  pars(x, param_type = "derived")
}

check_data_model <- function(data, model) {
  if (is.data.frame(data)) {
    data %<>% modify_data(model = model)
    inits(data, model$gen_inits, model$random_effects)
  } else
    llply(data, check_data_model, model)
  TRUE
}