PimentelTb6.3.1: Experimento de Aduba<c3><a7><c3><a3>o Mineral e Verde em...

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

Description

Experimento de aduba<c3><a7><c3><a3>o de cana da Usina Monte Alegre, com fertilizantes minerais e adubos verdes. O delineamento utilizado foi um quadrado latino de 6 x 6.

Format

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

linhas

Fator de 6 n<c3><ad>veis qualitativos, usado para identificar as linhas do quadrado latino de 6 x 6.

colunas

Fator de 6 n<c3><ad>veis qualitativos, usado para identificar as colunas do quadrado latino de 6 x 6.

adub

Fator de 6 n<c3><ad>veis qualitativos, que s<c3><a3>o os 6 diferentes tipos de tratamento provenientes da combina<c3><a7><c3><a3>o de calc<c3><a1>rio, crotal<c3><a1>ria e aduba<c3><a7><c3><a3>o mineral. A vari<c3><a1>vel assume os valores 0 ou 1, sendo que 0 representa aus<c3><aa>ncia e 1 representa presen<c3><a7>a de cada um dos fatores. A primeira posi<c3><a7><c3><a3>o representa a presen<c3><a7>a ou aus<c3><aa>ncia de calc<c3><a1>rio, a seguran<c3><a7>a posi<c3><a7><c3><a3>o representa a presen<c3><a7>a ou aus<c3><aa>ncia de crotal<c3><a1>ria (adubo verde), e a terceira posi<c3><a7><c3><a3>o, caso exista, representa a presen<c3><a7>a ou aus<c3><aa>ncia de adubo mineral.

prod

Totais de a<c3><a7><c3><ba>car prov<c3><a1>vel, em kg por parcela.

Details

Considerando que a composi<c3><a7><c3><a3>o do fator aduba<c3><a7><c3><a3>o <c3><a9> dada por 3 fatores combinados (calc<c3><a1>rio, crotal<c3><a1>ria e adubo mineral), ao transformar os digitos nos n<c3><ad>veis desses fatores, tem-se na realidade um experimento fatorial incompleto no qual n<c3><a3>o existem os n<c3><ad>veis de de adu<c3><a7><c3><a3>o mineral para o n<c3><ad>vel sem crotal<c3><a1>ria.

Source

PIMENTEL-GOMES (2009), Tabela 6.3.1, p<c3><a1>gina 99.

Examples

data(PimentelTb6.3.1)
str(PimentelTb6.3.1)

aggregate(prod ~ adub, data = PimentelTb6.3.1, FUN = sum)

library(lattice)

xyplot(prod ~ adub,
       data = PimentelTb6.3.1,
       xlab = "Combina<c3><a7><c3><a3>o calc<c3><a1>rio-crotal<c3><a1>ria-adubo",
       ylab = "Produ<c3><a7><c3><a3>o (kg/parcela)")

levelplot(prod ~ linhas + colunas,
          data = PimentelTb6.3.1, aspect = "iso",
          panel = function(x, y, z, subscripts, ...) {
              panel.levelplot(x, y, z, subscripts = subscripts, ...)
              panel.text(x, y,
                         PimentelTb6.3.1$adub[subscripts],
                         cex = 0.8)
              panel.text(x, y, z, pos = 1)
          })

# Decompondo os digitos para formas os n<c3><ad>veis dos fatores
# constituintes.
L <- strsplit(as.character(PimentelTb6.3.1$adub), split = "")
t(sapply(L, FUN = function(x) {
    if (length(x) <= 2) c(x, NA) else x
}))

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