From 1f31a9f8d2af8f7774cb576071724eec02a55aa0 Mon Sep 17 00:00:00 2001
From: Eduardo Junior <edujrrib@gmail.com>
Date: Tue, 29 Nov 2016 02:17:12 -0200
Subject: [PATCH] =?UTF-8?q?Realiza=20corre=C3=A7=C3=B5es/adequa=C3=A7?=
 =?UTF-8?q?=C3=B5es=20e=20indica=C3=A7=C3=B5es=20para=20corre=C3=A7=C3=A3o?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/AndradeEx7.15.R      |  19 ++++++++---------
 R/AndradeEx8.11.R      |  20 ++++++++++++------
 R/AndradeEx8.13.R      |  37 +++++++++++++++++++--------------
 R/AndradeEx8.17.R      |  34 ++++++++++++++++--------------
 R/AndradeEx8.23.R      |  28 ++++++++++++++-----------
 R/AndradeEx8.9.R       |  22 +++++++++++++++-----
 R/AndradeTb8.6.R       |  46 +++++++++++++++++------------------------
 R/AndradeTb8.7.R       |  22 +++++++++-----------
 data/AndradeEx8.23.rda | Bin 309 -> 294 bytes
 data/AndradeTb8.7.rda  | Bin 263 -> 186 bytes
 man/AndradeEx7.15.Rd   |  17 +++++++--------
 man/AndradeEx8.11.Rd   |  17 ++++++++++-----
 man/AndradeEx8.13.Rd   |  35 +++++++++++++++++--------------
 man/AndradeEx8.17.Rd   |  32 +++++++++++++++-------------
 man/AndradeEx8.23.Rd   |  26 +++++++++++++----------
 man/AndradeEx8.9.Rd    |  20 ++++++++++++++----
 man/AndradeTb8.6.Rd    |  44 ++++++++++++++++-----------------------
 man/AndradeTb8.7.Rd    |  20 ++++++++----------
 18 files changed, 241 insertions(+), 198 deletions(-)

diff --git a/R/AndradeEx7.15.R b/R/AndradeEx7.15.R
index 2ec950d8..fcaf743d 100644
--- a/R/AndradeEx7.15.R
+++ b/R/AndradeEx7.15.R
@@ -1,10 +1,12 @@
 #' @name AndradeEx7.15
-#' @title DAP de ForÃ³fitos Possuidores de \emph{Vriesea incurvata}
-#' @description Estudo sobre os valores de DAP (DiÃ¢metro Ã  Altura do
-#'     Peito), em cm, de uma amostra piloto de forÃ³fitos possuidores de
-#'     \emph{Vriesea incurvata} (bromÃ©lia, conhecida como espada de
-#'     Davi), em vegetaÃ§Ã£o primÃ¡ria da Floresta Tropical AtlÃ¢ntica, em
-#'     Santo Amaro da Imperatriz, SC.
+#' @title DiÃ¢metro de ForÃ³fitos Possuidores de BromÃ©lias \emph{Vriesea
+#'     incurvata}
+#' @description Estudo sobre os valores de diÃ¢metro Ã  altura do peito
+#'     (DAP), em centÃmetros, de uma amostra piloto de forÃ³fitos,
+#'     Ã¡rvores suporte para epÃfitas, possuidores de \emph{Vriesea
+#'     incurvata} (bromÃ©lia, conhecida como espada de Davi), em
+#'     vegetaÃ§Ã£o primÃ¡ria da Floresta Tropical AtlÃ¢ntica, em Santo Amaro
+#'     da Imperatriz, SC.
 #' @format Um \code{vector} numÃ©rico com 30 observaÃ§Ãµes.
 #' @keywords AAS
 #' @source Andrade, D. F., Ogliari, P. J. (2010). EstatÃstica para as
@@ -13,8 +15,6 @@
 #'     15, pÃ¡g. 346)
 #' @examples
 #'
-#' library(lattice)
-#'
 #' data(AndradeEx7.15)
 #' str(AndradeEx7.15)
 #'
@@ -26,7 +26,6 @@
 #'      col = "darkturquoise",
 #'      xlab = "DAP (cm)",
 #'      ylab = "Densidade")
-#'
 #' lines(density(AndradeEx7.15), lwd = 2)
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeEx8.11.R b/R/AndradeEx8.11.R
index 81fee5b7..e35695d3 100644
--- a/R/AndradeEx8.11.R
+++ b/R/AndradeEx8.11.R
@@ -17,7 +17,7 @@
 #' \item{\code{peso}}{Peso do animais, em kg.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords AASP
 #' @source Andrade, D. F., Ogliari, P. J. (2010). EstatÃstica para as
 #'     ciÃªncias agrÃ¡rias e biolÃ³gicas com noÃ§Ãµes de experimentaÃ§Ã£o (2nd
 #'     ed.). FlorianÃ³polis, SC. Editora da UFSC. (CapÃtulo 8, ExercÃcio
@@ -27,15 +27,23 @@
 #' data(AndradeEx8.11)
 #' str(AndradeEx8.11)
 #'
+#' # Dados apresentados em formato largo ("wide")
+#' library(reshape2)
+#' (da <- dcast(AndradeEx8.11, animal ~ estado, value.var = "peso"))
+#'
+#' # Pares de peso para cada animal
 #' library(lattice)
-#' dotplot(jitter(peso) ~ animal,
+#' dotplot(animal ~ peso,
 #'         groups = estado,
 #'         auto.key = list(title = "Estado",
 #'                         cex.title = 1.1,
 #'                         columns = 2),
-#'         type = "o",
 #'         data = AndradeEx8.11,
-#'         xlab = "Animal",
-#'         ylab = "Peso (kg)")
+#'         xlab = "Peso (kg)",
+#'         ylab = "Animal")
+#'
+#' # DistribuiÃ§Ã£o das diferenÃ§as
+#' densityplot(~jejum - vivo, data = da)
 #'
