extraer df de lm en r

 pull(glance(data), df.residual)
Successful Salmon