### Conteúdo

Um exemplo mínimo reproduzível em R deve ter os seguintes conteúdos:

 1. Um pequeno conjunto de dados;
 2. O menor código possível que seja **executável** e que reproduza o erro no pequeno conjunto de dados mencionado;
 3. As informações sobre a versão do `R` e do sistema em que está rodando o código, bem como dos pacotes utilizados;
 4. Se for utilizar dados aleatórios, informar o *seed* com a função `set.seed()`.

Os exemplos das páginas de ajuda das funções do `R` podem ser de grande valia para ter uma noção da estrutura de um exemplo mínimo reproduzível. Em geral, os códigos dos exemplos da ajuda do `R` satisfazem a esses requisitos.

### Produzindo o conjunto de dados

Para usar seu próprio conjuto de dados, a função `dput()`, juntamente com `head()` pode ser bastante útil. Por exemplo o código abaixo fornece as 10 primeiras observações da base de dados `iris` já com a estrutura necessária para "remontar" a base de dados. Assim, para quem for tentar responder a sua pergunta, basta copiar e colar o código em `structure()`.

    dput(head(iris,10))
    structure(list(Sepal.Length = c(5.1, 4.9, 4.7, 4.6, 5, 5.4, 4.6, 
    5, 4.4, 4.9), Sepal.Width = c(3.5, 3, 3.2, 3.1, 3.6, 3.9, 3.4, 
    3.4, 2.9, 3.1), Petal.Length = c(1.4, 1.4, 1.3, 1.5, 1.4, 1.7, 
    1.4, 1.5, 1.4, 1.5), Petal.Width = c(0.2, 0.2, 0.2, 0.2, 0.2, 
    0.4, 0.3, 0.2, 0.2, 0.1), Species = structure(c(1L, 1L, 1L, 1L, 
    1L, 1L, 1L, 1L, 1L, 1L), .Label = c("setosa", "versicolor", "virginica"
    ), class = "factor")), .Names = c("Sepal.Length", "Sepal.Width", 
    "Petal.Length", "Petal.Width", "Species"), row.names = c(NA, 
    10L), class = "data.frame")

Reproduzindo os dados:

    dados<-structure(list(Sepal.Length = c(5.1, 4.9, 4.7, 4.6, 5, 5.4, 4.6, 
        5, 4.4, 4.9), Sepal.Width = c(3.5, 3, 3.2, 3.1, 3.6, 3.9, 3.4, 
        3.4, 2.9, 3.1), Petal.Length = c(1.4, 1.4, 1.3, 1.5, 1.4, 1.7, 
        1.4, 1.5, 1.4, 1.5), Petal.Width = c(0.2, 0.2, 0.2, 0.2, 0.2, 
        0.4, 0.3, 0.2, 0.2, 0.1), Species = structure(c(1L, 1L, 1L, 1L, 
        1L, 1L, 1L, 1L, 1L, 1L), .Label = c("setosa", "versicolor", "virginica"
        ), class = "factor")), .Names = c("Sepal.Length", "Sepal.Width", 
        "Petal.Length", "Petal.Width", "Species"), row.names = c(NA, 
        10L), class = "data.frame")

Uma solução menos ideal do que esta seria fornecer os dados em formato texto, como, por exemplo, no caso abaixo:

    texto <- "Sepal.Length Sepal.Width Petal.Length Petal.Width Species
    1          5.1         3.5          1.4         0.2  setosa
    2          4.9         3.0          1.4         0.2  setosa
    3          4.7         3.2          1.3         0.2  setosa
    4          4.6         3.1          1.5         0.2  setosa
    5          5.0         3.6          1.4         0.2  setosa
    6          5.4         3.9          1.7         0.4  setosa"

Neste caso, o usuário que for responder sua pergunta pode remontar a base de dados utilizando a função `read.table()`:

    dados <- read.table(text=texto)

Outra forma de produzir um conjunto de dados é gerando **valores aleatórios**, por exemplo, com a função `rnorm()` (você também pode gerar de outras distribuições sem ser a normal, caso seja pertinente) ou com a função `sample()` para uma amostragem de valores de algum vetor. Um caso útil pode ser a função `letters()`, para gerar caracteres ou fatores. Neste caso, não esqueça de fornecer a `seed` para que o exemplo seja reproduzível.

Exemplo:

    set.seed(1)
    dados <- data.frame( x= rnorm(10), y=sample(letters, 10))
    dados
                        x y
    1  -0.626453810742333 y
    2   0.183643324222082 f
    3  -0.835628612410047 p
    4    1.59528080213779 c
    5   0.329507771815361 z
    6  -0.820468384118015 i
    7   0.487429052428485 a
    8   0.738324705129217 h
    9   0.575781351653492 x
    10 -0.305388387156356 v

Outras funções interessantes neste caso são as funções do tipo `as`, como  `as.factor()`, `as.Date()` etc, para você converter os dados para o formato necessário.

### Produzindo o código mínimo

Tente identificar a menor parte necessária do seu código que gere o erro ou a dúvida que você tem.  Antes de enviar o código, certifique-se de que você elencou os pacotes necessários para que ele seja reproduzível. Para isso, é bom testar o seu código após reiniciar a sessão do `R`, para ter certeza de que tudo o que é necessário está lá.

Exemplo:

   

     library(lattice) # a biblioteca utilizada
        set.seed(1) # a seed
        dados <- data.frame( x= as.character(rnorm(10)), y=sample(letters, 10)) #o conjunto de dados
        densityplot(as.numeric(dados$x))
        as.numeric(dados$x)
    [1]  2  5  4 10  6  3  7  9  8  1

Pergunta: "Estou tentando fazer um gráfico de densidade com o `lattice` como no código acima, porque quando converto os dados para numeric eles viram 2, 5, 4 ... e não permanecem como os dados originais do `rnorm`?"

### Informações do sistema

Por fim, quando necessário, você pode fornecer as informações do seu sistema com `sessionInfo()`, que dá informações detalhadas da sua seção. No meu caso, essas informações foram:

    R version 3.0.1 (2013-05-16)
    Platform: i386-w64-mingw32/i386 (32-bit)
    
    locale:
    [1] LC_COLLATE=Portuguese_Brazil.1252  LC_CTYPE=Portuguese_Brazil.1252   
    [3] LC_MONETARY=Portuguese_Brazil.1252 LC_NUMERIC=C                      
    [5] LC_TIME=Portuguese_Brazil.1252    
    
    attached base packages:
    [1] stats     graphics  grDevices utils     datasets  methods   base     
    
    other attached packages:
    [1] lattice_0.20-15
    
    loaded via a namespace (and not attached):
    [1] grid_3.0.1  tools_3.0.1