RamalhoEg8.1: Produ<c3><a7><c3><a3>o de Gr<c3><a3>os em Cultivares de...

Description Format Source Examples

Description

Experimentos para medir a produ<c3><a7><c3><a3>o de gr<c3><a3>os de cultivares de feij<c3><a3>o, conduzidos em Lavras e Patos de Minas/MG durante o ano de 1990 em delineamento em blocos casualizados.

Format

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

cult

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

local

Fator de 2 n<c3><ad>veis nominais, munic<c3><ad>pios onde foram realizados os experimentos.

bloc

Fator de 3 n<c3><ad>veis que identifica os blocos em cada um dos experimentos, usado para fazer controle local.

prod

Produ<c3><a7><c3><a3>o de gr<c3><a3>os de feij<c3><a3>o, medidos em g/parcela nas unidades experimentais.

Source

RAMALHO et al. (2005), Exemplo 8.1, p<c3><a1>g. 115.

Examples

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

data(RamalhoEg8.1)

str(RamalhoEg8.1)

xtabs(~cult + local, data = RamalhoEg8.1)

xyplot(prod ~ cult | local, data = RamalhoEg8.1,
       jitter.x = TRUE,
       xlab = "Cultivar",
       ylab = expression("Produ<c3><a7><c3><a3>o"~(g~parcela^{-1})))

ftable(with(RamalhoEg8.1,
            tapply(prod,
                   list(local, cult, bloc = bloc),
                   FUN = identity)))

aggregate(prod ~ cult + local,  data = RamalhoEg8.1,
          FUN = function(x) { c(mean = mean(x), var = var(x)) })

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