Givens a lm object, returns its regression equation
equacoes(object, precision = 10000)
| object | object of class   | 
    
|---|---|
| precision | the precision required for coefficients  | 
    
dados <- st_drop_geometry(centro_2015)#> Error in st_drop_geometry(centro_2015): could not find function "st_drop_geometry"#> Error in is.data.frame(data): object 'dados' not foundequacoes(fit)#> Error in equacoes(fit): object 'fit' not foundequacoes(fit, precision = 1)#> Error in equacoes(fit, precision = 1): object 'fit' not found