Description Format Source Examples
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.
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}.
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.
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})))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.