-NULL
\ No newline at end of file
+
+NULL
diff --git a/R/AndradeEx8.13.R b/R/AndradeEx8.13.R
index 2b43db25..c9eaaa25 100644
--- a/R/AndradeEx8.13.R
+++ b/R/AndradeEx8.13.R
@@ -1,22 +1,21 @@
 #' @name AndradeEx8.13
-#' @title Estudo do Desenvolvimento das EspÃ©cies Bracatinga e
-#'     CanafÃstula
-#' @description Estudo, realizado por um agrÃ´nomo, sobre o
-#'     desenvolvimento de duas espÃ©cies de Ã¡rvores, a Bracatinga (
-#'     \emph{Mimosa scabrella} e a CanafÃstula \emph{Peltophorum
-#'     dubium}. Para essa finalidade foram coletadas duas amostras de
-#'     tamanhos iguais a 30 Ã¡rvores.
+#' @title Altura de Ãrvores Bracatinga e CanafÃstula
+#' @description Estudo realizado por um agrÃ´nomo sobre o desenvolvimento
+#'     de duas espÃ©cies de Ã¡rvores, Bracatinga (\emph{Mimosa scabrella})
+#'     e CanafÃstula (\emph{Peltophorum dubium}). O objetivo Ã©
+#'     verificar diferenÃ§a entre o densenvolvimento das duas espÃ©cies,
+#'     para tal uma amostra de 30 Ã¡rvores foi avaliada. O
+#'     desenvolvimento foi mensurado pela altura das altura das Ã¡rvores.
 #' @format Um \code{data.frame} com 60 observaÃ§Ãµes e 2 variÃ¡veis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{arvores}}{Fator de 2 nÃveis qualitativos, que sÃ£o as
-#'     espÃ©cies de Ã¡rvores.}
+#' \item{\code{arvores}}{EspÃ©cie da Ã¡rvore, Bracatinga ou CanafÃstula.}
 #'
-#' \item{\code{altura}}{Altura das Ã¡rvores, em metros.}
+#' \item{\code{altura}}{Altura da Ã¡rvore, em metros.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords AASI
 #' @source Andrade, D. F., Ogliari, P. J. (2010). EstatÃstica para as
 #'     ciÃªncias agrÃ¡rias e biolÃ³gicas com noÃ§Ãµes de experimentaÃ§Ã£o (2nd
 #'     ed.). FlorianÃ³polis, SC. Editora da UFSC. (CapÃtulo 8, ExercÃcio
@@ -26,9 +25,15 @@
 #' data(AndradeEx8.13)
 #' str(AndradeEx8.13)
 #'
-#' boxplot(altura ~ arvores,
-#'         data = AndradeEx8.13,
-#'         xlab = "Ãrvore",
-#'         ylab = "Altura (m)")
+#' with(AndradeEx8.13, by(altura, arvores, summary))
 #'
-NULL
\ No newline at end of file
+#' library(lattice)
+#' densityplot(~altura, groups = arvores,
+#'             data = AndradeEx8.13,
+#'             auto.key = list(
+#'                 title = "EspÃ©cies",
+#'                 cex.title = 1,
+#'                 corner = c(0.9, 0.95)
+#'             ))
+#'
+NULL
diff --git a/R/AndradeEx8.17.R b/R/AndradeEx8.17.R
index 61750419..f7914e30 100644
--- a/R/AndradeEx8.17.R
+++ b/R/AndradeEx8.17.R
@@ -4,24 +4,22 @@
 #'     da espÃ©cie \emph{Mandevilla velutina} (ApocinÃ¡cea), proveniente
 #'     de duas regiÃµes: cerrado e restinga. ApÃ³s isolar os explantes,
 #'     com um nÃ³ com duas gemas axilares, obtidos das plantas matrizes,
-#'     foi instalado o experimento com delineamento inteiramente
+#'     foi instalado o experimento em delineamento inteiramente
 #'     casualizado com 20 repetiÃ§Ãµes (20 explantes para o cerrado de 20
-#'     para a restinga); portanto, temos um total de 40 unidades
-#'     experimentais. A variÃ¡vel utilizada foi a altura em cm dos
-#'     explantes de \emph{Mandevilla} cultivadas \emph{in vitro} durante
-#'     45 dias.
+#'     para a restinga), totalizando 40 unidades experimentais. A
+#'     variÃ¡vel mensurada foi a altura em centÃmetros dos explantes de
+#'     \emph{Mandevilla}, cultivadas \emph{in vitro} durante 45 dias.
 #' @format Um \code{data.frame} com 40 observaÃ§Ãµes e 2 variÃ¡veis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{regiao}}{Fator de 2 nÃveis qualitativos, que indica a
-#'     regiÃ£o da plantaÃ§Ã£o.}
+#' \item{\code{regiao}}{RegiÃ£o da plantaÃ§Ã£o (Cerrado ou Rastinga).}
 #'
-#' \item{\code{altura}}{Altura em cm dos explantes de \emph{Mandevilla}
-#'     cultivadas \emph{in vitro} durante 45 dias.}
+#' \item{\code{altura}}{Altura, em centÃmetros, dos explantes de
+#'     \emph{Mandevilla} cultivadas \emph{in vitro} durante 45 dias.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords AASI
 #' @source Andrade, D. F., Ogliari, P. J. (2010). EstatÃstica para as
 #'     ciÃªncias agrÃ¡rias e biolÃ³gicas com noÃ§Ãµes de experimentaÃ§Ã£o (2nd
 #'     ed.). FlorianÃ³polis, SC. Editora da UFSC. (CapÃtulo 8, ExercÃcio
@@ -31,9 +29,15 @@
 #' data(AndradeEx8.17)
 #' str(AndradeEx8.17)
 #'
-#' boxplot(altura ~ regiao,
-#'         data = AndradeEx8.17,
-#'         xlab = "RegiÃ£o",
-#'         ylab = "Altura (cm)")
+#' with(AndradeEx8.17, by(altura, regiao, summary))
 #'
