DemetrioTb2.12: Produ<c3><a7><c3><a3>o de Ruibarbo

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

Description

Dados de um experimento conduzido em delineamento de blocos ao acaso onde foi mensurada a produ<c3><a7><c3><a3>o de ruibarbos para enlatamento, considerando diferentes datas de colheita.

Format

Um data.frame de 28 linhas e 3 colunas, em que

data

Data de colheita dos ruibarbos. Obs.: Para utilizar o formato Date foi considerado o ano 1983 (Date de publica<c3><a7><c3><a3>o do livro que referencia os dados).

bloco

Fator que indica o bloco, para controle de varia<c3><a7><c3><a3>o, ao qual a observa<c3><a7><c3><a3>o pertence.

prod

Valor da produ<c3><a7><c3><a3>o de ruibarbo.

Source

DEM<c3><89>TRIO; ZOCCHI (2011), Tabela 2.12 p<c3><a1>g. 66-67.

Examples

data(DemetrioTb2.12)
str(DemetrioTb2.12)

library(lattice)

# Estat<c3><ad>sticas descritivas
with(DemetrioTb2.12, tapply(prod, data, summary))

with(DemetrioTb2.12, {
    mu <<- aggregate(prod, list(data), mean)
    des <<- aggregate(prod, list(data), sd)
})

xyplot(prod ~ data, data = DemetrioTb2.12,
       type = c("p", "r"), grid = TRUE,
       panel = function(x, y, ...) {
           panel.points(x = mu$G - 0.5, y = mu$x, pch = 15, col = 1)
           panel.arrows(x0 = mu$G - 0.5, y0 = mu$x - des$x,
                        x1 = mu$G - 0.5, y1 = mu$x + des$x,
                        code = 3, length = 0.05, angle = 90)
           panel.xyplot(x, y, ...)
           })

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