PimentelTb12.2.1: Experimento de Aduba<c3><a7><c3><a3>o com P_2O_5 em Milho

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

Description

Experimento de aduba<c3><a7><c3><a3>o de milho feito pelos engenheiros agr<c3><b4>nomos Glauco Pinto Viegas e Erik Smith, em blocos ao acaso, para estudar o efeito da aduba<c3><a7><c3><a3>o na produtividade da cultura.

Format

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

bloco

Fator de 4 n<c3><ad>veis qualitativos, usado para controle local.

P2O5

Fator de 5 n<c3><ad>veis m<c3><a9>tricos que s<c3><a3>o as doses de P_2O_5 em kg ha^{-1}.

prod

Produ<c3><a7><c3><a3>o de milho, em kg/parcela.

Source

PIMENTEL-GOMES (2009), Tabela 12.2.1, p<c3><a1>g. 232.

Examples

library(lattice)

data(PimentelTb12.2.1)
str(PimentelTb12.2.1)

xyplot(prod ~ P2O5,
       groups = bloco,
       data = PimentelTb12.2.1,
       auto.key = list(title = "Blocos", cex.title = 1,
                       columns = 4),
       ylab = "Produ<c3><a7><c3><a3>o (kg/parcela)",
       xlab = expression(Dosagem~de~P[2]*O[5]~(kg~ha^{-1})),
       panel = panel.superpose,
       degree = 2,
       panel.groups = function(x, y, col, col.symbol, degree, ...) {
           panel.xyplot(x, y, col = col.symbol, ...)
           xnew <- seq(min(x), max(x), length.out = 30)
           m0 <- lm(y ~ poly(x, degree = degree))
           ynew <- predict(m0, newdata = list(x = xnew))
           panel.lines(x = xnew, y = ynew, col = col.symbol)
       })

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