peso<-c(45,56,76,89,90)
talla<-c(145, 150, 172, 180, 187)
mi_modelo<-lm(peso~talla)
summary(mi_modelo)
##
## Call:
## lm(formula = peso ~ talla)
##
## Residuals:
## 1 2 3 4 5
## -2.8146 2.8218 -0.7782 3.6400 -2.8690
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) -107.73047 16.12995 -6.679 0.00684 **
## talla 1.07272 0.09623 11.147 0.00155 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 3.558 on 3 degrees of freedom
## Multiple R-squared: 0.9764, Adjusted R-squared: 0.9686
## F-statistic: 124.3 on 1 and 3 DF, p-value: 0.001547