BarbinPg137: Aduba<c3><a7><c3><a3>o NPK na Produ<c3><a7><c3><a3>o de...

Description Format Source Examples

Description

Produ<c3><a7><c3><a3>o de algod<c3><a3>o herb<c3><a1>ceo de um ensaio de aduba<c3><a7><c3><a3>o NPK 3^3 com confundimento (grupo W) de dois graus de liberdade da intera<c3><a7><c3><a3>o tripla. Cada combina<c3><a7><c3><a3>o NPK teve duas repeti<c3><a7><c3><b5>es por bloco e o ensaio foi conduzido por Cavalcanti (1977) em Pernambuco.

Format

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

N

Dose de nitrog<c3><aa>nio (kg ha^{-1}) usada na aduba<c3><a7><c3><a3>o.

P

Dose de f<c3><b3>sforo (kg ha^{-1}) usada na aduba<c3><a7><c3><a3>o.

K

Dose de pot<c3><a1>ssio (kg ha^{-1}) usada na aduba<c3><a7><c3><a3>o.

bloc

Fator de n<c3><ad>veis categ<c3><b3>ricos considerado para controle local.

rept

N<c3><ba>mero inteiro que identifica as repeti<c3><a7><c3><b5>es das celas experimentais dentro dos blocos.

prod

Produ<c3><a7><c3><a3>o de algod<c3><a3>o herb<c3><a1>ceo, em kg ha^{-1}.

Source

BARBIN (2013), p<c3><a1>g. 137.

Cavalcanti, F. B. (1977). A aduba<c3><a7><c3><a3>o mineral na cultura do algod<c3><a3>o (Gossypium hirsutum L.) no Estado de Pernambuco. Disserta<c3><a7><c3><a3>o de Mestrado, Escola Superior de Agricultura "Luiz de Queiroz"/USP, Piracicaba.

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
27
28
29
30
31
32
33
library(lattice)

data(BarbinPg137)

str(BarbinPg137)

x <- c("N", "P", "K")
forms <- unlist(lapply(mapply(FUN = combn,
                              m = 1:2,
                              MoreArgs = list(x = x)),
                       FUN = function(x) {
                           paste0("~",
                                  apply(x,
                                        MARGIN = 2,
                                        FUN = paste,
                                        collapse = "+"))
                       }))

# A frequ<c3><aa>ncia das combina<c3><a7><c3><b5>es simples e duplas.
sapply(forms, xtabs, data = BarbinPg137)

xyplot(prod ~ as.factor(N) | as.factor(P), data = BarbinPg137,
       groups = K, type = c("p", "a"),
       auto.key = list(space = "top", columns = 3,
                       title = expression(
                           "Pot<c3><a1>ssio"~(K * ", " * kg~ha^{-1})),
                       cex.title = 1.1),
       strip = strip.custom(strip.names = TRUE, sep = " = ",
                            var.name = expression(
                                "F<c3><b3>sforo"~(P * ", " * kg~ha^{-1}))),
       xlab = expression("Nitrog<c3><aa>nio"~(N * ", " * kg~ha^{-1})),
       ylab = expression(
           "Produ<c3><a7><c3><a3>o de algod<c3><a3>o herb<c3><a1>ceo"~(kg~ha^{-1})))

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