ZimmermannTb14.9: Controle de Insetos na Produtividade de Gr<c3><a3>os de Arroz

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

Description

Dados de um ensaio de controle de insetos/pragas na cultura do arroz. O experimento foi feito em delineamento quadrado latino 6 \times 6 mas h<c3><a1> uma um dado perdido (linha 6, coluna 2). Esta observa<c3><a7><c3><a3>o recebeu o valor NA.

Format

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

linha

Fator que indica a linha do quadrado latino.

coluna

Fator que indica a coluna do quadrado latino.

inset

Fator que indica o tratamento para controle de insetos.

prod

Produ<c3><a7><c3><a3>o de gr<c3><a3>os por <c3><a1>rea <c3><ba>til da parcela.

Source

ZIMMERMANN (2004), Tabela 14.9, p<c3><a1>g. 297.

See Also

Dados do mesmo experimento, referente <c3><a0> vari<c3><a1>vel de contagem n<c3><ba>mero de perfilhos de arroz, est<c3><a3>o dispon<c3><ad>veis em ZimmermannTb5.15.

Examples

library(lattice)

data(ZimmermannTb14.9)
str(ZimmermannTb14.9)

# Indicadora de observa<c3><a7><c3><a3>o perdida/ausente.
is.na(ZimmermannTb14.9$prod)

levelplot(prod ~ linha + coluna,
          data = ZimmermannTb14.9, aspect = "iso",
          panel = function(x, y, z, subscripts, ...) {
            panel.levelplot(x, y, z, subscripts = subscripts)
            panel.text(x, y,
                       labels = ZimmermannTb14.9$inset[subscripts],
                       pos = 3)
            panel.text(x, y, sprintf("%0.1f", z), pos = 1,
                       col = is.na(z[subscripts]) + 1)
          })

xyplot(prod ~ inset,
       data = na.omit(ZimmermannTb14.9),
       type = c("p", "a"),
       xlab = "Inseticidas",
       ylab = "Produ<c3><a7><c3><a3>o")

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