-NULL
\ No newline at end of file
+#' library(lattice)
+#' densityplot(~altura, groups = regiao,
+#'             data = AndradeEx8.17,
+#'             auto.key = list(
+#'                 title = "RegiÃ£o",
+#'                 cex.title = 1,
+#'                 corner = c(0.9, 0.95)
+#'             ))
+#'
+NULL
diff --git a/R/AndradeEx8.23.R b/R/AndradeEx8.23.R
index cb2fbbb8..0bf69536 100644
--- a/R/AndradeEx8.23.R
+++ b/R/AndradeEx8.23.R
@@ -3,21 +3,19 @@
 #' @description Estudo para verificar a influÃªncia da incidÃªncia solar
 #'     sobre a produÃ§Ã£o de espiguetas nas gramÃneas da espÃ©cie
 #'     \emph{Paspalum notatum} FlÃ¼gge, conhecida como grama batatais.
-#'     Com esta finalidade efetuou-se a contagem das espiguetas
-#'     produzidas pelas plantas em dois locais, quais sejam: adjacentes
-#'     ao sol e Ã  sombra leve.
+#'     Realizou-se no estudo a contagem das espiguetas produzidas pelas
+#'     plantas em dois locais: adjacentes ao sol e Ã  sombra leve.
 #' @format Um \code{data.frame} com 40 observaÃ§Ãµes e 2 variÃ¡veis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{ambiente}}{Fator de 2 nÃveis qualitativos, que indica se
-#'     o ambiente Ã© iluminado ou sombrio.}
+#' \item{\code{ambiente}}{Indica se o ambiente Ã© iluminado ou sombrio.}
 #'
-#' \item{\code{espiguetas}}{ProduÃ§Ã£o de espiguetas nas gramÃneas da
+#' \item{\code{espiguetas}}{Contagem de espiguetas nas gramÃneas da
 #'     espÃ©cie \emph{Paspalum notatum} FlÃ¼gge.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords AASI
 #' @source Andrade, D. F., Ogliari, P. J. (2010). EstatÃstica para as
 #'     ciÃªncias agrÃ¡rias e biolÃ³gicas com noÃ§Ãµes de experimentaÃ§Ã£o (2nd
 #'     ed.). FlorianÃ³polis, SC. Editora da UFSC. (CapÃtulo 8, ExercÃcio
@@ -27,9 +25,15 @@
 #' data(AndradeEx8.23)
 #' str(AndradeEx8.23)
 #'
-#' boxplot(espiguetas ~ ambiente,
-#'         data = AndradeEx8.23,
-#'         xlab = "Ambiente",
-#'         ylab = "ProduÃ§Ã£o de Espiguetas")
+#' with(AndradeEx8.23, by(espiguetas, ambiente, summary))
 #'
-NULL
\ No newline at end of file
+#' library(lattice)
+#' densityplot(~espiguetas, groups = ambiente,
+#'             data = AndradeEx8.23,
+#'             auto.key = list(
+#'                 title = "Ambiente",
+#'                 cex.title = 1,
+#'                 corner = c(0.9, 0.95)
+#'             ))
+#'
+NULL
diff --git a/R/AndradeEx8.9.R b/R/AndradeEx8.9.R
index 9b4eb017..ff321ef8 100644
--- a/R/AndradeEx8.9.R
+++ b/R/AndradeEx8.9.R
@@ -3,7 +3,7 @@
 #' @description Estudo sobre a possibilidade da quantidade de proteÃnas
 #'     totais no plasma, depois de determinada operaÃ§Ã£o em portadores de
 #'     esquistossomose mansÃ´nica, ser diferente da quantidade de antes
-#'     da operaÃ§Ã£o.
+#'     da operaÃ§Ã£o.[VERIFICAR DESCRICAO]
 #' @format Um \code{data.frame} com 34 observaÃ§Ãµes e 3 variÃ¡veis, em que
 #'
 #' \describe{
@@ -18,7 +18,7 @@
 #' \item{\code{prot}}{Quantidade de proteÃnas totais no plasma.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords AASP
 #' @source Andrade, D. F., Ogliari, P. J. (2010). EstatÃstica para as
 #'     ciÃªncias agrÃ¡rias e biolÃ³gicas com noÃ§Ãµes de experimentaÃ§Ã£o (2nd
 #'     ed.). FlorianÃ³polis, SC. Editora da UFSC. (CapÃtulo 8, ExercÃcio
@@ -28,15 +28,27 @@
 #' data(AndradeEx8.9)
 #' str(AndradeEx8.9)
 #'
+#' # Dados apresentados em formato largo ("wide")
+#' library(reshape2)
+#' (da <- dcast(AndradeEx8.9, paciente ~ periodo, value.var = "prot"))
+#'
+#' # Pares de peso para cada animal
 #' library(lattice)
-#' dotplot(jitter(prot) ~ paciente,
+#' dotplot(prot ~ paciente,
 #'         groups = periodo,
 #'         auto.key = list(title = "PerÃodo",
 #'                         cex.title = 1.1,
 #'                         columns = 2),
-#'         type = "o",
+#'         type = "p",
 #'         data = AndradeEx8.9,
 #'         xlab = "Paciente",
 #'         ylab = "Quantidade de ProteÃnas Totais no Plasma")
 #'
-NULL
\ No newline at end of file
+#' # DistribuiÃ§Ã£o das diferenÃ§as
+#' densityplot(~antes - depois, data = da)
+#'
+#' # Testes de hipÃ³teses
+#' t.test(prot ~ periodo, paired = TRUE, data = AndradeEx8.9)
+#' t.test(da$antes - da$depois)
+#'
+NULL
diff --git a/R/AndradeTb8.6.R b/R/AndradeTb8.6.R
index 337e930a..6e819550 100644
--- a/R/AndradeTb8.6.R
+++ b/R/AndradeTb8.6.R
@@ -1,48 +1,40 @@
 #' @name AndradeTb8.6
-#' @title Experimento de AvaliaÃ§Ã£o de Classes FenotÃpicas de Plantas
-#'     DihÃbridas
+#' @title AvaliaÃ§Ã£o de Classes FenotÃpicas de Plantas DihÃbridas
 #' @description Na descendÃªncia obtida de cruzamentos entre plantas
