CostaTb6: Efeito da Cobertura Morta no Peso Seco de Br<c3><b3>colis

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

Description

Experimento instalado em delineamento de blocos casualizados para estudar o efeito de tipos de cobertura morta no peso seco de br<c3><b3>colis.

Format

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

cobert

Fator nominal com n<c3><ad>veis de cobertura morta aplicada sobre o solo onde foi cultivado o br<c3><b3>colis: cobertura com sorgo, com crotal<c3><a1>ria, com milheto e com a vegeta<c3><a7><c3><a3>o espont<c3><a2>nea.

bloco

Fator de n<c3><ad>veis nominais considerado para controle local, possivelmente os canteiros da horta, com 5 n<c3><ad>veis.

peso

Vari<c3><a1>vel resposta cont<c3><ad>nua, peso seco (g parcela^{-1}) de br<c3><b3>colis.

Source

Costa (2013), Tabela 6 p<c3><a1>g. 63.

Examples

library(lattice)

data(CostaTb6)
str(CostaTb6)

with(CostaTb6, addmargins(tapply(X = peso,
                                 INDEX = list(bloco, cobert),
                                 FUN = sum)))

# Ordenar para evitar o efeito espaguete no gr<c3><a1>fico.
CostaTb6 <- CostaTb6[with(CostaTb6, order(cobert, bloco)), ]

xyplot(peso ~ cobert, data = CostaTb6,
       groups = bloco, type = "b",
       xlab = "Tipos de cobertura do solo",
       ylab = expression("Peso seco de br<c3><b3>colis"~(g~parcela^{-1})),
       auto.key = list(corner = c(0.1, 0.1), columns = 2,
                       title = "Blocos", cex.title = 1))

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