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

## RANDOM DATA 
Mu <- 100:999 %>% sample(6)

## SOLUTION
Mean <- mean(Mu) %>% round(2) #correct
Sch <- num2schoice(correct = Mean) #to schoice
```

Question
========
Considere a sequência de números abaixo:  

`r Mu`

Qual é a média desses valores?  

```{r questionlist, echo = FALSE, results = "asis"}
 answerlist(Sch$questions, markup = "markdown")
```

Solution
========
A média é igual a `r Mean`.  

Meta-information
================
exname: media
extype: schoice
exsolution: `r mchoice2string(Sch$solutions)`