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

Description Format Source Examples

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

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
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 24, 2017, 3:35 a.m.