RamalhoTb13.6: Produ<c3><a7><c3><a3>o de Gr<c3><a3>os de Feij<c3><a3>o e...

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

Description

Experimento apresentado por Pereira (1993) referente a avalia<c3><a7><c3><a3>o da produ<c3><a7><c3><a3>o de feij<c3><a3>o e teor de P_{2}O_{5} em cada parcela, cujos dados foram obtidos de 10 cultivares de feij<c3><a3>o. Para este experimento, um estudo por regress<c3><a3>o deve considerar a produtividade de gr<c3><a3>os como vari<c3><a1>vel dependente e o teor como vari<c3><a1>vel independente.

Format

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

cult

Fator de 10 n<c3><ad>veis que representa a cultivar de feij<c3><a3>o utilizada no experimento.

bloc

Fator de 3 n<c3><ad>veis utilizado para fazer controle local.

teor

Teor de P_{2}O_{5} no solo, medidos em ppm.

prod

Produ<c3><a7><c3><a3>o de gr<c3><a3>os de feij<c3><a3>o, medida em g/parcela.

Source

RAMALHO et al. (2005), Tabela 13.6, p<c3><a1>g. 243 e tabela 13.9, p<c3><a1>g. 246.

Pereira, A. F. Emprego de Covari<c3><a2>ncia visando reduzir o efeito da heterogeneidade Ambiental nos Experimentos com a Cultura do Fejoeiro (Phaseolus vulgaris L.) Lavras: UFLA, 1993. 58p. (Disserta<c3><a7><c3><a3>o-Mestrado Fitotecnia).

Examples

data(RamalhoTb13.6)

str(RamalhoTb13.6)

library(lattice)

xyplot(prod ~ teor, groups = cult, data = RamalhoTb13.6,
       auto.key = list(space = "right", title = "Cultivar"),
       xlab = "Teor de P_{2}O_{5}",
       ylab = "Produ<c3><a7><c3><a3>o de gr<c3><a3>os de feij<c3><a3>o")

xyplot(prod ~ teor, groups = cult, data = RamalhoTb13.6,
       auto.key = list(space = "right",
                       title = "Cultivar", cex.title = 1.1),
       xlab = expression("Teor de"~P[2]*O[5]),
       ylab = "Produ<c3><a7><c3><a3>o de gr<c3><a3>os de feij<c3><a3>o (g/parcela)")

unit01 <- function(x) {
    x <- x - min(x)
    x <- x/max(x)
    return(x)
}

cex <- 0.5 + unit01(RamalhoTb13.6$teor)

key <- with(RamalhoTb13.6, {
    v <- round(seq(min(teor), max(teor), length.out = 4), digits = 0)
    cex <- 0.5 + unit01(v)
    list(title = expression(Teor~de~P[2]*O[5]),
         cex.title = 1.1,
         columns = length(v),
         text = list(as.character(v)),
         points = list(cex = cex, pch = 1))
})

xyplot(prod ~ cult, data = RamalhoTb13.6,
       cex = cex, key = key,
       xlab = expression("Teor de"~P[2]*O[5]),
       ylab = "Produ<c3><a7><c3><a3>o de gr<c3><a3>os de feij<c3><a3>o (g/parcela)")

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