-#'     puras de ervilhas com sementes amarelas lisas e outras de
-#'     sementes verdes rugosas, obtemos na primeira geraÃ§Ã£o (F1),
-#'     ervilhas amarelas lisas. Estas, por autofecundaÃ§Ã£o, produzem, na
+#'     puras de ervilhas com sementes amarelas lisas e outras com
+#'     sementes verdes rugosas, obtÃªm-se na primeira geraÃ§Ã£o (F1),
+#'     ervilhas amarelas lisas. Essas, por autofecundaÃ§Ã£o, produzem, na
 #'     segunda geraÃ§Ã£o (F2), ervilhas de quatro tipos: amarelas lisas,
-#'     verdes lisas, amarelas rugosas e verdes rugosas. Esse tipo de
-#'     experimento avalia se o padrÃ£o de segregaÃ§Ã£o dos caracteres
-#'     envolvidos segue aquele proposto pela segunda lei de Mendel (lei
-#'     da segregaÃ§Ã£o independente), que diz que as proporÃ§Ãµes esperadas
-#'     para esses tipos de ervilhas sÃ£o: 9/16, 3/16, 3/16 e 1/16,
-#'     respectivamente.
+#'     verdes lisas, amarelas rugosas e verdes rugosas. Segundo a
+#'     segunda lei de Mendel (lei da segregaÃ§Ã£o independente), as
+#'     proporÃ§Ãµes esperadas para esses tipos de ervilhas sÃ£o: 9/16,
+#'     3/16, 3/16 e 1/16, respectivamente. Assim o objetivo desse
+#'     experimento Ã© avaliar se o padrÃ£o de segregaÃ§Ã£o dos caracteres
+#'     envolvidos segue o proposto pela segunda lei de Mendel.
 #' @format Um \code{data.frame} com 4 observaÃ§Ãµes e 3 variÃ¡veis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{textura}}{Fator de 2 nÃveis qualitativos, que sÃ£o as
-#'     texturas das ervilhas.}
+#' \item{\code{textura}}{Textura das ervilhas (Lisa e Rugosa).}
 #'
-#' \item{\code{cor}}{Fator de 2 nÃveis qualitativos, que sÃ£o as cores
-#'     das ervilhas.}
+#' \item{\code{cor}}{Cor das ervilhas (Amarela e Verde).}
 #'
 #' \item{\code{freq}}{FrequÃªncia absoluta de cada tipo de ervilha.}
 #'
 #' }
-#' @keywords AAS
+#' @keywords contingÃªncia
 #' @source Andrade, D. F., Ogliari, P. J. (2010). EstatÃstica para as
 #'     ciÃªncias agrÃ¡rias e biolÃ³gicas com noÃ§Ãµes de experimentaÃ§Ã£o (2nd
 #'     ed.). FlorianÃ³polis, SC. Editora da UFSC. (Tabela 8.6, pÃ¡g. 372)
 #' @examples
 #'
-#' library(lattice)
-#'
 #' data(AndradeTb8.6)
 #' str(AndradeTb8.6)
 #'
-#' xyplot(freq ~ cor,
-#'        groups = textura,
-#'        data = AndradeTb8.6,
-#'        auto.key = list(title = "Textura",
-#'                        cex.title = 1.1,
-#'                        columns = 2),
-#'        xlab = "Cor",
-#'        ylab = "FrequÃªncia")
+#' (xt <- xtabs(freq ~ ., data = AndradeTb8.6))
+#' prop.table(xt)
+#'
+#' plot(xt, cex.axis = 1, main = "")
+#' barplot(xt, legend.text = TRUE)
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb8.7.R b/R/AndradeTb8.7.R
index 4c3cba29..a6399013 100644
--- a/R/AndradeTb8.7.R
+++ b/R/AndradeTb8.7.R
@@ -1,22 +1,20 @@
 #' @name AndradeTb8.7
-#' @title NÃºmero de Ãrvores por Quadrante de \emph{Guapira opposita}
-#' @description Estudo sobre o nÃºmero de Ã¡rvores por quadrante da
-#'     espÃ©cie \emph{Guapira opposita}, realizado com o objetivo de
-#'     verificar a distribuiÃ§Ã£o espacial dessa espÃ©cie num local de
-#'     restinga. Foi utilizado um total de 94 quadrantes e contou-se o
-#'     nÃºmero de quadrantes com zero Ã¡rvores, uma Ã¡rvore, duas Ã¡rvores,
-#'     e assim por diante.
+#' @title NÃºmero de Ãrvores \emph{Guapira opposita} em Restinga
+#' @description Estudo sobre o nÃºmero de Ã¡rvores da espÃ©cie
+#'     \emph{Guapira opposita} em local de restinga. Estudo realizado
+#'     com o objetivo de verificar a distribuiÃ§Ã£o das Ã¡rvores em local
+#'     de restinga. A Ã¡rea avaliada foi dividida em 94 quadrantes de
+#'     mesma Ã¡rea e contou-se o nÃºmero de Ã¡rvores por quadrante.
 #' @format Um \code{data.frame} com 10 observaÃ§Ãµes e 2 variÃ¡veis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{arvores}}{Fator de 10 nÃveis qualitativos, que representa
-#'     o nÃºmero de Ã¡rvores por quadrante.}
+#' \item{\code{arvores}}{NÃºmero de Ã¡rvores por quadrante.}
 #'
-#' \item{\code{quadr}}{NÃºmero de quandrantes com X Ã¡rvores.}
+#' \item{\code{quadr}}{NÃºmero de quadrantes com \code{arvores} Ã¡rvores.}
 #'
 #' }
-#' @keywords DBC
+#' @keywords contingÃªncia*
 #' @source Andrade, D. F., Ogliari, P. J. (2010). EstatÃstica para as
 #'     ciÃªncias agrÃ¡rias e biolÃ³gicas com noÃ§Ãµes de experimentaÃ§Ã£o (2nd
 #'     ed.). FlorianÃ³polis, SC. Editora da UFSC. (Tabela 8.7, pÃ¡g. 374)
