ZimmermannTb11.19: Produtividade de Arroz Irrigado em Ensaio Fatorial com...

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

Description

Dados de um experimento fatorial 2^5, com confundimento da intera<c3><a7><c3><a3>o de quinta ordem. Estudou-se o efeito dos cinco principais problemas da cultura: controle de invasoras, aduba<c3><a7><c3><a3>o, irriga<c3><a7><c3><a3>o, controle de doen<c3><a7>as e cultivar. A intera<c3><a7><c3><a3>o de quarta ordem (5 fatores) foi confundida com blocos. Os dados da produtividade do arroz est<c3><a3>o em kg/ha.

Format

Um data.frame com 32 observa<c3><a7><c3><b5>es e 7 vari<c3><a1>veis, em que

bloc

Fator categ<c3><b3>rico que identifica o bloco.

irri

Fator codificado que representa a irriga<c3><a7><c3><a3>o: permanente e interminentente.

adub

Fator codificado que representa a aduba<c3><a7><c3><a3>o: 30 e 60 kg de N ha^{-1}.

cult

Fator codificado que representa a cultivar de arroz: IAC 435 e IR 841-63-5-I-9-33.

doen

Fator codificado que representa o controle das doen<c3><a7>as: sem controle e controle com aplica<c3><a7><c3><a3>o de Manzate.

inva

Fator codificado que representa o controle das plantas invasoras: aplica<c3><a7><c3><a3>o de Stan F-34 e Ronstar.

prod

Produtividade de arroz irrigado (kg ha^{-1}).

Source

ZIMMERMANN (2004), (Tabela 11.19, p<c3><a1>g. 237)

Examples

library(lattice)
library(latticeExtra)

data(ZimmermannTb11.19)
str(ZimmermannTb11.19)

ftable(xtabs(~irri + cult + adub + doen + inva,
             data = ZimmermannTb11.19))

useOuterStrips(
    xyplot(prod ~ factor(irri) | factor(inva) + factor(doen),
           data = ZimmermannTb11.19,
           groups = interaction(cult, adub, sep = ":"),
           type = c("p", "a"),
           xlab = "Irriga<c3><a7><c3><a3>o",
           ylab = expression("Produtividade"~(kg~ha^{-1})),
           auto.key = list(title = "Cultivar:Aduba<c3><a7><c3><a3>o",
                           cex.title = 1.1,
                           columns = 4)),
    strip = strip.custom(strip.names = TRUE,
                         var.name = "Invasora"),
    strip.left = strip.custom(strip.names = TRUE,
                              var.name = "Doen<c3><a7>a"))

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