PimentelTb16.2.1: Ensaio de Controle de Pragas do Feijoeiro

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

Description

Ensaio de controle de pragas do feijoeiro, realizado pelo engenheiro agr<c3><b4>nomo Jo<c3><a3>o Ferreira do Amaral. Nesse experimento, em 8 blocos casualizados, foram utilizados 5 tratamentos. Al<c3><a9>m da produ<c3><a7><c3><a3>o do feijoeiro (g/parcela) determinou-se o n<c3><ba>mero de plantas de cada parcela para que fosse corrigida a varia<c3><a7><c3><a3>o da produ<c3><a7><c3><a3>o final pela quantidade de plantas na parcela.

Format

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

bloc

Fator de 8 n<c3><ad>veis qualitativos, usado para controle local.

inset

Fator de 5 n<c3><ad>veis qualitativos, que s<c3><a3>o os diferentes tipos de inseticidas, sendo um a testemunha e os demais produtos comerciais.

stand

Vari<c3><a1>vel quantitativa, que refere-se ao n<c3><ba>mero de plantas de cada parcela.

prod

Produ<c3><a7><c3><a3>o de feij<c3><a3>o, em g/parcela.

Source

PIMENTEL-GOMES (2009), Tabela 16.2.1, p<c3><a1>g. 300.

Examples

library(lattice)
library(latticeExtra)

data(PimentelTb16.2.1)
str(PimentelTb16.2.1)

cex <- with(PimentelTb16.2.1, {
    std <- stand - min(stand)
    cex <- std/max(std)
    cex <- 0.5 + 1 * cex
    nums <- function(x) seq(min(x), max(x), length.out = 5)
    key <- list(text = list(formatC(nums(stand), digits = 1)),
                points = list(cex = nums(cex), pch = 1),
                title = "Plantas por parcela",
                cex.title = 1.1,
                columns = 5)
    return(list(cex = cex, key = key))
})

xyplot(prod ~ inset, data = PimentelTb16.2.1,
       cex = cex$cex, key = cex$key,
       ylab = "Produ<c3><a7><c3><a3>o de feij<c3><a3>o (g/parcela)",
       xlab = "Inseticidas")

xyplot(prod ~ stand, data = PimentelTb16.2.1,
       groups = inset, type = c("p", "r"),
       auto.key = list(title = "Inseticidas", cex.title = 1.1,
                       columns = 2),
       ylab = "Produ<c3><a7><c3><a3>o de feij<c3><a3>o (g/parcela)",
       xlab = "Plantas por parcela")

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