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

## RANDOM DATA 
m <- 10:20 %>% sample(1)
dt <- rnorm(100, mean = m)
```

Question
========
Analise o boxplot abaixo:

```{r plot, echo=FALSE, fig.cap=" "}
boxplot(dt)
```

Assinale todas as alternativas verdadeiras:

Answerlist
----------
* A distribuição é simétrica.
* A mediana é, aproximadamente, igual a `r median(dt) %>% round()`
* O maior valor é, aproximadamente, igual a `r max(dt*2) %>% round()`

Solution
========
* VERDADEIRA.
* VERDADEIRA.
* FALSA. O maior valor é, aproximadamente, igual a `r max(dt) %>% round()`

Meta-information
================
exname: boxplot
extype: mchoice
exsolution: 110
exshuffle: TRUE