---
title: "Análise do Experimento X"
author: "Walmes Zeviani"
date: "February 21, 2020"
bibliography: "refs.bib"
output: pdf_document
---

## Descrição do experimento

O experimento foi conduzido sob o delineamento inteiramento casualizado [@goupy1993methods]...

O modelo estatístico para o experimento é
$$
  y_{ij} = \mu + \tau_i + \epsilon_{ij}
$$
em que:

  * $y_{ij}$ é a resposta observada no tratamento $i$ e repetição $j$;
  * $\mu$ é uma constante inerente a todas as observações;
  * $\tau_i$ acomoda o efeito do tratamento $i$;
  * $\epsilon_{ij}$ é o erro experimental que se assume ter distribuição
    normal de média 0 e variância $\sigma^2$.
    
## Análise do experimento

```{r, results = "hide"}
library(emmeans)
```


Os dados foram importados do arquivo...

| Trat | Custo | IMportado |
|------|-------|-----------|
| A    | 10    |  Sim      |
| B    | 20    | Nao       |
| C    | 25    |  Nao      |
| D    | 21    | sim       |

```{r, fig.dim = c(7, 7)}
str(warpbreaks)

m0 <- lm(breaks ~ wool * tension, data = warpbreaks)

par(mfrow = c(2, 2))
plot(m0)
layout(1)

MASS::boxcox(m0)

m1 <- lm(log(breaks) ~ wool * tension, data = warpbreaks)

anova(m1)

emmeans(m1, specs = ~ wool | tension)
```

# Referências bibliográficas
