Check fitted model
Arguments
- fit
A fitted model, as obtained from
fit_model()
.- data
Data list (from
prepare_data()
).
Examples
if (FALSE) { # interactive()
data(web)
dt <- prepare_data(mat = web, sampl.eff = rep(20, nrow(web)))
fit <- fit_model(dt, refresh = 0)
check_model(fit, data = data)
}