From fc8c3843c0b64d14327ba8654fd508a54c0e0e44 Mon Sep 17 00:00:00 2001 From: Walmes Zeviani <walmes@ufpr.br> Date: Thu, 21 Apr 2016 14:05:36 -0300 Subject: [PATCH 1/2] Adiciona 3 tabelas do Barbin. --- R/BarbinPg114.R | 74 ++++++++++++++ R/BarbinPg125.R | 48 ++++++++++ R/BarbinPg137.R | 75 +++++++++++++++ data-raw/BarbinPg114.txt | 201 +++++++++++++++++++++++++++++++++++++++ data-raw/BarbinPg125.txt | 49 ++++++++++ data-raw/BarbinPg137.txt | 55 +++++++++++ data/BarbinPg114.rda | Bin 0 -> 794 bytes data/BarbinPg125.rda | Bin 0 -> 445 bytes data/BarbinPg137.rda | Bin 0 -> 440 bytes man/BarbinPg114.Rd | 81 ++++++++++++++++ man/BarbinPg125.Rd | 55 +++++++++++ man/BarbinPg137.Rd | 83 ++++++++++++++++ 12 files changed, 721 insertions(+) create mode 100644 R/BarbinPg114.R create mode 100644 R/BarbinPg125.R create mode 100644 R/BarbinPg137.R create mode 100644 data-raw/BarbinPg114.txt create mode 100644 data-raw/BarbinPg125.txt create mode 100644 data-raw/BarbinPg137.txt create mode 100644 data/BarbinPg114.rda create mode 100644 data/BarbinPg125.rda create mode 100644 data/BarbinPg137.rda create mode 100644 man/BarbinPg114.Rd create mode 100644 man/BarbinPg125.Rd create mode 100644 man/BarbinPg137.Rd diff --git a/R/BarbinPg114.R b/R/BarbinPg114.R new file mode 100644 index 0000000..67455d1 --- /dev/null +++ b/R/BarbinPg114.R @@ -0,0 +1,74 @@ +#' @name BarbinPg114 +#' @title Influência do Aparelho e Operador na Medição de Ãrvores +#' @description Dados de um experimento fatorial 5 \eqn{\times} 4, em +#' delineamento de blocos casualizados, sobre e influência do +#' aparelho e do operador na determinação de altura de árvores, aos +#' 7 anos de idade, de \emph{Eucaliptus saligna} (Simões, Mello e +#' Barbin, 1967). +#' +#' Cinco aparelhos ou instrumentos de mensuração (hipsômetro de +#' Blume-Leiss, hipsômetro de Haga, hipsômetro Weise, prancheta +#' dendrométrica e trena) foram testados por 4 operadores resultando +#' em 20 combinações. Diante de uma árvore era sorteado um número no +#' universo de 1 a 20 que representava um operador \eqn{\times} +#' aparelho. Cada operador com um aparelho efetuava duas medições +#' consecutivas da mesma árvore (bloco) e a média era registrada. O +#' sorteio continuava até as combinações fossem realizadas na +#' árvore, então passava-se para a próxima árvore. Evidentemente, a +#' medida feita com o trena ficava sempre para o final (testemunha). +#' @format Um \code{data.frame} com 200 observações e 4 variáveis. +#' +#' \describe{ +#' +#' \item{\code{apar}}{Fator de nÃveis categóricos que identifica os +#' aparelhos utilizados pelos operadores para medição da altura +#' total das árvores} +#' +#' \item{\code{oper}}{Fator de nÃveis categóricos que identifica os +#' operadores que utilizaram os aparelhos.} +#' +#' \item{\code{bloc}}{Fator de nÃveis categóricos que representa as +#' árvores que foram medidas. Cada árvore funciona como um bloco +#' onde todos os operadores x aparelhos foram empregados.} +#' +#' \item{\code{alt}}{Altura total da árvore (média de duas medidas +#' consecutivas, em metros) determinada por cada aparelho ou +#' instrumento de medida e operador.} +#' +#' } +#' @keywords DBC FAT2 +#' @source Barbin, D. (2013). Planejamento e Análise EstatÃstica de +#' Experimentos Agronômicos (2nd ed.). Londrina, PR: +#' Mecenas. (pág. 114) +#' +#' Simões, J. W., Mello, H. A., Barbin, D. (1967). Eficiência dos +#' aparelhos e e influência do operador na medição de altura total +#' de ávores. O Solo, Piracicaba, v.2, p.57-63. +#' @examples +#' +#' library(latticeExtra) +#' +#' data(BarbinPg114) +#' +#' str(BarbinPg114) +#' +#' xyplot(alt ~ oper | bloc, data = BarbinPg114, +#' groups = apar, type = "b", +#' as.table = TRUE, +#' auto.key = list(space = "top", columns = 2, +#' title = "Aparelhos", cex.title = 1.1), +#' strip = strip.custom(strip.names = TRUE, +#' sep = " ", var.name = "Ãrvore"), +#' xlab = "Operadores", +#' ylab = "Altura total (m)") + +#' layer(panel.abline(h = mean(y), lwd = 2)) +#' +#' xyplot(alt ~ oper | apar, data = BarbinPg114, +#' groups = bloc, type = "b", +#' as.table = TRUE, +#' auto.key = list(space = "right", +#' title = "Ãrvore", cex.title = 1.1), +#' xlab = "Operadores", +#' ylab = "Altura total (m)") +#' +NULL diff --git a/R/BarbinPg125.R b/R/BarbinPg125.R new file mode 100644 index 0000000..1566012 --- /dev/null +++ b/R/BarbinPg125.R @@ -0,0 +1,48 @@ +#' @name BarbinPg125 +#' @title Adubação NPK no Cafeeiro +#' @description Experimento no o delineamento de blocos casualizados que +#' estudou a combinação de nitrogênio, fósforo e potássio, cada um +#' com dois nÃveis (fatorial \eqn{2^3}), na produção de café +#' coco. Os nÃveis dos fertilizantes foram codificados para 0 e 1 e +#' não foi informada as doses reais de cada um deles. +#' @format Um \code{data.frame} com 48 observações e 5 variáveis. +#' +#' \describe{ +#' +#' \item{\code{N}}{Inteiro que codifica dois nÃveis de nitrogênio (0 e +#' 1).} +#' +#' \item{\code{P}}{Inteiro que codifica dois nÃveis de fósforo (0 e 1).} +#' +#' \item{\code{K}}{Inteiro que codifica dois nÃveis de potássio (0 e 1).} +#' +#' \item{\code{bloc}}{Fator de nÃveis categóricos considerado para +#' controle local.} +#' +#' \item{\code{prod}}{Produção de café coco, em kg por parcela de 105 +#' metros quadrados (12 covas no espaçamento 3,5 \eqn{\times} 2,5 +#' m).} +#' +#' } +#' @keywords DBC FAT3 +#' @source Barbin, D. (2013). Planejamento e Análise EstatÃstica de +#' Experimentos Agronômicos (2nd ed.). Londrina, PR: +#' Mecenas. (pág. 125) +#' @examples +#' +#' library(lattice) +#' +#' data(BarbinPg125) +#' +#' str(BarbinPg125) +#' +#' xyplot(prod ~ as.factor(N) | as.factor(P), data = BarbinPg125, +#' groups = K, type = c("p", "a"), +#' auto.key = list(space = "top", columns = 2, +#' title = "Potássio (K)", cex.title = 1.1), +#' strip = strip.custom(strip.names = c(TRUE), +#' sep = " ", var.name = "Fósforo (P)"), +#' xlab = "Nitrogênio (N)", +#' ylab = "Produção de café coco (kg)") +#' +NULL diff --git a/R/BarbinPg137.R b/R/BarbinPg137.R new file mode 100644 index 0000000..fd373b5 --- /dev/null +++ b/R/BarbinPg137.R @@ -0,0 +1,75 @@ +#' @name BarbinPg137 +#' @title Adubação NPK na Produção de Algodão Herbáceo +#' @description Produção de algodão herbáceo de um ensaio de adubação +#' NPK \eqn{3^3} com confundimento (grupo W) de dois graus de +#' liberdade da interação tripla. Cada combinação NPK teve duas +#' repetições por bloco e o ensaio foi conduzido por Cavalcanti +#' (1977) em Parnambuco. +#' @format Um \code{data.frame} com 54 observações e 6 variáveis. +#' \describe{ +#' +#' \item{\code{N}}{Dose de nitrogênio (kg ha\eqn{^{-1}}) usada na +#' adubação.} +#' +#' \item{\code{P}}{Dose de fósforo (kg ha\eqn{^{-1}}) usada na +#' adubação.} +#' +#' \item{\code{K}}{Dose de potássio (kg ha\eqn{^{-1}}) usada na +#' adubação.} +#' +#' \item{\code{bloc}}{Fator de nÃveis categóricos considerado para +#' controle local.} +#' +#' \item{\code{rept}}{Número inteiro que identifica as repetições das +#' celas experimentais dentro dos blocos.} +#' +#' \item{\code{prod}}{Produção de algodão herbáceo, em kg +#' ha\eqn{^{-1}}.} +#' +#' } +#' @keywords DBC FAT3 confundimento +#' @source Barbin, D. (2013). Planejamento e Análise EstatÃstica de +#' Experimentos Agronômicos (2nd ed.). Londrina, PR: +#' Mecenas. (pág. 137) +#' +#' Cavalcanti, F. B. (1977). A adubação mineral na cultura do algodão +#' (\emph{Gossypium hirsutum} L.) no Estado de +#' Pernambuco. Dissetação de Mestrado, Escola Superior de +#' Agricultura "Luiz de Queiroz"/USP, Piracicaba. +#' @examples +#' +#' 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ência das combinaçõ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ássio"~(K * ", " * kg~ha^{-1})), +#' cex.title = 1.1), +#' strip = strip.custom(strip.names = c(TRUE), sep = " = ", +#' var.name = expression( +#' "Fósforo"~(P * ", " * kg~ha^{-1}))), +#' xlab = expression("Nitrogênio"~(N * ", " * kg~ha^{-1})), +#' ylab = expression( +#' "Produção de algodão herbáceo"~(kg~ha^{-1}))) +#' +NULL diff --git a/data-raw/BarbinPg114.txt b/data-raw/BarbinPg114.txt new file mode 100644 index 0000000..d031206 --- /dev/null +++ b/data-raw/BarbinPg114.txt @@ -0,0 +1,201 @@ +apar oper bloc alt +Hipsômetro de Blume-Leiss 1 1 22.4 +Hipsômetro de Haga 1 1 22.9 +Hipsômetro Weise 1 1 23.5 +Pracheta dendrométrica 1 1 22.5 +Trena 1 1 21.45 +Hipsômetro de Blume-Leiss 2 1 22.65 +Hipsômetro de Haga 2 1 23 +Hipsômetro Weise 2 1 22 +Pracheta dendrométrica 2 1 22.9 +Trena 2 1 21.45 +Hipsômetro de Blume-Leiss 3 1 22.5 +Hipsômetro de Haga 3 1 22.5 +Hipsômetro Weise 3 1 22.75 +Pracheta dendrométrica 3 1 21.75 +Trena 3 1 21.35 +Hipsômetro de Blume-Leiss 4 1 21.25 +Hipsômetro de Haga 4 1 22.1 +Hipsômetro Weise 4 1 21.25 +Pracheta dendrométrica 4 1 21.9 +Trena 4 1 21.2 +Hipsômetro de Blume-Leiss 1 2 20.85 +Hipsômetro de Haga 1 2 21.4 +Hipsômetro Weise 1 2 21 +Pracheta dendrométrica 1 2 20.5 +Trena 1 2 19.2 +Hipsômetro de Blume-Leiss 2 2 20.65 +Hipsômetro de Haga 2 2 20.7 +Hipsômetro Weise 2 2 19.5 +Pracheta dendrométrica 2 2 21.2 +Trena 2 2 18.9 +Hipsômetro de Blume-Leiss 3 2 21.25 +Hipsômetro de Haga 3 2 21 +Hipsômetro Weise 3 2 20.5 +Pracheta dendrométrica 3 2 19.35 +Trena 3 2 19.2 +Hipsômetro de Blume-Leiss 4 2 21.25 +Hipsômetro de Haga 4 2 21.6 +Hipsômetro Weise 4 2 21.5 +Pracheta dendrométrica 4 2 21 +Trena 4 2 18.9 +Hipsômetro de Blume-Leiss 1 3 23.6 +Hipsômetro de Haga 1 3 23.95 +Hipsômetro Weise 1 3 23.75 +Pracheta dendrométrica 1 3 23.2 +Trena 1 3 23.35 +Hipsômetro de Blume-Leiss 2 3 23 +Hipsômetro de Haga 2 3 22.5 +Hipsômetro Weise 2 3 23.25 +Pracheta dendrométrica 2 3 24.6 +Trena 2 3 23.2 +Hipsômetro de Blume-Leiss 3 3 23.1 +Hipsômetro de Haga 3 3 23 +Hipsômetro Weise 3 3 22.75 +Pracheta dendrométrica 3 3 21.75 +Trena 3 3 23.2 +Hipsômetro de Blume-Leiss 4 3 22.25 +Hipsômetro de Haga 4 3 22.35 +Hipsômetro Weise 4 3 22.1 +Pracheta dendrométrica 4 3 22.75 +Trena 4 3 23.3 +Hipsômetro de Blume-Leiss 1 4 21 +Hipsômetro de Haga 1 4 22.25 +Hipsômetro Weise 1 4 20.75 +Pracheta dendrométrica 1 4 21 +Trena 1 4 20.35 +Hipsômetro de Blume-Leiss 2 4 20.75 +Hipsômetro de Haga 2 4 20.95 +Hipsômetro Weise 2 4 20.5 +Pracheta dendrométrica 2 4 21.5 +Trena 2 4 20.25 +Hipsômetro de Blume-Leiss 3 4 20.6 +Hipsômetro de Haga 3 4 21.75 +Hipsômetro Weise 3 4 19.5 +Pracheta dendrométrica 3 4 19.5 +Trena 3 4 20.3 +Hipsômetro de Blume-Leiss 4 4 21.25 +Hipsômetro de Haga 4 4 21.75 +Hipsômetro Weise 4 4 21.7 +Pracheta dendrométrica 4 4 20.75 +Trena 4 4 20.3 +Hipsômetro de Blume-Leiss 1 5 19.1 +Hipsômetro de Haga 1 5 21.4 +Hipsômetro Weise 1 5 19.5 +Pracheta dendrométrica 1 5 21 +Trena 1 5 19.95 +Hipsômetro de Blume-Leiss 2 5 20.25 +Hipsômetro de Haga 2 5 22.25 +Hipsômetro Weise 2 5 21.25 +Pracheta dendrométrica 2 5 21.2 +Trena 2 5 19.95 +Hipsômetro de Blume-Leiss 3 5 21 +Hipsômetro de Haga 3 5 22.75 +Hipsômetro Weise 3 5 20.5 +Pracheta dendrométrica 3 5 20.5 +Trena 3 5 20 +Hipsômetro de Blume-Leiss 4 5 18 +Hipsômetro de Haga 4 5 19.75 +Hipsômetro Weise 4 5 19.75 +Pracheta dendrométrica 4 5 19.7 +Trena 4 5 19.9 +Hipsômetro de Blume-Leiss 1 6 19.8 +Hipsômetro de Haga 1 6 21 +Hipsômetro Weise 1 6 19.5 +Pracheta dendrométrica 1 6 18.9 +Trena 1 6 19.35 +Hipsômetro de Blume-Leiss 2 6 19.8 +Hipsômetro de Haga 2 6 20.75 +Hipsômetro Weise 2 6 19.75 +Pracheta dendrométrica 2 6 20 +Trena 2 6 19.2 +Hipsômetro de Blume-Leiss 3 6 19.5 +Hipsômetro de Haga 3 6 20.35 +Hipsômetro Weise 3 6 19.75 +Pracheta dendrométrica 3 6 19 +Trena 3 6 19.3 +Hipsômetro de Blume-Leiss 4 6 20 +Hipsômetro de Haga 4 6 20.65 +Hipsômetro Weise 4 6 19.75 +Pracheta dendrométrica 4 6 20 +Trena 4 6 19.3 +Hipsômetro de Blume-Leiss 1 7 16.55 +Hipsômetro de Haga 1 7 16.9 +Hipsômetro Weise 1 7 17.5 +Pracheta dendrométrica 1 7 17.8 +Trena 1 7 17.45 +Hipsômetro de Blume-Leiss 2 7 17.25 +Hipsômetro de Haga 2 7 18 +Hipsômetro Weise 2 7 17.75 +Pracheta dendrométrica 2 7 18.7 +Trena 2 7 17.35 +Hipsômetro de Blume-Leiss 3 7 16.6 +Hipsômetro de Haga 3 7 17.2 +Hipsômetro Weise 3 7 17.25 +Pracheta dendrométrica 3 7 16.35 +Trena 3 7 17.5 +Hipsômetro de Blume-Leiss 4 7 17.25 +Hipsômetro de Haga 4 7 16.7 +Hipsômetro Weise 4 7 18.2 +Pracheta dendrométrica 4 7 18.45 +Trena 4 7 17.4 +Hipsômetro de Blume-Leiss 1 8 14.75 +Hipsômetro de Haga 1 8 14.85 +Hipsômetro Weise 1 8 14.5 +Pracheta dendrométrica 1 8 14.3 +Trena 1 8 14.45 +Hipsômetro de Blume-Leiss 2 8 15 +Hipsômetro de Haga 2 8 14.75 +Hipsômetro Weise 2 8 14.75 +Pracheta dendrométrica 2 8 15 +Trena 2 8 14.35 +Hipsômetro de Blume-Leiss 3 8 14.35 +Hipsômetro de Haga 3 8 14.85 +Hipsômetro Weise 3 8 14.25 +Pracheta dendrométrica 3 8 14.1 +Trena 3 8 14.4 +Hipsômetro de Blume-Leiss 4 8 14.65 +Hipsômetro de Haga 4 8 15.75 +Hipsômetro Weise 4 8 14.6 +Pracheta dendrométrica 4 8 14.3 +Trena 4 8 14.5 +Hipsômetro de Blume-Leiss 1 9 21.1 +Hipsômetro de Haga 1 9 22 +Hipsômetro Weise 1 9 20 +Pracheta dendrométrica 1 9 20.6 +Trena 1 9 22 +Hipsômetro de Blume-Leiss 2 9 19.75 +Hipsômetro de Haga 2 9 20.5 +Hipsômetro Weise 2 9 20.5 +Pracheta dendrométrica 2 9 21.5 +Trena 2 9 21.8 +Hipsômetro de Blume-Leiss 3 9 20.75 +Hipsômetro de Haga 3 9 22.35 +Hipsômetro Weise 3 9 21.5 +Pracheta dendrométrica 3 9 20.85 +Trena 3 9 21.9 +Hipsômetro de Blume-Leiss 4 9 21 +Hipsômetro de Haga 4 9 20.85 +Hipsômetro Weise 4 9 21.25 +Pracheta dendrométrica 4 9 20.75 +Trena 4 9 22 +Hipsômetro de Blume-Leiss 1 10 14.3 +Hipsômetro de Haga 1 10 15 +Hipsômetro Weise 1 10 14 +Pracheta dendrométrica 1 10 14.2 +Trena 1 10 14.75 +Hipsômetro de Blume-Leiss 2 10 14.25 +Hipsômetro de Haga 2 10 15.25 +Hipsômetro Weise 2 10 14.25 +Pracheta dendrométrica 2 10 14.2 +Trena 2 10 14.65 +Hipsômetro de Blume-Leiss 3 10 14.1 +Hipsômetro de Haga 3 10 16 +Hipsômetro Weise 3 10 14.25 +Pracheta dendrométrica 3 10 13.85 +Trena 3 10 14.8 +Hipsômetro de Blume-Leiss 4 10 14.25 +Hipsômetro de Haga 4 10 15.4 +Hipsômetro Weise 4 10 14.75 +Pracheta dendrométrica 4 10 15.1 +Trena 4 10 14.4 diff --git a/data-raw/BarbinPg125.txt b/data-raw/BarbinPg125.txt new file mode 100644 index 0000000..677d402 --- /dev/null +++ b/data-raw/BarbinPg125.txt @@ -0,0 +1,49 @@ +N P K bloc prod +0 0 0 I 31.8 +0 0 1 I 25.6 +0 1 0 I 36.2 +0 1 1 I 37.1 +1 0 0 I 35.3 +1 0 1 I 51.5 +1 1 0 I 43.8 +1 1 1 I 47 +0 0 0 II 40.5 +0 0 1 II 32.4 +0 1 0 II 37.8 +0 1 1 II 53 +1 0 0 II 39 +1 0 1 II 66.1 +1 1 0 II 32.7 +1 1 1 II 49.9 +0 0 0 III 25.7 +0 0 1 III 39.6 +0 1 0 III 40.9 +0 1 1 III 36.4 +1 0 0 III 36 +1 0 1 III 51.7 +1 1 0 III 43.3 +1 1 1 III 50.9 +0 0 0 IV 25.7 +0 0 1 IV 48.9 +0 1 0 IV 44.8 +0 1 1 IV 43 +1 0 0 IV 33.5 +1 0 1 IV 52 +1 1 0 IV 41.8 +1 1 1 IV 49.1 +0 0 0 V 37.2 +0 0 1 V 20.6 +0 1 0 V 32.4 +0 1 1 V 19.7 +1 0 0 V 28.2 +1 0 1 V 56.6 +1 1 0 V 31.9 +1 1 1 V 71.7 +0 0 0 VI 45.3 +0 0 1 VI 33.7 +0 1 0 VI 38.4 +0 1 1 VI 30.4 +1 0 0 VI 42.4 +1 0 1 VI 58.2 +1 1 0 VI 37.7 +1 1 1 VI 39.6 diff --git a/data-raw/BarbinPg137.txt b/data-raw/BarbinPg137.txt new file mode 100644 index 0000000..ef5f3fe --- /dev/null +++ b/data-raw/BarbinPg137.txt @@ -0,0 +1,55 @@ +N P K bloc rept prod +0 0 0 1 1 868 +0 60 120 1 1 951 +0 120 60 1 1 694 +40 0 60 1 1 972 +40 60 0 1 1 1319 +40 120 120 1 1 812 +80 0 120 1 1 951 +80 60 60 1 1 1493 +80 120 0 1 1 1076 +0 0 0 1 2 319 +0 60 120 1 2 521 +0 120 60 1 2 868 +40 0 60 1 2 486 +40 60 0 1 2 1139 +40 120 120 1 2 868 +80 0 120 1 2 1076 +80 60 60 1 2 1146 +80 120 0 1 2 1215 +0 0 60 2 1 625 +0 60 0 2 1 1319 +0 120 120 2 1 1042 +40 0 120 2 1 729 +40 60 60 2 1 764 +40 120 0 2 1 806 +80 0 0 2 1 1285 +80 60 120 2 1 972 +80 120 60 2 1 1042 +0 0 60 2 2 764 +0 60 0 2 2 1042 +0 120 120 2 2 729 +40 0 120 2 2 833 +40 60 60 2 2 1215 +40 120 0 2 2 625 +80 0 0 2 2 604 +80 60 120 2 2 1153 +80 120 60 2 2 729 +0 0 120 3 1 465 +0 60 60 3 1 833 +0 120 0 3 1 1069 +40 0 0 3 1 1215 +40 60 120 3 1 729 +40 120 60 3 1 660 +80 0 60 3 1 1076 +80 60 0 3 1 1250 +80 120 120 3 1 1076 +0 0 120 3 2 1181 +0 60 60 3 2 729 +0 120 0 3 2 660 +40 0 0 3 2 937 +40 60 120 3 2 1083 +40 120 60 3 2 625 +80 0 60 3 2 972 +80 60 0 3 2 1139 +80 120 120 3 2 1264 diff --git a/data/BarbinPg114.rda b/data/BarbinPg114.rda new file mode 100644 index 0000000000000000000000000000000000000000..4055d4eee477e9df592fe3e145dc0513faf09503 GIT binary patch literal 794 zcmV+#1LgceT4*^jL0KkKS#ixcjsOSxfB*mcXs|#J|KL<aRNz17-+({_05Aa{3;;+* z03ZPX2m#OodEhFDVUS{xG8&!=88%U-(Etxq(liE|05sZ$O*A;slOqVk0|}tOCWAo9 zlSWL25Ey1uRMY?fXlT*uXaE{C$N&HU4m4!Q!Z85CXfO$&&@yDvlOco#5hzfm^)%4M z8KN}wfCC@{MuSF!Kzf@~+a=h9KBzz_Kq&@^1tQgesR679o6OedY0TH@X(pE%h+M-* zO#?gszY5xMXiyZUMMD|WVJ6x+L_+;lf<RILnXP4A*?VYMgpd?~C9VW2BvwI+gqzgV zD`uc2$`aLUnL>d#0XIP^iG@P_505^Qkc6mfx&B;G!HrcD83jg$#^r3p1@!32%WNAv z`kAjHsi}_@))WMgK@2ekZo9%~H_SQux%fDJn!83mvKr{1Sq3Oc2qJR`K+psQ0~8?$ z6Vgi6iDE>oSpras$rX$s08&Xv5Tz_7mhx0oVneYK^dWqp#t^Y8S}jQyGRbcov8A%v zSfIV2p4f?&I2a^`JQ*pH+h@_)@CsH7PHF~dnN5yL+5=-^i$f9tNFX1?-jX^=C{7L^ z5qC?X<#k1EgrXrL0U)G`NH<@TqJ)d1Q;2m27x2iDLBUkGEO5A27?T)qKnOz%hA<|o z%n1dIDVD~PlP(OA%xXl4mjupnFhY=_AVOtSCc#h)5n`oEn>&7^YjbOmWQjt|os>@W z{r0GOx>86Ve)RXpFB$N-)1rEOa$|C(87P$*B|22j@Mb@MxGF~A`bIkhf$C5s4F@tv z1cx}<m`#G6X`}p@;SIvuPE4|)oZY(P_gML|uWgoBtyrS#QQBr&pj-HM@_mwFltA*B zyH&Xkc8h8|X3hM_28056!ced<P@%t4ycKx41INk;ng>pbN>WmiOjw)xxK3?vcwv!9 zNfH(@X}ampPNp0f^|}s9))s`ilqyu9$J(OdgxFM&NWgR;A`-y^>sGP|q!B_A?0RlG Y84yi4qpC+~h<}T@BAh5lIOd#3038ui4FCWD literal 0 HcmV?d00001 diff --git a/data/BarbinPg125.rda b/data/BarbinPg125.rda new file mode 100644 index 0000000000000000000000000000000000000000..7ffefc83211ac836c45c436b81c8e4fdcf739d4a GIT binary patch literal 445 zcmV;u0Yd&lT4*^jL0KkKSysEGGXMfI|NsBH$RGd#ekK3^abQ2E-GD&^05Aan2mn9^ zKp+7G2m!DGm=yt%MA3*Rsp>sUfu^3O)B|d5LFqK~gVYD2Y*We{G}8n!8flS}2nLz} z!f4Yb01z}0DWx(^MkkbMplE0SXa<0Kf$9JrpmVi9Vs<z8aa55>6=YK>$b_2<wwI;j zT)U$CD{vdzX=RITuI6i%oob9hkGqOt{m3`}Lu5B~YsYga2<G3mhzAC|`fsKP0iFsN zz;bZkhs~Ii$ERs_6i#4-RQrywux~0r4x*4wvP6-z3X9ukwo6(<T1L`Hn7Fx8fRMug zwgj;O(Evh3Q%?nl2#}C@dTFpkwz9TK0=OweMC{LTQOKa;6Cwv_gM6*pviA#Ks#K{` z6-`l5v?>sWMe;;7Kzet4vAmWDT_r^clrmXei0?7`iY9~8LcTp&AXUv;&@*fi5&%T> z)DR&0o98s~w5;wLEW3Me0zC7q)9-E+YZe*p2Uu^f?tHlLKHP+Zq*Q;bYoDn3g8s!a nFfYR?1VvD->XPWXQ7C1`?_pV*@3M0=75*;dig2MIt#?RfVED!~ literal 0 HcmV?d00001 diff --git a/data/BarbinPg137.rda b/data/BarbinPg137.rda new file mode 100644 index 0000000000000000000000000000000000000000..7e96cce561fe8e0fb9bb171578415c69b04e10cf GIT binary patch literal 440 zcmV;p0Z0BqT4*^jL0KkKS^kP7-2elA|NsAcTo6D3d4N<&R6&2I-Gg8Ie1t#%L_k1P zKmb5QKn1V?i~^#jjV97)(?iq%001-qGynhw5Xc;8Xc{!g(?*#AiGlzDpfm=V0f90E zN<<?RJxv;DXa<AIXwjq7P-&yodO!w%dYeb8FtHid(?K*0I8al7Xjxhigv$uokn7WQ z4TPA^JqExa!ZyAbjQf{$c7evbX%d5g8WlzeXr|F!1S<xrl63%`T1Wsxp$Rq~vLhM* zR>UL#?AE9qy0#E5S4iAp3{}yn1{?f%bgHrz)Y)$n-DaQC+6uducQ9qOmM9Ci6jI!6 zWb$tFHTQg3dP{Xf7z9BQBvB+UL=?XQsAz~4!7G4&2!WOW@?&aXA@zt=$3f2T@Mq<G zW%;e7Jsioss3D01R*fKzYM@YR7$K&qvjuZ|L_PW**A2Tsgg7wSScUwQ1U0yq2q$*1 zfI9fDC@RpHT1u{QU_C!Jm9ir4I4NV1Jpu(Gq(<UjBX338Ti3~QtxH#}oye|o$v{IH i!f3^Wxx}8!3qfIJMm`}|icnxL_`8xR!i0zPQ6}hDs<^}e literal 0 HcmV?d00001 diff --git a/man/BarbinPg114.Rd b/man/BarbinPg114.Rd new file mode 100644 index 0000000..6cbcef3 --- /dev/null +++ b/man/BarbinPg114.Rd @@ -0,0 +1,81 @@ +% Generated by roxygen2 (4.1.1): do not edit by hand +% Please edit documentation in R/BarbinPg114.R +\name{BarbinPg114} +\alias{BarbinPg114} +\title{Influência do Aparelho e Operador na Medição de Ãrvores} +\format{Um \code{data.frame} com 200 observações e 4 variáveis. + +\describe{ + +\item{\code{apar}}{Fator de nÃveis categóricos que identifica os + aparelhos utilizados pelos operadores para medição da altura + total das árvores} + +\item{\code{oper}}{Fator de nÃveis categóricos que identifica os + operadores que utilizaram os aparelhos.} + +\item{\code{bloc}}{Fator de nÃveis categóricos que representa as + árvores que foram medidas. Cada árvore funciona como um bloco + onde todos os operadores x aparelhos foram empregados.} + +\item{\code{alt}}{Altura total da árvore (média de duas medidas + consecutivas, em metros) determinada por cada aparelho ou + instrumento de medida e operador.} + +}} +\source{ +Barbin, D. (2013). Planejamento e Análise EstatÃstica de + Experimentos Agronômicos (2nd ed.). Londrina, PR: + Mecenas. (pág. 114) + +Simões, J. W., Mello, H. A., Barbin, D. (1967). Eficiência dos + aparelhos e e influência do operador na medição de altura total + de ávores. O Solo, Piracicaba, v.2, p.57-63. +} +\description{ +Dados de um experimento fatorial 5 \eqn{\times} 4, em + delineamento de blocos casualizados, sobre e influência do + aparelho e do operador na determinação de altura de árvores, aos + 7 anos de idade, de \emph{Eucaliptus saligna} (Simões, Mello e + Barbin, 1967). + +Cinco aparelhos ou instrumentos de mensuração (hipsômetro de + Blume-Leiss, hipsômetro de Haga, hipsômetro Weise, prancheta + dendrométrica e trena) foram testados por 4 operadores resultando + em 20 combinações. Diante de uma árvore era sorteado um número no + universo de 1 a 20 que representava um operador \eqn{\times} + aparelho. Cada operador com um aparelho efetuava duas medições + consecutivas da mesma árvore (bloco) e a média era registrada. O + sorteio continuava até as combinações fossem realizadas na + árvore, então passava-se para a próxima árvore. Evidentemente, a + medida feita com o trena ficava sempre para o final (testemunha). +} +\examples{ +library(latticeExtra) + +data(BarbinPg114) + +str(BarbinPg114) + +xyplot(alt ~ oper | bloc, data = BarbinPg114, + groups = apar, type = "b", + as.table = TRUE, + auto.key = list(space = "top", columns = 2, + title = "Aparelhos", cex.title = 1.1), + strip = strip.custom(strip.names = TRUE, + sep = " ", var.name = "Ãrvore"), + xlab = "Operadores", + ylab = "Altura total (m)") + + layer(panel.abline(h = mean(y), lwd = 2)) + +xyplot(alt ~ oper | apar, data = BarbinPg114, + groups = bloc, type = "b", + as.table = TRUE, + auto.key = list(space = "right", + title = "Ãrvore", cex.title = 1.1), + xlab = "Operadores", + ylab = "Altura total (m)") +} +\keyword{DBC} +\keyword{FAT2} + diff --git a/man/BarbinPg125.Rd b/man/BarbinPg125.Rd new file mode 100644 index 0000000..2a4bbb9 --- /dev/null +++ b/man/BarbinPg125.Rd @@ -0,0 +1,55 @@ +% Generated by roxygen2 (4.1.1): do not edit by hand +% Please edit documentation in R/BarbinPg125.R +\name{BarbinPg125} +\alias{BarbinPg125} +\title{Adubação NPK no Cafeeiro} +\format{Um \code{data.frame} com 48 observações e 5 variáveis. + +\describe{ + +\item{\code{N}}{Inteiro que codifica dois nÃveis de nitrogênio (0 e + 1).} + +\item{\code{P}}{Inteiro que codifica dois nÃveis de fósforo (0 e 1).} + +\item{\code{K}}{Inteiro que codifica dois nÃveis de potássio (0 e 1).} + +\item{\code{bloc}}{Fator de nÃveis categóricos considerado para + controle local.} + +\item{\code{prod}}{Produção de café coco, em kg por parcela de 105 + metros quadrados (12 covas no espaçamento 3,5 \eqn{\times} 2,5 + m).} + +}} +\source{ +Barbin, D. (2013). Planejamento e Análise EstatÃstica de + Experimentos Agronômicos (2nd ed.). Londrina, PR: + Mecenas. (pág. 125) +} +\description{ +Experimento no o delineamento de blocos casualizados que + estudou a combinação de nitrogênio, fósforo e potássio, cada um + com dois nÃveis (fatorial \eqn{2^3}), na produção de café + coco. Os nÃveis dos fertilizantes foram codificados para 0 e 1 e + não foi informada as doses reais de cada um deles. +} +\examples{ +library(lattice) + +data(BarbinPg125) + +str(BarbinPg125) + +xyplot(prod ~ as.factor(N) | as.factor(P), data = BarbinPg125, + groups = K, type = c("p", "a"), + auto.key = list(space = "top", columns = 2, + title = "Potássio (K)", cex.title = 1.1), + strip = strip.custom(strip.names = c(TRUE), + sep = " ", var.name = "Fósforo (P)"), + xlab = "Nitrogênio (N)", + ylab = "Produção de café coco (kg)") +} +\keyword{DBC} +\keyword{FAT3} + diff --git a/man/BarbinPg137.Rd b/man/BarbinPg137.Rd new file mode 100644 index 0000000..13930fc --- /dev/null +++ b/man/BarbinPg137.Rd @@ -0,0 +1,83 @@ +% Generated by roxygen2 (4.1.1): do not edit by hand +% Please edit documentation in R/BarbinPg137.R +\name{BarbinPg137} +\alias{BarbinPg137} +\title{Adubação NPK na Produção de Algodão Herbáceo} +\format{Um \code{data.frame} com 54 observações e 6 variáveis. + \describe{ + +\item{\code{N}}{Dose de nitrogênio (kg ha\eqn{^{-1}}) usada na + adubação.} + +\item{\code{P}}{Dose de fósforo (kg ha\eqn{^{-1}}) usada na + adubação.} + +\item{\code{K}}{Dose de potássio (kg ha\eqn{^{-1}}) usada na + adubação.} + +\item{\code{bloc}}{Fator de nÃveis categóricos considerado para + controle local.} + +\item{\code{rept}}{Número inteiro que identifica as repetições das + celas experimentais dentro dos blocos.} + +\item{\code{prod}}{Produção de algodão herbáceo, em kg + ha\eqn{^{-1}}.} + +}} +\source{ +Barbin, D. (2013). Planejamento e Análise EstatÃstica de + Experimentos Agronômicos (2nd ed.). Londrina, PR: + Mecenas. (pág. 137) + +Cavalcanti, F. B. (1977). A adubação mineral na cultura do algodão + (\emph{Gossypium hirsutum} L.) no Estado de + Pernambuco. Dissetação de Mestrado, Escola Superior de + Agricultura "Luiz de Queiroz"/USP, Piracicaba. +} +\description{ +Produção de algodão herbáceo de um ensaio de adubação + NPK \eqn{3^3} com confundimento (grupo W) de dois graus de + liberdade da interação tripla. Cada combinação NPK teve duas + repetições por bloco e o ensaio foi conduzido por Cavalcanti + (1977) em Parnambuco. +} +\examples{ +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ência das combinaçõ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ássio"~(K * ", " * kg~ha^{-1})), + cex.title = 1.1), + strip = strip.custom(strip.names = c(TRUE), sep = " = ", + var.name = expression( + "Fósforo"~(P * ", " * kg~ha^{-1}))), + xlab = expression("Nitrogênio"~(N * ", " * kg~ha^{-1})), + ylab = expression( + "Produção de algodão herbáceo"~(kg~ha^{-1}))) +} +\keyword{DBC} +\keyword{FAT3} +\keyword{confundimento} + -- GitLab From 0b49395d6b68d4576970649ada1d2bacf525ff12 Mon Sep 17 00:00:00 2001 From: Eduardo Junior <edujrrib@gmail.com> Date: Fri, 29 Apr 2016 01:53:33 -0300 Subject: [PATCH 2/2] =?UTF-8?q?Realiza=20m=C3=ADnimas=20corre=C3=A7=C3=B5e?= =?UTF-8?q?s=20para=20adequa=C3=A7=C3=A3o?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- R/BarbinPg114.R | 4 ++-- R/BarbinPg125.R | 2 +- R/BarbinPg137.R | 6 +++--- man/BarbinPg114.Rd | 8 +++++--- man/BarbinPg125.Rd | 6 ++++-- man/BarbinPg137.Rd | 10 ++++++---- man/labestData.Rd | 2 +- 7 files changed, 22 insertions(+), 16 deletions(-) diff --git a/R/BarbinPg114.R b/R/BarbinPg114.R index 67455d1..939ca8a 100644 --- a/R/BarbinPg114.R +++ b/R/BarbinPg114.R @@ -22,7 +22,7 @@ #' #' \item{\code{apar}}{Fator de nÃveis categóricos que identifica os #' aparelhos utilizados pelos operadores para medição da altura -#' total das árvores} +#' total das árvores.} #' #' \item{\code{oper}}{Fator de nÃveis categóricos que identifica os #' operadores que utilizaram os aparelhos.} @@ -43,7 +43,7 @@ #' #' Simões, J. W., Mello, H. A., Barbin, D. (1967). Eficiência dos #' aparelhos e e influência do operador na medição de altura total -#' de ávores. O Solo, Piracicaba, v.2, p.57-63. +#' de árvores. O Solo, Piracicaba, v.2, p.57-63. #' @examples #' #' library(latticeExtra) diff --git a/R/BarbinPg125.R b/R/BarbinPg125.R index 1566012..65a0c71 100644 --- a/R/BarbinPg125.R +++ b/R/BarbinPg125.R @@ -40,7 +40,7 @@ #' groups = K, type = c("p", "a"), #' auto.key = list(space = "top", columns = 2, #' title = "Potássio (K)", cex.title = 1.1), -#' strip = strip.custom(strip.names = c(TRUE), +#' strip = strip.custom(strip.names = TRUE, #' sep = " ", var.name = "Fósforo (P)"), #' xlab = "Nitrogênio (N)", #' ylab = "Produção de café coco (kg)") diff --git a/R/BarbinPg137.R b/R/BarbinPg137.R index fd373b5..cb26f54 100644 --- a/R/BarbinPg137.R +++ b/R/BarbinPg137.R @@ -4,7 +4,7 @@ #' NPK \eqn{3^3} com confundimento (grupo W) de dois graus de #' liberdade da interação tripla. Cada combinação NPK teve duas #' repetições por bloco e o ensaio foi conduzido por Cavalcanti -#' (1977) em Parnambuco. +#' (1977) em Pernambuco. #' @format Um \code{data.frame} com 54 observações e 6 variáveis. #' \describe{ #' @@ -34,7 +34,7 @@ #' #' Cavalcanti, F. B. (1977). A adubação mineral na cultura do algodão #' (\emph{Gossypium hirsutum} L.) no Estado de -#' Pernambuco. Dissetação de Mestrado, Escola Superior de +#' Pernambuco. Dissertação de Mestrado, Escola Superior de #' Agricultura "Luiz de Queiroz"/USP, Piracicaba. #' @examples #' @@ -65,7 +65,7 @@ #' title = expression( #' "Potássio"~(K * ", " * kg~ha^{-1})), #' cex.title = 1.1), -#' strip = strip.custom(strip.names = c(TRUE), sep = " = ", +#' strip = strip.custom(strip.names = TRUE, sep = " = ", #' var.name = expression( #' "Fósforo"~(P * ", " * kg~ha^{-1}))), #' xlab = expression("Nitrogênio"~(N * ", " * kg~ha^{-1})), diff --git a/man/BarbinPg114.Rd b/man/BarbinPg114.Rd index 6cbcef3..72b5cb8 100644 --- a/man/BarbinPg114.Rd +++ b/man/BarbinPg114.Rd @@ -1,4 +1,4 @@ -% Generated by roxygen2 (4.1.1): do not edit by hand +% Generated by roxygen2: do not edit by hand % Please edit documentation in R/BarbinPg114.R \name{BarbinPg114} \alias{BarbinPg114} @@ -9,7 +9,7 @@ \item{\code{apar}}{Fator de nÃveis categóricos que identifica os aparelhos utilizados pelos operadores para medição da altura - total das árvores} + total das árvores.} \item{\code{oper}}{Fator de nÃveis categóricos que identifica os operadores que utilizaram os aparelhos.} @@ -30,7 +30,7 @@ Barbin, D. (2013). Planejamento e Análise EstatÃstica de Simões, J. W., Mello, H. A., Barbin, D. (1967). Eficiência dos aparelhos e e influência do operador na medição de altura total - de ávores. O Solo, Piracicaba, v.2, p.57-63. + de árvores. O Solo, Piracicaba, v.2, p.57-63. } \description{ Dados de um experimento fatorial 5 \eqn{\times} 4, em @@ -51,6 +51,7 @@ Cinco aparelhos ou instrumentos de mensuração (hipsômetro de medida feita com o trena ficava sempre para o final (testemunha). } \examples{ + library(latticeExtra) data(BarbinPg114) @@ -75,6 +76,7 @@ xyplot(alt ~ oper | apar, data = BarbinPg114, title = "Ãrvore", cex.title = 1.1), xlab = "Operadores", ylab = "Altura total (m)") + } \keyword{DBC} \keyword{FAT2} diff --git a/man/BarbinPg125.Rd b/man/BarbinPg125.Rd index 2a4bbb9..9455d3f 100644 --- a/man/BarbinPg125.Rd +++ b/man/BarbinPg125.Rd @@ -1,4 +1,4 @@ -% Generated by roxygen2 (4.1.1): do not edit by hand +% Generated by roxygen2: do not edit by hand % Please edit documentation in R/BarbinPg125.R \name{BarbinPg125} \alias{BarbinPg125} @@ -35,6 +35,7 @@ Experimento no o delineamento de blocos casualizados que não foi informada as doses reais de cada um deles. } \examples{ + library(lattice) data(BarbinPg125) @@ -45,10 +46,11 @@ xyplot(prod ~ as.factor(N) | as.factor(P), data = BarbinPg125, groups = K, type = c("p", "a"), auto.key = list(space = "top", columns = 2, title = "Potássio (K)", cex.title = 1.1), - strip = strip.custom(strip.names = c(TRUE), + strip = strip.custom(strip.names = TRUE, sep = " ", var.name = "Fósforo (P)"), xlab = "Nitrogênio (N)", ylab = "Produção de café coco (kg)") + } \keyword{DBC} \keyword{FAT3} diff --git a/man/BarbinPg137.Rd b/man/BarbinPg137.Rd index 13930fc..f5cebfe 100644 --- a/man/BarbinPg137.Rd +++ b/man/BarbinPg137.Rd @@ -1,4 +1,4 @@ -% Generated by roxygen2 (4.1.1): do not edit by hand +% Generated by roxygen2: do not edit by hand % Please edit documentation in R/BarbinPg137.R \name{BarbinPg137} \alias{BarbinPg137} @@ -32,7 +32,7 @@ Barbin, D. (2013). Planejamento e Análise EstatÃstica de Cavalcanti, F. B. (1977). A adubação mineral na cultura do algodão (\emph{Gossypium hirsutum} L.) no Estado de - Pernambuco. Dissetação de Mestrado, Escola Superior de + Pernambuco. Dissertação de Mestrado, Escola Superior de Agricultura "Luiz de Queiroz"/USP, Piracicaba. } \description{ @@ -40,9 +40,10 @@ Produção de algodão herbáceo de um ensaio de adubação NPK \eqn{3^3} com confundimento (grupo W) de dois graus de liberdade da interação tripla. Cada combinação NPK teve duas repetições por bloco e o ensaio foi conduzido por Cavalcanti - (1977) em Parnambuco. + (1977) em Pernambuco. } \examples{ + library(lattice) data(BarbinPg137) @@ -70,12 +71,13 @@ xyplot(prod ~ as.factor(N) | as.factor(P), data = BarbinPg137, title = expression( "Potássio"~(K * ", " * kg~ha^{-1})), cex.title = 1.1), - strip = strip.custom(strip.names = c(TRUE), sep = " = ", + strip = strip.custom(strip.names = TRUE, sep = " = ", var.name = expression( "Fósforo"~(P * ", " * kg~ha^{-1}))), xlab = expression("Nitrogênio"~(N * ", " * kg~ha^{-1})), ylab = expression( "Produção de algodão herbáceo"~(kg~ha^{-1}))) + } \keyword{DBC} \keyword{FAT3} diff --git a/man/labestData.Rd b/man/labestData.Rd index 24932f7..8a8c53a 100644 --- a/man/labestData.Rd +++ b/man/labestData.Rd @@ -1,4 +1,4 @@ -% Generated by roxygen2 (4.1.1): do not edit by hand +% Generated by roxygen2: do not edit by hand % Please edit documentation in R/labestData.R \docType{package} \name{labestData} -- GitLab