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)