FerreiraEg8.1: N<c3><ba>mero de Gr<c3><a3>os e Produtividade em Cultivares...

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

Description

Dados obtidos de um experimento inteiramente casualizado com cinco repeti<c3><a7><c3><b5>es, realizado no per<c3><ad>odo de seca, onde avaliou-se o efeito de diferentes cultivares na produtividade do feij<c3><a3>o por meio das vari<c3><a1>veis produtividade e n<c3><ba>mero m<c3><a9>dio de gr<c3><a3>os por vagem.

Format

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

cult

Fator nominal com 4 n<c3><ad>veis que representa as cultivares de feij<c3><a3>o.

rept

Inteiro que identifica as unidades experimentais de cada cultivar.

ngrao

N<c3><ba>mero m<c3><a9>dio de gr<c3><a3>os por vagem.

prod

Produtividade de feij<c3><a3>o, em kg ha^{-1}.

Source

FERREIRA (2011), Exemplo 8.1, p<c3><a1>g. 339.

Examples

data(FerreiraEg8.1)
str(FerreiraEg8.1)

library(lattice)
library(latticeExtra)

p1 <- xyplot(prod ~ cult,
             data = FerreiraEg8.1,
             type = c("p", "smooth"))
p2 <- xyplot(ngrao ~ cult,
             data = FerreiraEg8.1,
             type = c("p", "smooth"))
doubleYScale(p1, p2, add.ylab2 = TRUE)

xyplot(prod ~ ngrao,
       groups = cult,
       grid = TRUE,
       auto.key = list(space = "right",
                       title = "Cultivar", cex = 0.8),
       data = FerreiraEg8.1,
       xlab = "N<c3><ba>mero m<c3><a9>dio de gr<c3><a3>os por vagem",
       ylab = "Produ<c3><a7><c3><a3>o de feij<c3><a3>o")

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