@@ -31,4 +29,4 @@
 #'         xlab = "NÃºmero de Ãrvores",
 #'         ylab = "NÃºmero de Quadrandres")
 #'
-NULL
\ No newline at end of file
+NULL
diff --git a/data/AndradeEx8.23.rda b/data/AndradeEx8.23.rda
index 0612e4e81f8aab29a9bdaad63c08740667aac2fa..de6e99892af8298837dd8d43691dc66f17d97de5 100644
GIT binary patch
literal 294
zcmV+>0ondST4*^jL0KkKSuX{^iU0u+|HA+BNB{suo$vpw`FOvt-@rfs06+i%umIYa
zMG26|(@hx-G-xz1(^E!606^0~#6q4%qtO~3p!E#^4FCWD0NQE^6i|Vlp)@qeVqyRQ
zX`o<+BNBo^5`!Cq5J}LOOI|`g^g<e0G{ruq>))@#!Np)SY1OZ0(A*Z7X{N+I?(uo>
z<<F!N^`xdhIsiZrI0>dgglF<W0#R+RAe|Bh%a{wzA%YOl!43E{O@shNPk1P?HXj%?
zMt9b<R+fX&qZ5-?+BcpCE;tAPzjYz-LIHXFggnr2VA>3J*s_7xkE&`G9p^$L(bqEI
s#U;m65z9A3=}<UjCHV~wd&C$GNnwhP7uKObKqv8cBvXY60`Oc2px&x`bN~PV

literal 309
zcmV-50m}YDT4*^jL0KkKSxU7+!~g+H|Hl9GNB{sq7(i#g|M)+r-@rfsKmY(h00FQ8
z7;ME%r|M*xs0@dw13(Q7fCe=-O+q%RhJerj27mwn0006+lS%+-p`h7Es5E2%13>i#
z)ci~Iz~UfoA;Ax?3BSR_aq?m%kDSR}<bzzPjo$%E1Qon9CX%ZJR3qi)i<wQ9-A#H4
z2^yH4uPqu)AQkojLr@cu1l<6*QW_9mX(b3?hR})103^U(7~xRF*^|#TJsH<o<7J+b
zY?8(p1^^I-K!zDrg*O_mCQVRm!c7c>X>&rZgdl>1s9mxgVlWu2SP0B_)?%rSSft2J
zsD{;Nj{MFAzVKJ%cF_JeN;{TFF%1wguz5eFp;FI0YmbNsBEunRy4<VU2>%yyML1B9
HO0`17#%X~2

diff --git a/data/AndradeTb8.7.rda b/data/AndradeTb8.7.rda
index 34929f63576975092b3e33acc1f899c881a2f8b3..b9a9cf56c92852c1b3772cc7c6769c6ca0e455f1 100644
GIT binary patch
literal 186
zcmV;r07d^oT4*^jL0KkKS(l_tBme+=|G@wLSbzWl5Wpk=6hJ=*zkomh0Rf-@iVYHJ
zsqHC<W}%?bvVo==fr=!=F*MUP4K%=vh9I|0vZ&RyYuP#=a#B@JldhVS;9`UMLsT1G
zcgshDD^U9HjU*8o2^NT&!qQCyBoH8=5ON{rFaiSe9Sne&$5=_7ymyU{wmH8;$U`5v
odUb<VOfZ$=!c%dRCTP!05%DmgBxFBc3?K1#BvXY633^1rKts4p7XSbN

literal 263
zcmV+i0r>txT4*^jL0KkKS!LCeSpWdff589uOh5qvf5GGc6hJ=*zkomhK>@G;);1!i
zl*x?=fiOmc1Z2$#roslMih71>Y3gkdXkeHVKn$8NNR-q^qIpd;JfL7`Pf#)dKUC9u
ztb1|z!Ig>)5F%lK(XlDW;egkfVH%QWNHCs!?GtuE@BHS^naX^q1De+tbb8TC5Gz<L
zEHG)++nZh6E3c5s%9^MHxd7P28JGkijijYSAXGFU^J=D~?_m%W`cDxj#}E$q@O&y2
zj4m&3s+AgdNRAem+LlIy3m=xl0x^_`8|2`lNPUthmcjwz+NdRx0`Nk!@W6Vc)SMp?
NcO+AV2?kwRHISb1a?$_*

diff --git a/man/AndradeEx7.15.Rd b/man/AndradeEx7.15.Rd
index af011b7e..bdbbef55 100644
--- a/man/AndradeEx7.15.Rd
+++ b/man/AndradeEx7.15.Rd
@@ -2,7 +2,8 @@
 % Please edit documentation in R/AndradeEx7.15.R
 \name{AndradeEx7.15}
 \alias{AndradeEx7.15}
-\title{DAP de ForÃ³fitos Possuidores de \emph{Vriesea incurvata}}
+\title{DiÃ¢metro de ForÃ³fitos Possuidores de BromÃ©lias \emph{Vriesea
+    incurvata}}
 \format{Um \code{vector} numÃ©rico com 30 observaÃ§Ãµes.}
 \source{
 Andrade, D. F., Ogliari, P. J. (2010). EstatÃstica para as
@@ -11,16 +12,15 @@ Andrade, D. F., Ogliari, P. J. (2010). EstatÃstica para as
     15, pÃ¡g. 346)
 }
 \description{
-Estudo sobre os valores de DAP (DiÃ¢metro Ã  Altura do
-    Peito), em cm, de uma amostra piloto de forÃ³fitos possuidores de
-    \emph{Vriesea incurvata} (bromÃ©lia, conhecida como espada de
-    Davi), em vegetaÃ§Ã£o primÃ¡ria da Floresta Tropical AtlÃ¢ntica, em
-    Santo Amaro da Imperatriz, SC.
+Estudo sobre os valores de diÃ¢metro Ã  altura do peito
+    (DAP), em centÃmetros, de uma amostra piloto de forÃ³fitos,
+    Ã¡rvores suporte para epÃfitas, possuidores de \emph{Vriesea
+    incurvata} (bromÃ©lia, conhecida como espada de Davi), em
+    vegetaÃ§Ã£o primÃ¡ria da Floresta Tropical AtlÃ¢ntica, em Santo Amaro
+    da Imperatriz, SC.
 }
 \examples{
 
-library(lattice)
-
 data(AndradeEx7.15)
 str(AndradeEx7.15)
 
@@ -32,7 +32,6 @@ hist(AndradeEx7.15,
      col = "darkturquoise",
      xlab = "DAP (cm)",
      ylab = "Densidade")
-
 lines(density(AndradeEx7.15), lwd = 2)
 
 }
diff --git a/man/AndradeEx8.11.Rd b/man/AndradeEx8.11.Rd
index c0fe89c3..828100fe 100644
--- a/man/AndradeEx8.11.Rd
+++ b/man/AndradeEx8.11.Rd
@@ -33,17 +33,24 @@ Para comparar o peso vivo e o peso jejum do gado crioulo
 data(AndradeEx8.11)
 str(AndradeEx8.11)
 
+# Dados apresentados em formato largo ("wide")
+library(reshape2)
+(da <- dcast(AndradeEx8.11, animal ~ estado, value.var = "peso"))
+
+# Pares de peso para cada animal
 library(lattice)
-dotplot(jitter(peso) ~ animal,
+dotplot(animal ~ peso,
         groups = estado,
         auto.key = list(title = "Estado",
                         cex.title = 1.1,
                         columns = 2),
-        type = "o",
         data = AndradeEx8.11,
-        xlab = "Animal",
-        ylab = "Peso (kg)")
+        xlab = "Peso (kg)",
+        ylab = "Animal")
+
+# DistribuiÃ§Ã£o das diferenÃ§as
+densityplot(~jejum - vivo, data = da)
 
 }
-\keyword{AAS}
+\keyword{AASP}
 
diff --git a/man/AndradeEx8.13.Rd b/man/AndradeEx8.13.Rd
index 2ed2bdb5..9a3459a2 100644
--- a/man/AndradeEx8.13.Rd
+++ b/man/AndradeEx8.13.Rd
@@ -2,16 +2,14 @@
 % Please edit documentation in R/AndradeEx8.13.R
 \name{AndradeEx8.13}
 \alias{AndradeEx8.13}
-\title{Estudo do Desenvolvimento das EspÃ©cies Bracatinga e
-    CanafÃstula}
+\title{Altura de Ãrvores Bracatinga e CanafÃstula}
 \format{Um \code{data.frame} com 60 observaÃ§Ãµes e 2 variÃ¡veis, em que
 
 \describe{
 
-\item{\code{arvores}}{Fator de 2 nÃveis qualitativos, que sÃ£o as
-    espÃ©cies de Ã¡rvores.}
+\item{\code{arvores}}{EspÃ©cie da Ã¡rvore, Bracatinga ou CanafÃstula.}
 
-\item{\code{altura}}{Altura das Ã¡rvores, em metros.}
+\item{\code{altura}}{Altura da Ã¡rvore, em metros.}
 
 }}
 \source{
@@ -21,22 +19,29 @@ Andrade, D. F., Ogliari, P. J. (2010). EstatÃstica para as
     13, pÃ¡g. 410)
 }
 \description{
-Estudo, realizado por um agrÃ´nomo, sobre o
-    desenvolvimento de duas espÃ©cies de Ã¡rvores, a Bracatinga (
-    \emph{Mimosa scabrella} e a CanafÃstula \emph{Peltophorum
-    dubium}. Para essa finalidade foram coletadas duas amostras de
-    tamanhos iguais a 30 Ã¡rvores.
+Estudo realizado por um agrÃ´nomo sobre o desenvolvimento
+    de duas espÃ©cies de Ã¡rvores, Bracatinga (\emph{Mimosa scabrella})
+    e CanafÃstula (\emph{Peltophorum dubium}). O objetivo Ã©
+    verificar diferenÃ§a entre o densenvolvimento das duas espÃ©cies,
+    para tal uma amostra de 30 Ã¡rvores foi avaliada. O
+    desenvolvimento foi mensurado pela altura das altura das Ã¡rvores.
 }
 \examples{
 
 data(AndradeEx8.13)
 str(AndradeEx8.13)
 
-boxplot(altura ~ arvores,
-        data = AndradeEx8.13,
-        xlab = "Ãrvore",
-        ylab = "Altura (m)")
+with(AndradeEx8.13, by(altura, arvores, summary))
+
+library(lattice)
+densityplot(~altura, groups = arvores,
+            data = AndradeEx8.13,
+            auto.key = list(
+                title = "EspÃ©cies",
+                cex.title = 1,
+                corner = c(0.9, 0.95)
+            ))
 
 }
-\keyword{AAS}
+\keyword{AASI}
 
diff --git a/man/AndradeEx8.17.Rd b/man/AndradeEx8.17.Rd
index 1a1bb3f4..1b3957b7 100644
--- a/man/AndradeEx8.17.Rd
+++ b/man/AndradeEx8.17.Rd
@@ -7,11 +7,10 @@
 
 \describe{
 
-\item{\code{regiao}}{Fator de 2 nÃveis qualitativos, que indica a
-    regiÃ£o da plantaÃ§Ã£o.}
+\item{\code{regiao}}{RegiÃ£o da plantaÃ§Ã£o (Cerrado ou Rastinga).}
 
-\item{\code{altura}}{Altura em cm dos explantes de \emph{Mandevilla}
-    cultivadas \emph{in vitro} durante 45 dias.}
+\item{\code{altura}}{Altura, em centÃmetros, dos explantes de
+    \emph{Mandevilla} cultivadas \emph{in vitro} durante 45 dias.}
 
 }}
 \source{
@@ -25,23 +24,28 @@ Experimento para avaliar o comportamento \emph{in vitro}
     da espÃ©cie \emph{Mandevilla velutina} (ApocinÃ¡cea), proveniente
     de duas regiÃµes: cerrado e restinga. ApÃ³s isolar os explantes,
     com um nÃ³ com duas gemas axilares, obtidos das plantas matrizes,
-    foi instalado o experimento com delineamento inteiramente
+    foi instalado o experimento em delineamento inteiramente
     casualizado com 20 repetiÃ§Ãµes (20 explantes para o cerrado de 20
-    para a restinga); portanto, temos um total de 40 unidades
-    experimentais. A variÃ¡vel utilizada foi a altura em cm dos
-    explantes de \emph{Mandevilla} cultivadas \emph{in vitro} durante
-    45 dias.
+    para a restinga), totalizando 40 unidades experimentais. A
+    variÃ¡vel mensurada foi a altura em centÃmetros dos explantes de
+    \emph{Mandevilla}, cultivadas \emph{in vitro} durante 45 dias.
 }
 \examples{
 
 data(AndradeEx8.17)
 str(AndradeEx8.17)
 
-boxplot(altura ~ regiao,
-        data = AndradeEx8.17,
-        xlab = "RegiÃ£o",
-        ylab = "Altura (cm)")
+with(AndradeEx8.17, by(altura, regiao, summary))
+
+library(lattice)
+densityplot(~altura, groups = regiao,
+            data = AndradeEx8.17,
+            auto.key = list(
+                title = "RegiÃ£o",
+                cex.title = 1,
+                corner = c(0.9, 0.95)
+            ))
 
 }
