R Programming MS Residual functions

Question

Does R provide a pre-defined function to find Mean Square Residual? 

Answer 1

Here's an example, you can try this function:

msResid <- function(model) deviance(model)/df.residual(model)