R Regresion: Eddy Herrera Luz Marina Moya

modelo1<- lm(drat~wt,data=mtcars)
modelo1

Call:
lm(formula = drat ~ wt, data = mtcars)

Coefficients:
(Intercept)           wt  
     4.8491      -0.3893  

summary(modelo1)

Call:
lm(formula = drat ~ wt, data = mtcars)

Residuals:
     Min       1Q   Median       3Q      Max 
-0.74206 -0.28100  0.07584  0.30874  0.70966 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)  4.84908    0.23512  20.624  < 2e-16 ***
wt          -0.38931    0.07001  -5.561 4.78e-06 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.3814 on 30 degrees of freedom
Multiple R-squared:  0.5076,    Adjusted R-squared:  0.4912 
F-statistic: 30.92 on 1 and 30 DF,  p-value: 4.784e-06