From fe9e78c718b9223a8917e27f5ed93c3d7a024996 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Tue, 22 Mar 2016 11:29:19 -0300
Subject: [PATCH] =?UTF-8?q?Corrige=20documenta=C3=A7ao.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
R/RamalhoEg7.8.R | 29 ++++++++++++++++++-----------
R/RamalhoEx7.10.R | 30 ++++++++++++++++++++----------
R/RamalhoTb7.1.R | 35 ++++++++++++++++++++---------------
3 files changed, 58 insertions(+), 36 deletions(-)
diff --git a/R/RamalhoEg7.8.R b/R/RamalhoEg7.8.R
index 41fb1d1..d04a3d4 100644
--- a/R/RamalhoEg7.8.R
+++ b/R/RamalhoEg7.8.R
@@ -1,21 +1,21 @@
#' @name RamalhoEg7.8
-#' @title Produção de grãos de feijão
-#' @description Experimento referente à produção de grãos de feijão
-#' obtida na avaliação de 24 famílias \eqn{F_{5}} do cruzamento
+#' @title Produção de Grãos de Cruzamentos Feijão
+#' @description Experimento referente à produção de grãos de feijão
+#' obtida na avaliação de 24 famílias \eqn{F_{5}} do cruzamento
#' Jalo x Small White, cujos dados foram obtidos por Souza (1991).
#' Experimento realizado em blocos incompletos.
-#' @format Um \code{data.frame} com 240 observações e 4 variáveis, em
+#' @format Um \code{data.frame} com 240 observações e 4 variáveis, em
#' que
#'
#' \describe{
#'
-#' \item{\code{fam}}{Família \eqn{F_{5}} do cruzamento Jalo x Small
+#' \item{\code{fam}}{Família \eqn{F_{5}} do cruzamento Jalo x Small
#' White.}
#'
-#' \item{\code{rept}}{Fator que indica se a produção veio da primeira ou
+#' \item{\code{rept}}{Fator que indica se a produção veio da primeira ou
#' segunda repetição.}
#'
-#' \item{\code{plant}}{Inteiro que representa os grãos de feijão no
+#' \item{\code{plant}}{Inteiro que representa os grãos de feijão no
#' experimento.}
#'
#' \item{\code{prod}}{Produção de grãos de feijão, em g/planta.}
@@ -24,13 +24,20 @@
#' @keywords DBC
#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras, MG: UFLA. (pg 110).
+#' Lavras, MG: UFLA. (Exemplo 7.8, pág 110).
#' @examples
#'
#' library(lattice)
#'
-#' boxplot(prod ~ plant, data = RamalhoEg7.8,
-#' xlab = "Planta",
-#' ylab = "Produção de grãos")
+#' xtabs(~fam + rept, data = RamalhoEg7.8)
+#'
+#' ps <- list(box.rectangle = list(col = 1, fill = c("gray90")),
+#' box.umbrella = list(col = 1, lty = 1),
+#' plot.symbol = list(col = 1, cex = 0.7))
+#'
+#' bwplot(prod ~ fam, data = RamalhoEg7.8,
+#' horizontal = FALSE, pch = "|",
+#' xlab = "Família", ylab = "Produção de grãos",
+#' par.settings = ps)
#'
NULL
diff --git a/R/RamalhoEx7.10.R b/R/RamalhoEx7.10.R
index e16ef94..3947242 100644
--- a/R/RamalhoEx7.10.R
+++ b/R/RamalhoEx7.10.R
@@ -1,17 +1,17 @@
#' @name RamalhoEx7.10
-#' @title Produção de arroz
-#' @description Experimento referente a produção de arroz obtida na
-#' avaliação de 18 populações \eqn{F_{2}} e duas linhagens
-#' utilizadas como testemunhas. O Experimento foi realizado em
+#' @title Produção de Arroz em 18 Populações na F2
+#' @description Experimento referente à produção de arroz obtida na
+#' avaliação de 18 populações \eqn{F_{2}} e duas linhagens
+#' utilizadas como testemunhas. O Experimento foi realizado em
#' blocos casualizados.
-#' @format Um \code{data.frame} com 540 observações e 4 variáveis, em
+#' @format Um \code{data.frame} com 540 observações e 4 variáveis, em
#' que
#'
#' \describe{
#'
#' \item{\code{pop}}{População \eqn{F_{2}} de arroz.}
#'
-#' \item{\code{rept}}{Fator que indica se a produção veio da primeira ou
+#' \item{\code{rept}}{Fator que indica se a produção veio da primeira ou
#' segunda linhagem.}
#'
#' \item{\code{plant}}{Inteiro que representa o arroz no experimento.}
@@ -27,9 +27,19 @@
#'
#' library(lattice)
#'
-#' boxplot(prod ~ plant, data = RamalhoEx7.10,
-#' ylim = c(0, 45),
-#' xlab = "Plantas de arroz",
-#' ylab = "Produção")
+#' data(RamalhoEx7.10)
+#'
+#' str(RamalhoEx7.10)
+#'
+#' xtabs(~pop + rept, data = RamalhoEx7.10)
+#'
+#' ps <- list(box.rectangle = list(col = 1, fill = c("gray90")),
+#' box.umbrella = list(col = 1, lty = 1),
+#' plot.symbol = list(col = 1, cex = 0.7))
+#'
+#' bwplot(prod ~ pop, data = RamalhoEx7.10,
+#' horizontal = FALSE, pch = "|",
+#' xlab = "População", ylab = "Produção de grãos",
+#' par.settings = ps)
#'
NULL
diff --git a/R/RamalhoTb7.1.R b/R/RamalhoTb7.1.R
index fe46dae..6382291 100644
--- a/R/RamalhoTb7.1.R
+++ b/R/RamalhoTb7.1.R
@@ -1,37 +1,42 @@
#' @name RamalhoTb7.1
-#' @title Volume de madeira por árvore
-#' @description Pesquisa sobre avaliação de progênies de
-#' \emph{Eucaliptus camaldulensis}, referente ao volume de madeira
-#' por árvore, cujos dados foram obtidos pela V. \& M. Florestal
+#' @title Volume de Madeira em Progênies de Eucalipto
+#' @description Pesquisa sobre avaliação de progênies de
+#' \emph{Eucaliptus camaldulensis}, referente ao volume de madeira
+#' por árvore, cujos dados foram obtidos pela V. \& M. Florestal
#' Ltda. Experimento realizado em blocos casualizados.
-#' @format Um \code{data.frame} com 180 observações e 4 variáveis, em
+#' @format Um \code{data.frame} com 180 observações e 4 variáveis, em
#' que
#'
#' \describe{
#'
#' \item{\code{prog}}{Progênie de \emph{Eucaliptus camaldulensis}.}
#'
-#' \item{\code{rept}}{Número inteiro que indica as repetições de medida
-#' do volume de cada árvore.}
+#' \item{\code{rept}}{Número inteiro que indica o número da parcela com
+#' árvores de cada progênie.}
#'
-#' \item{\code{plant}}{Inteiro que representa as árvores no
-#' experimento.}
+#' \item{\code{plant}}{Inteiro que representa as árvores no parcela.}
#'
-#' \item{\code{vol}}{Volume de madeira por árvore, medido em
-#' \eqn{m^3 x 10^4}}
+#' \item{\code{vol}}{Volume de madeira por árvore, medido em m\eqn{^3
+#' \times 10^4}}
#'
#' }
#' @keywords DBC
#' @source Ramalho, M. A. P., Ferreira, D. F., Oliveira, A. C. (2005).
#' Experimentação em Genética e Melhoramento de Plantas (2th ed.).
-#' Lavras, MG: UFLA. (pg 102).
+#' Lavras, MG: UFLA. (Tabela 7.1, pág 102).
#' @examples
#'
#' library(lattice)
#'
+#' data(RamalhoTb7.1)
+#'
+#' str(RamalhoTb7.1)
+#'
+#' xtabs(~prog + rept, data = RamalhoTb7.1)
+#'
#' xyplot(vol ~ plant | rept, data = RamalhoTb7.1,
-#' jitter.x = TRUE,
-#' xlab = "Árvore",
-#' ylab = "Volume")
+#' jitter.x = TRUE,
+#' xlab = "Progênie",
+#' ylab = "Volume")
#'
NULL
--
GitLab