Abaixo um exemplo de definição de dados e regressão.
x<-c(1,3,4,5,8,12,5,7)
y<-c(10,14,17,20,25,30,18,19)
Abaixo vai o gráfico de dispersão.
plot(x,y)
Estimando a regressão e mostrando resultados
reg1<-lm(y~x)
summary(reg1)
##
## Call:
## lm(formula = y ~ x)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.5759 -0.5865 -0.2285 0.9890 1.9890
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 9.0986 1.1450 7.946 0.000211 ***
## x 1.7825 0.1775 10.043 5.65e-05 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.586 on 6 degrees of freedom
## Multiple R-squared: 0.9439, Adjusted R-squared: 0.9345
## F-statistic: 100.9 on 1 and 6 DF, p-value: 5.651e-05
plot(x,y)
abline(reg1)
E acabou….