check_model <-
function(model.fit,dependent.var){
residuals <- resid(model.fit)
plot(fitted(model.fit), residuals)
abline(0,0)
plot(fitted(model.fit), dependent.var)
qqnorm(residuals)
qqline(residuals)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.