-\keyword{AAS}
+\keyword{AASI}
 
diff --git a/man/AndradeEx8.23.Rd b/man/AndradeEx8.23.Rd
index 42dc9cf6..c0105a63 100644
--- a/man/AndradeEx8.23.Rd
+++ b/man/AndradeEx8.23.Rd
@@ -7,10 +7,9 @@
 
 \describe{
 
-\item{\code{ambiente}}{Fator de 2 nÃveis qualitativos, que indica se
-    o ambiente Ã© iluminado ou sombrio.}
+\item{\code{ambiente}}{Indica se o ambiente Ã© iluminado ou sombrio.}
 
-\item{\code{espiguetas}}{ProduÃ§Ã£o de espiguetas nas gramÃneas da
+\item{\code{espiguetas}}{Contagem de espiguetas nas gramÃneas da
     espÃ©cie \emph{Paspalum notatum} FlÃ¼gge.}
 
 }}
@@ -24,20 +23,25 @@ Andrade, D. F., Ogliari, P. J. (2010). EstatÃstica para as
 Estudo para verificar a influÃªncia da incidÃªncia solar
     sobre a produÃ§Ã£o de espiguetas nas gramÃneas da espÃ©cie
     \emph{Paspalum notatum} FlÃ¼gge, conhecida como grama batatais.
