Agora vou definir as variáveis
x<-c(2,3,4,1,2)
y<-c(10,12,15,9,8)
x
## [1] 2 3 4 1 2
y
## [1] 10 12 15 9 8
Agora vou mostrar o diagrama de dispersão
plot(x,y)
r1<-lm(y~x)
summary(r1)
##
## Call:
## lm(formula = y ~ x)
##
## Residuals:
## 1 2 3 4 5
## 0.07692 -0.11538 0.69231 1.26923 -1.92308
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 5.5385 1.5911 3.481 0.0400 *
## x 2.1923 0.6102 3.593 0.0369 *
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.391 on 3 degrees of freedom
## Multiple R-squared: 0.8114, Adjusted R-squared: 0.7486
## F-statistic: 12.91 on 1 and 3 DF, p-value: 0.03694
abline(r1)
This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
summary(cars)
## speed dist
## Min. : 4.0 Min. : 2.00
## 1st Qu.:12.0 1st Qu.: 26.00
## Median :15.0 Median : 36.00
## Mean :15.4 Mean : 42.98
## 3rd Qu.:19.0 3rd Qu.: 56.00
## Max. :25.0 Max. :120.00
You can also embed plots, for example:
Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.