DiasEx10.4.6: Ensaio de Competi<c3><a7><c3><a3>o de Batata Doce

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

Description

Ensaio de competi<c3><a7><c3><a3>o de batata doce, instalado em delineamento de blocos casualizados com 3 repeti<c3><a7><c3><b5>es e sob esquema fatorial 3 \times 4, onde foram avaliados 3 tipos de solos e 4 n<c3><ad>veis de aduba<c3><a7><c3><a3>o.

Format

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

solo

Fator categ<c3><b3>rico que representa os tipos de solo.

adub

Fator categ<c3><b3>rico que representa os n<c3><ad>veis de aduba<c3><a7><c3><a3>o.

prod

Produtividade.

Details

N<c3><a3>o foram exibidos todos os dados, pois dos 4 \times 3 \times 3 = 36 dados previstos, apenas 12 est<c3><a3>o dispon<c3><ad>veis. Julga-se que seja a m<c3><a9>dia.

Source

BARROS; DIAS (2009), Exerc<c3><ad>cio 10.4, Cap. 10, p<c3><a1>g. 294.

Examples

library(lattice)

data(DiasEx10.4.6)
str(DiasEx10.4.6)

a <- reshape::cast(data = DiasEx10.4.6, solo ~ adub, value = "prod")
addmargins(as.matrix(a[, -1]))

xtabs(~solo + adub, data = DiasEx10.4.6)

xyplot(prod ~ adub, groups = solo,
       data = DiasEx10.4.6,
       type = "o",
       xlab = "Aduba<c3><a7><c3><a3>o", ylab = "Produ<c3><a7><c3><a3>o")

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