ZimmermannTb3.5: Fracionamento da Aduba<c3><a7><c3><a3>o na...

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

Description

Dados de um estudo sobre aduba<c3><a7><c3><a3>o nitrogenada na cultura do arroz irrigado. Foram testadas quatros formas de aplica<c3><a7><c3><a3>o do adubo fazendo o fracionamento das quantidades em diferentes <c3><a9>pocas. O experimento foi instalado em delineamento inteiramente casualizado com 8 repeti<c3><a7><c3><b5>es.

Format

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

trat

Fator de n<c3><ad>veis categ<c3><b3>ricos que representa as formas de aduba<c3><a7><c3><a3>o: 1 = 80 kg/ha no plantio, 2 = 40 kg/ha 40 dias no plantio ap<c3><b3>s a emerg<c3><aa>ncia (DAE), 3 = 13.2 kg/ha no plantio e 66.8 kg/ha aos 40 DAE, e 4 = 13.2 kg/ha no plantio e 33.4 kg/ha aos 40 e 60 DAE.

rept

Inteiro que identifica as repreti<c3><a7><c3><b5>es de uma forma de aduba<c3><a7><c3><a3>o.

prod

Produ<c3><a7><c3><a3>o de gr<c3><a3>os de arroz irrigado (ka ha^{-1}).

Source

ZIMMERMANN (2004), Tabela 3.5, p<c3><a1>g. 54.

Examples

library(lattice)

data(ZimmermannTb3.5)
str(ZimmermannTb3.5)

# Quantidade[<c3><a9>poca].
adub <- expression(80[0],
                   40[0] + 40[40],
                   13.2[0] + 66.8[40],
                   13.2[0] + 33.4[40] + 33.4[60])

xyplot(prod ~ adub, data = ZimmermannTb3.5,
       type = c("p", "a"), jitter.x = TRUE,
       xlab = "Formas de aduba<c3><a7><c3><a3>o",
       ylab = expression("Produ<c3><a7><c3><a3>o de arroz"~(kg~ha^{-1})),
       scales = list(x = list(labels = adub)))

aggregate(prod ~ adub, data = ZimmermannTb3.5,
          FUN = function(x) { c(mean = mean(x), sd = sd(x)) })

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