I have the next data

modelo <-lm(Morosidad~PIB+TIIE+T.Des+Bono.3Meses+Inflacion, data=Data)
summary(modelo)
How I can box the output of summarry output like the next image

I have the next data

modelo <-lm(Morosidad~PIB+TIIE+T.Des+Bono.3Meses+Inflacion, data=Data)
summary(modelo)
How I can box the output of summarry output like the next image
