```{r dgp, include = FALSE}
library(exams)
library(magrittr)
library(knitr)
options(scipen = 999) #prevent scientific notation 

## RANDOM DATA 
x <- seq(from = 20, to = 60, by = 5)
y <- 2.5 + 1.5*x + rnorm(length(x)) %>% round(2)

## SOLUTION
c_ang <- lm(y~x) %>% coef() %>% .[2] %>% round(3)
```

Question
========
Considere os valores listados na tabela abaixo:

```{r table, echo=FALSE}
kable(data.frame(x,y), align="cc")
```

Calcule o coeficiente angular da reta linear.

Solution
========
O coeficiente angular da reta é igual a `r c_ang`

Meta-information
================
exname: angular
extype: num
exsolution: `r c_ang` 
extol: `r c_ang * 0.10`