ZimmermannTb16.8: Dias para Flora<c3><a7><c3><a3>o de Cultivares de Arroz em um...

Description Format Source See Also Examples

Description

Experimento realizado em delineamento reticulado quadrado 5 \times 5, com tr<c3><aa>s repeti<c3><a7><c3><b5>es. Os dados s<c3><a3>o referentes ao n<c3><ba>mero de dias at<c3><a9> a flora<c3><a7><c3><a3>o das cultivares de arroz de terras altas. S<c3><a3>o apresentados na tabela tamb<c3><a9>m os respectivos postos de cada dado, segundo a metodologia definida no teste de Durbin.

Format

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

rept

Fator categ<c3><b3>rico que representas as repeti<c3><a7><c3><b5>es de blocos. Cada repeti<c3><a7><c3><a3>o cont<c3><a9>m 5 blocos de tamanho 5 e uma repeti<c3><a7><c3><a3>o de cada cultivar.

bloco

Fator que identifica os blocos dentro de cada repeti<c3><a7><c3><a3>o.

cult

Fator que representa as cultivares.

dias

N<c3><ba>mero total de dias at<c3><a9> a flora<c3><a7><c3><a3>o.

posto

Posto correpondente ao n<c3><ba>mero de dias para flora<c3><a7><c3><a3>o das cultivares dentro dos blocos.

Source

ZIMMERMANN (2004), Tabela 16.8, p<c3><a1>g. 353.

See Also

Os dados de produ<c3><a7><c3><a3>o de arroz do mesmo ensaio est<c3><a3>o dispon<c3><ad>veis em ZimmermannTb7.1.

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
library(lattice)

data(ZimmermannTb16.8)
str(ZimmermannTb16.8)

p <- by(data = ZimmermannTb16.8,
        INDICES = with(ZimmermannTb16.8,
                       interaction(bloco, rept)),
        FUN = function(dataset) {
            dataset$posto <- rank(dataset$dias)
            return(dataset)
        })
ZimmermannTb16.8 <- do.call(rbind, p)
rownames(ZimmermannTb16.5) <- NULL

xyplot(dias + posto ~ cult, outer = TRUE, groups = rept,
       data = ZimmermannTb16.8, jitter.x = TRUE,
       scales = list(y = list(relation = "free"),
                     x = list(rot = 90)),
       xlab = "Cultivares", ylab = "",
       strip = strip.custom(factor.levels = c("Dias para flora<c3><a7><c3><a3>o",
                                              "Posto")))

xyplot(posto ~ dias, data = ZimmermannTb16.8,
       xlab = "Dias para flora<c3><a7><c3><a3>o", ylab = "Posto",
       jitter.y = TRUE)

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