PimentelTb16.3.1: Suscetibilidade de Variedades de Soja ao Ataque de...

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

Description

Experimento de Arruda (1952), em blocos casualizados, em que se compararam 21 variedades de soja para estudar sua suscetibilidade ao ataque de nemat<c3><b3>ides. Em cada parcela foram colocadas plantas da variedade Abura, bastante suscet<c3><ad>vel a nemat<c3><b3>ides cuja infesta<c3><a7><c3><a3>o seria proporcional <c3><a0> quantidade de nematoides do solo. Tanto as ra<c3><ad>zes das variedades estudadas como as da variedade padr<c3><a3>o tiveram sua infesta<c3><a7><c3><a3>o avaliada a olho, com atribui<c3><a7><c3><a3>o de notas de 0 (sem ataque aparente) a cinco (com infesta<c3><a7><c3><a3>o severa). Das variedades estudadas, apenas 15 foram registradas.

Format

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

bloc

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

varied

Fator de 15 n<c3><ad>veis qualitativos, que s<c3><a3>o as variedades de soja.

X

M<c3><a9>dia das notas para infesta<c3><a7><c3><a3>o nas plantas da variedade padr<c3><a3>o, suscet<c3><ad>vel ao ataque de nematoide.

Y

M<c3><a9>dia das notas para infesta<c3><a7><c3><a3>o nas plantas das variedades estudadas.

Source

PIMENTEL-GOMES (2009), Tabela 16.3.1, p<c3><a1>g. 306.

Examples

library(lattice)

data(PimentelTb16.3.1)
str(PimentelTb16.3.1)

PimentelTb16.3.1$varied <- with(PimentelTb16.3.1,
                                reorder(varied, Y))

cex <- with(PimentelTb16.3.1, {
    x <- X - min(X)
    cex <- x/max(x)
    cex <- 0.5 + 1 * cex
    nums <- function(x) seq(min(x), max(x), length.out = 5)
    key <- list(text = list(formatC(nums(x), digits = 1)),
                points = list(cex = nums(cex), pch = 1),
                title = "Nemat<c3><b3>ides nas cultivar suscest<c3><ad>vel",
                cex.title = 1.1,
                columns = 5)
    return(list(cex = cex, key = key))
})

xyplot(Y ~ varied, data = PimentelTb16.3.1,
       cex = cex$cex, key = cex$key,
       ylab = "N<c3><ad>vel de infesta<c3><a7><c3><a3>o de nematoides",
       xlab = "Variedade")

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