```{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(1000, mean = m)

## FILE
write.csv(dt, "data-normal.csv")

## SOLUTION
Mean <- mean(dt)
Sd <- sd(dt)
```

Question
========
Considere os valores disponíveis no arquivo [data-normal.csv](data-normal.csv). Calcule:

Questionlist
------------
* A média
* O desvio padrão

Solution
========
Solutionlist
------------
* A média é `r Mean`
* O desvio-padrão é `r Sd`

Meta-information
================
exname: BR
extype: cloze
exclozetype: num|num
exsolution: `r Mean`|`r Sd`
extol: 0.5