5.4 Tabela
Existe a possibilidade de mostrar dados em formato de tabela, como na figura abaixo:
Fonte da figura: O autor
E o código em RMarkdown:
```{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`
Em ## RANDOM DATA são criados dois vetores x
e y
.
Seguindo com o código:
```{r table, echo=FALSE}
kable(data.frame(x,y), align="cc")
```
estes valores são plotados em formato de tabela utilizando a função kable
, que recebe um data.frame
composto por estes dois vetores. A opção align="cc
modifica a formatação para centralizada.