-    Com esta finalidade efetuou-se a contagem das espiguetas
-    produzidas pelas plantas em dois locais, quais sejam: adjacentes
-    ao sol e Ã  sombra leve.
+    Realizou-se no estudo a contagem das espiguetas produzidas pelas
+    plantas em dois locais: adjacentes ao sol e Ã  sombra leve.
 }
 \examples{
 
 data(AndradeEx8.23)
 str(AndradeEx8.23)
 
-boxplot(espiguetas ~ ambiente,
-        data = AndradeEx8.23,
-        xlab = "Ambiente",
-        ylab = "ProduÃ§Ã£o de Espiguetas")
+with(AndradeEx8.23, by(espiguetas, ambiente, summary))
+
+library(lattice)
+densityplot(~espiguetas, groups = ambiente,
+            data = AndradeEx8.23,
+            auto.key = list(
+                title = "Ambiente",
+                cex.title = 1,
+                corner = c(0.9, 0.95)
+            ))
 
 }
-\keyword{AAS}
+\keyword{AASI}
 
diff --git a/man/AndradeEx8.9.Rd b/man/AndradeEx8.9.Rd
index 84f9223d..d5933b89 100644
--- a/man/AndradeEx8.9.Rd
+++ b/man/AndradeEx8.9.Rd
@@ -27,24 +27,36 @@ Andrade, D. F., Ogliari, P. J. (2010). EstatÃstica para as
 Estudo sobre a possibilidade da quantidade de proteÃnas
     totais no plasma, depois de determinada operaÃ§Ã£o em portadores de
     esquistossomose mansÃ´nica, ser diferente da quantidade de antes
