Check whether an object from a call to lm, glm or some other regression function is correct

Check whether an object from a call to lm, glm or some other regression function is correct

check.regression(
  var,
  str.expr,
  part = NULL,
  ps = get.ps(),
  stud.env = ps$stud.env,
  verbose = FALSE,
  failure.message = paste0("Hmm... your regression ", var, " seems incorrect."),
  success.message = paste0("Great, your regression ", var, " looks correct."),
  tol = 1e-10
)