ZimmermannTb16.10: N<c3><ba>mero de Colmos Atacados por _Elasmopalpus_

In pet-estatistica/labestData: Biblioteca de Dados para Aprendizado de Estatística

Description

Experimento realizado em delineamento quadrado latino 6 times 6. Os dados s<c3><a3>o referentes ao n<c3><ba>mero de colmos atacados por Elasmopalpus lignosellus L. em plantas de arroz. S<c3><a3>o apresentados na tabela tamb<c3><a9>m os respectivos postos de cada dado.

Format

Um data.frame com 36 observa<c3><a7><c3><b5>es e 5 vari<c3><a1>veis

linha

Fator categ<c3><b3>rico que representa as linhas do quadrado latino.

coluna

Fator categ<c3><b3>rico que representa as colunas do quadrado latino.

trat

Fator que representa o tratamento aplicado.

colmos

N<c3><ba>mero de colmos atacados por E. lignosellus.

posto

Posto correspondente ao n<c3><ba>mero de colmos atacados de cada unidade experimental (6 \times 6 = 36).

Source

ZIMMERMANN (2004), Tabela 16.10, p<c3><a1>g. 357.

Examples

library(lattice)

data(ZimmermannTb16.10)
str(ZimmermannTb16.10)

ZimmermannTb16.10$posto <- rank(ZimmermannTb16.10$colmos)

levelplot(colmos ~ linha + coluna,
          data = ZimmermannTb16.10, aspect = "iso",
          panel = function(x, y, z, subscripts, ...) {
              panel.levelplot(x, y, z, subscripts = subscripts)
              trat <- ZimmermannTb16.10$trat[subscripts]
              posto <- ZimmermannTb16.10$posto[subscripts]
              panel.text(x, y, labels = trat, pos = 3)
              panel.text(x, y,
                         labels = sprintf("%0.1f (%0.1f)",
                                          z, posto),
                         pos = 1)
          })

xyplot(colmos ~ trat, data = ZimmermannTb16.10,
       type = c("p", "a"),
       ylab = "N<c3><ba>mero de colmos atacados",
       xlab = "Tratamento")

pet-estatistica/labestData documentation built on May 25, 2019, 12:47 a.m.