como obter teste de falta de ajuste em um modelo de regressão no R?

 

Obrigado!!