ZimmermannTb14.3: Estande de Plantas e Produtividade de Cultivares de...

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

Description

Dados de um ensaio de competi<c3><a7><c3><a3>o de cultivares de feij<c3><a3>o onde foram registrados a produtivididade, bem como o estande por <c3><a1>rea <c3><ba>til, para sete cultivares de arroz. O experimento foi feito em delineamento de blocos completos ao acaso e a informa<c3><a7><c3><a3>o de estande foi medida para explicar parte da varia<c3><a7><c3><a3>o em produtividade das parcelas, j<c3><a1> maior estande favorece maior produtividade.

Format

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

bloc

Fator categ<c3><b3>rico que identifica os blocos.

cult

Fator categ<c3><b3>rico que identifica as cultivares de feij<c3><a3>o.

stand

Estande de plantas na <c3><a1>rea <c3><ba>til da parcela.

prod

Produtividade, em kg ha^{-1}

Source

ZIMMERMANN (2004), Tabela 14.3, p<c3><a1>g. 293.

See Also

ZimmermannTb4.4 cont<c3><a9>m dados referentes ao mesmo ensaio, por<c3><a9>m com mais cultivares e sem a informa<c3><a7><c3><a3>o de estande.

Examples

library(lattice)

data(ZimmermannTb14.3)
str(ZimmermannTb14.3)

cex <- with(ZimmermannTb14.3, {
    x <- stand - min(stand)
    x <- 0.5 + 1 * x/max(x)
    L <- cbind(cex = fivenum(x), labels = fivenum(stand))
    return(list(cex = x, legend = L))
})

key <- list(
    title = "Stand", cex.title = 1.1, columns = 5,
    points = list(pch = 1, cex = cex$legend[, "cex"]),
    text = list(c(sprintf("%0.0f", cex$legend[, "labels"]))))

xyplot(prod ~ cult, data = ZimmermannTb14.3,
       type = c("p", "a"), cex = cex$cex,
       xlab = "Cultivares", ylab = "Produ<c3><a7><c3><a3>o", key = key)

xyplot(prod ~ cult, groups = bloc, data = ZimmermannTb14.3,
       type = "a", xlab = "Cultivares", ylab = "Produ<c3><a7><c3><a3>o",
       key = key,
       panel = function(x, y, subscripts, groups, ...) {
           panel.xyplot(x = x, y = y,
                        subscripts = subscripts,
                        groups = groups, ...)
           col <- trellis.par.get()$superpose.symbol$col[
                                       groups[subscripts]]
           panel.points(x = x, y = y, cex = cex$cex[subscripts],
                        col = col)
           panel.text(x = x,  y = y, pos = 2, cex = 0.8,
                      labels = sprintf("%d", ZimmermannTb14.3$stand))
       })

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