-    da operaÃ§Ã£o.
+    da operaÃ§Ã£o.[VERIFICAR DESCRICAO]
 }
 \examples{
 
 data(AndradeEx8.9)
 str(AndradeEx8.9)
 
+# Dados apresentados em formato largo ("wide")
+library(reshape2)
+(da <- dcast(AndradeEx8.9, paciente ~ periodo, value.var = "prot"))
+
+# Pares de peso para cada animal
 library(lattice)
-dotplot(jitter(prot) ~ paciente,
+dotplot(prot ~ paciente,
         groups = periodo,
         auto.key = list(title = "PerÃodo",
                         cex.title = 1.1,
                         columns = 2),
-        type = "o",
+        type = "p",
         data = AndradeEx8.9,
         xlab = "Paciente",
         ylab = "Quantidade de ProteÃnas Totais no Plasma")
 
+# DistribuiÃ§Ã£o das diferenÃ§as
+densityplot(~antes - depois, data = da)
+
+# Testes de hipÃ³teses
+t.test(prot ~ periodo, paired = TRUE, data = AndradeEx8.9)
+t.test(da$antes - da$depois)
+
 }
-\keyword{AAS}
+\keyword{AASP}
 
diff --git a/man/AndradeTb8.6.Rd b/man/AndradeTb8.6.Rd
index 90bef0f5..acc1f673 100644
--- a/man/AndradeTb8.6.Rd
+++ b/man/AndradeTb8.6.Rd
@@ -2,17 +2,14 @@
 % Please edit documentation in R/AndradeTb8.6.R
 \name{AndradeTb8.6}
 \alias{AndradeTb8.6}
-\title{Experimento de AvaliaÃ§Ã£o de Classes FenotÃpicas de Plantas
-    DihÃbridas}
+\title{AvaliaÃ§Ã£o de Classes FenotÃpicas de Plantas DihÃbridas}
 \format{Um \code{data.frame} com 4 observaÃ§Ãµes e 3 variÃ¡veis, em que
 
 \describe{
 
-\item{\code{textura}}{Fator de 2 nÃveis qualitativos, que sÃ£o as
-    texturas das ervilhas.}
+\item{\code{textura}}{Textura das ervilhas (Lisa e Rugosa).}
 
-\item{\code{cor}}{Fator de 2 nÃveis qualitativos, que sÃ£o as cores
-    das ervilhas.}
+\item{\code{cor}}{Cor das ervilhas (Amarela e Verde).}
 
 \item{\code{freq}}{FrequÃªncia absoluta de cada tipo de ervilha.}
 
@@ -24,33 +21,28 @@ Andrade, D. F., Ogliari, P. J. (2010). EstatÃstica para as
 }
 \description{
 Na descendÃªncia obtida de cruzamentos entre plantas
-    puras de ervilhas com sementes amarelas lisas e outras de
-    sementes verdes rugosas, obtemos na primeira geraÃ§Ã£o (F1),
-    ervilhas amarelas lisas. Estas, por autofecundaÃ§Ã£o, produzem, na
+    puras de ervilhas com sementes amarelas lisas e outras com
+    sementes verdes rugosas, obtÃªm-se na primeira geraÃ§Ã£o (F1),
+    ervilhas amarelas lisas. Essas, por autofecundaÃ§Ã£o, produzem, na
     segunda geraÃ§Ã£o (F2), ervilhas de quatro tipos: amarelas lisas,
-    verdes lisas, amarelas rugosas e verdes rugosas. Esse tipo de
-    experimento avalia se o padrÃ£o de segregaÃ§Ã£o dos caracteres
-    envolvidos segue aquele proposto pela segunda lei de Mendel (lei
-    da segregaÃ§Ã£o independente), que diz que as proporÃ§Ãµes esperadas
-    para esses tipos de ervilhas sÃ£o: 9/16, 3/16, 3/16 e 1/16,
-    respectivamente.
+    verdes lisas, amarelas rugosas e verdes rugosas. Segundo a
+    segunda lei de Mendel (lei da segregaÃ§Ã£o independente), as
+    proporÃ§Ãµes esperadas para esses tipos de ervilhas sÃ£o: 9/16,
+    3/16, 3/16 e 1/16, respectivamente. Assim o objetivo desse
+    experimento Ã© avaliar se o padrÃ£o de segregaÃ§Ã£o dos caracteres
+    envolvidos segue o proposto pela segunda lei de Mendel.
 }
 \examples{
 
-library(lattice)
-
 data(AndradeTb8.6)
 str(AndradeTb8.6)
 
-xyplot(freq ~ cor,
-       groups = textura,
-       data = AndradeTb8.6,
-       auto.key = list(title = "Textura",
-                       cex.title = 1.1,
-                       columns = 2),
-       xlab = "Cor",
-       ylab = "FrequÃªncia")
+(xt <- xtabs(freq ~ ., data = AndradeTb8.6))
+prop.table(xt)
+
+plot(xt, cex.axis = 1, main = "")
+barplot(xt, legend.text = TRUE)
 
 }
-\keyword{AAS}
+\keyword{contingÃªncia}
 
diff --git a/man/AndradeTb8.7.Rd b/man/AndradeTb8.7.Rd
index 3e938168..a58b4f5f 100644
--- a/man/AndradeTb8.7.Rd
+++ b/man/AndradeTb8.7.Rd
@@ -2,15 +2,14 @@
 % Please edit documentation in R/AndradeTb8.7.R
 \name{AndradeTb8.7}
 \alias{AndradeTb8.7}
-\title{NÃºmero de Ãrvores por Quadrante de \emph{Guapira opposita}}
+\title{NÃºmero de Ãrvores \emph{Guapira opposita} em Restinga}
 \format{Um \code{data.frame} com 10 observaÃ§Ãµes e 2 variÃ¡veis, em que
 
 \describe{
 
-\item{\code{arvores}}{Fator de 10 nÃveis qualitativos, que representa
-    o nÃºmero de Ã¡rvores por quadrante.}
+\item{\code{arvores}}{NÃºmero de Ã¡rvores por quadrante.}
 
-\item{\code{quadr}}{NÃºmero de quandrantes com X Ã¡rvores.}
+\item{\code{quadr}}{NÃºmero de quadrantes com \code{arvores} Ã¡rvores.}
 
 }}
 \source{
@@ -19,12 +18,11 @@ Andrade, D. F., Ogliari, P. J. (2010). EstatÃstica para as
     ed.). FlorianÃ³polis, SC. Editora da UFSC. (Tabela 8.7, pÃ¡g. 374)
 }
 \description{
-Estudo sobre o nÃºmero de Ã¡rvores por quadrante da
-    espÃ©cie \emph{Guapira opposita}, realizado com o objetivo de
-    verificar a distribuiÃ§Ã£o espacial dessa espÃ©cie num local de
-    restinga. Foi utilizado um total de 94 quadrantes e contou-se o
-    nÃºmero de quadrantes com zero Ã¡rvores, uma Ã¡rvore, duas Ã¡rvores,
-    e assim por diante.
+Estudo sobre o nÃºmero de Ã¡rvores da espÃ©cie
+    \emph{Guapira opposita} em local de restinga. Estudo realizado
+    com o objetivo de verificar a distribuiÃ§Ã£o das Ã¡rvores em local
+    de restinga. A Ã¡rea avaliada foi dividida em 94 quadrantes de
+    mesma Ã¡rea e contou-se o nÃºmero de Ã¡rvores por quadrante.
 }
 \examples{
 
@@ -38,5 +36,5 @@ barplot(AndradeTb8.7$quadr,
         ylab = "NÃºmero de Quadrandres")
 
 }
-\keyword{DBC}
+\keyword{contingÃªncia*}
 
-- 
GitLab