.build_package.R

@@ -51,11 +51,16 @@ if (length(list.files("./vignettes"))) {
 #--------------------------------------------
 # Checar conteúdo e organização do pacote.
 
-check(cleanup = FALSE,
+checagem <- check(cleanup = FALSE,
                   manual = TRUE,
                   vignettes = FALSE,
                   check_dir = "../")
 
+if (length(checagem$errors) > 0) {
+    cat(checagem$errors, sep = "\n")
+    stop("Falha ao checar o pacote")
+}
+
 #--------------------------------------------
 # Construir pacote.
 

DESCRIPTION

@@ -44,6 +44,7 @@ Depends:
 Suggests:
     lattice,
     latticeExtra,
+    colorspace,
     reshape,
     ggplot2,
     car,
@@ -54,6 +55,7 @@ Suggests:
     MASS,
     qcc,
     multcomp,
-    vcd
+    vcd,
+    zoo
 VignetteBuilder: knitr
-RoxygenNote: 5.0.1
+RoxygenNote: 6.0.1

R/AndradeEg2.1.R

+#' @name AndradeEg2.1
+#' @title Relação entre Crescimento de Pastagem e Temperatura
+#' @description Estudo sobre o relacionamento entre a taxa de
+#'     crescimento de uma pastagem cultivada no Planalto catarinense e a
+#'     temperatura do solo a 10 cm de profundidade, no período de junho
+#'     a novembro.
+#' @format Um \code{data.frame} com 9 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{temp}}{Temperatura do solo a 10 cm de profundidade, em
+#'     ºC.}
+#'
+#' \item{\code{tc}}{Taxa de crescimento da pastagem, em kg ha\eqn{^-1}
+#'     por dia.}
+#'
+#' }
+#' @keywords RS
+#' @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. (Exemplo 2.1, pág. 60)
+#' @examples
+#'
+#' data(AndradeEg2.1)
+#' str(AndradeEg2.1)
+#'
+#' library(lattice)
+#' xyplot(tc ~ temp,
+#'        data = AndradeEg2.1,
+#'        type = c("p", "r"),
+#'        xlab = "Temperatura do solo (ºC)",
+#'        ylab = expression(Taxa~de~crescimento~(kg~ha^{-1}~dia)))
+#'
+NULL

R/AndradeEg2.17.R

+#' @name AndradeEg2.17
+#' @title Comprimento e Peso de Camarões-Rosa (\emph{Penaeus Paulensis})
+#' @description Comprimento do corpo (\eqn{X_c}) e peso (\eqn{X_p}) de
+#'     Camarões-Rosa fêmeas da espécie \emph{Penaeus Paulensis}, obtidos
+#'     nas despescas dos viveiros do Centro de Ciências Agrárias (CCA)
+#'     da Universidade Federal de Santa Catarina (UFSC).
+#' @format Um \code{data.frame} com 18 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{xc}}{Comprimento do corpo em milímetros.}
+#'
+#' \item{\code{xp}}{Peso em gramas.}
+#'
+#' }
+#' @keywords RS
+#' @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. (Exemplo 2.17, pág.
+#'     128)
+#' @examples
+#'
+#' data(AndradeEg2.17)
+#' str(AndradeEg2.17)
+#'
+#' library(lattice)
+#' xyplot(jitter(xp) ~ xc,
+#'        data = AndradeEg2.17,
+#'        type = c("p", "r"),
+#'        xlab = "Comprimento do Corpo (em mm)",
+#'        ylab = "Peso (em gramas)")
+#'
+NULL

R/AndradeEg4.11.R

+#' @name AndradeEg4.11
+#' @title Disposição de Ninhos de Formigas (\emph{Acromyrmex striatus})
+#' @description Estudo sobre como se dispõem os ninhos de formigas da
+#'     espécie \emph{Acromyrmex striatus}, uma espécie de formiga
+#'     cortadeira, em dunas da praia de Joaquina, Florianópolis, SC. A
+#'     condução do estudo se deu em uma área de 10.000\eqn{m^2} que foi
+#'     subdividida em 100 quadrantes de mesmo tamanho. Contou-se então,
+#'     o número de ninhos em cada um desses quadrantes. Maiores detalhes
+#'     sobre esse estudo estão em Lopes (2001).
+#' @format Um \code{data.frame} com 5 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{ninhos}}{Fator de 5 níveis, que representa a quantidade
+#'     de ninhos por quadrante.}
+#'
+#' \item{\code{freq}}{Frequência de quadrantes em que se observou
+#'     \code{ninhos} ninhos de formiga.}
+#'
+#' }
+#' @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. (Exemplo 4.11, pág.
+#'     228)
+#' @references [REFERENCIAR O TRABALHO DO LOPES DE 2001]
+#' @examples
+#'
+#' data(AndradeEg4.11)
+#' str(AndradeEg4.11)
+#'
+#' # Distribuição de frequências
+#' barplot(AndradeEg4.11$freq,
+#'         col = "darkturquoise",
+#'         names.arg = AndradeEg4.11$ninhos,
+#'         xlab = "Ninhos por Quadrante",
+#'         ylab = "Número de Quadrantes")
+#'
+NULL

R/AndradeEg7.5.R

+#' @name AndradeEg7.5
+#' @title Pesos de Pacotes de Sementes de Milho
+#' @description Amostra de 15 pacotes de sementes de milho, enchidos por
+#'     uma máquina. Supõe-se que os pacotes enchidos por essa máquina
+#'     são normalmente distribuídos com desvio padrão 0,2 Kg.
+#' @format Um \code{vector} numérico com 15 observações.
+#' @keywords AAS
+#' @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. (Exemplo 7.5, pág. 324)
+#' @examples
+#'
+#' data(AndradeEg7.5)
+#' str(AndradeEg7.5)
+#'
+#' hist(AndradeEg7.5,
+#'      labels = TRUE,
+#'      col = "darkturquoise",
+#'      xlab = "Peso do Pacote (em kg)",
+#'      ylab = "Densidade",
+#'      main = NULL,
+#'      border = "white")
+#' rug(AndradeEg7.5, lwd = 2, col = "darkturquoise")
+#'
+#' boxplot(AndradeEg7.5,
+#'         ylab = "Peso do Pacote (em kg)")
+#'
+#' mean(AndradeEg7.5)
+#' sd(AndradeEg7.5)
+#' fivenum(AndradeEg7.5)
+#'
+NULL

R/AndradeEx2.13.R

+#' @name AndradeEx2.13
+#' @title Estudo dos Ovos de \emph{Biomphalaria Taenagophila}
+#' @description Estudo da distribuição do número de ovos inviáveis de
+#'     \emph{Biomphalaria taenagophila} (caramujo) em ambiente
+#'     poluído. Para isso tomou-se uma amostra de 23 caramujos.
+#' @format Um \code{vetor} numérico com 23 observações.
+#' @keywords AAS
+#' @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 2, Exercício
+#'     13, pág. 109)
+#' @examples
+#'
+#' data(AndradeEx2.13)
+#' str(AndradeEx2.13)
+#'
+#' hist(AndradeEx2.13,
+#'      labels = TRUE,
+#'      prob = TRUE,
+#'      main = NULL,
+#'      col = "darkturquoise",
+#'      ylim = c(0, 0.12),
+#'      xlab = "Número de Ovos",
+#'      ylab = "Densidade")
+#'
+#' lines(density(AndradeEx2.13), lwd = 2)
+#'
+NULL

R/AndradeEx4.14.R

+#' @name AndradeEx4.14
+#' @title Plantas Doentes no Cultivo de Mandioca
+#' @description Avaliaram-se 30 parcelas (área da terra de \eqn{20
+#'     m^{2}}) de 27 plantas de mandioca cada uma, contabilizando o
+#'     número de plantas doentes colhidas.
+#' @format Um \code{data.frame} com 5 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{nplantas}}{Número de plantas doentes na parcela.}
+#'
+#' \item{\code{nparc}}{Número de parcelas com \code{nplantas} plantas
+#'     doentes.}
+#'
+#' }
+#' @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. (Capítulo 4, Exercício
+#'     14, pág. 239)
+#' @examples
+#'
+#' data(AndradeEx4.14)
+#' str(AndradeEx4.14)
+#'
+#' # Média do número de plantas doentes por parcela
+#' with(AndradeEx4.14, weighted.mean(nplantas, nparc))
+#'
+#' # Distribuição de frequências
+#' barplot(AndradeEx4.14$nparc,
+#'         col = "darkturquoise",
+#'         names.arg = AndradeEx4.14$nplantas,
+#'         xlab = "Número de Plantas Doentes na Parcela",
+#'         ylab = "Número de Parcelas")
+#'
+NULL

R/AndradeEx4.8.R

+#' @name AndradeEx4.8
+#' @title Número de Machos em Ninhadas de Porcos
+#' @description Estudo onde foram examinadas 2.000 ninhadas de cinco
+#'     porcos, contabilizando o número de machos em cada.
+#' @format Um \code{data.frame} com 6 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{nmachos}}{Número de machos na ninhada de 5 porcos.}
+#'
+#' \item{\code{ninhadas}}{Número de ninhadas com \code{nmachos} porcos
+#'     machos.}
+#'
+#' }
+#' @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. (Capítulo 4, Exercício
+#'     8, pág. 237)
+#' @examples
+#'
+#' data(AndradeEx4.8)
+#' str(AndradeEx4.8)
+#'
+#' # Média de porcos machos homens por ninhada
+#' with(AndradeEx4.8, weighted.mean(nmachos, ninhadas/sum(ninhadas)))
+#'
+#' # Distribuição de frequências
+#' barplot(AndradeEx4.8$ninhadas,
+#'         col = "darkturquoise",
+#'         names.arg = AndradeEx4.8$nmachos,
+#'         xlab = "Número de Machos na Ninhada",
+#'         ylab = "Número de Ninhadas")
+#'
+NULL

R/AndradeEx4.9.R

+#' @name AndradeEx4.9
+#' @title Ocorrências de Plantas \emph{Primula Sinensis} Selvagens
+#' @description Uma certa região florestal foi dividida em 109 parcelas
+#'     de mesma área (quadrados) para se estudar a distribuição das
+#'     plantas \emph{Primula sinensis} selvagens na região. A priori,
+#'     supõe-se que plantas dessa espécie distribuem-se aleatoriamente.
+#' @format Um \code{data.frame} com 10 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{nplantas}}{Número de plantas na parcela.}
+#'
+#' \item{\code{nparc}}{Número de parcelas com \code{nplantas} plantas.}
+#'
+#' }
+#' @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. (Capítulo 4, Exercício
+#'     9, pág. 238)
+#' @examples
+#'
+#' data(AndradeEx4.9)
+#' str(AndradeEx4.9)
+#'
+#' #' # Média do número de plantas doentes por parcela
+#' with(AndradeEx4.9, weighted.mean(nplantas, nparc))
+#'
+#' # Distribuição de frequências
+#' txt <- barplot(AndradeEx4.9$nparc,
+#'                col = "darkturquoise",
+#'                names.arg = AndradeEx4.9$nplantas,
+#'                xlab = "Número de Plantas no Quadrado",
+#'                ylab = "Número de Quadrados")
+#' text(x = txt, y = AndradeEx4.9$nparc)
+#'
+NULL

R/AndradeEx7.13.R

+#' @name AndradeEx7.13
+#' @title Comparação de Alturas de Duas Espécies de Árvores
+#' @description Estudo realizado por um agrônomo sobre o desenvolvimento
+#'     de duas espécies de árvores, a Bracatinga e a Canafístula. O
+#'     desenvolvimento foi mensurado com base na altura das árvores.
+#' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{arvore}}{Espécies da árvore.}
+#'
+#' \item{\code{altura}}{Altura da árvore, em metros.}
+#'
+#' }
+#' @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 7, Exercício
+#'     13, pág. 344)
+#' @examples
+#'
+#' data(AndradeEx7.13)
+#' str(AndradeEx7.13)
+#'
+#' with(AndradeEx7.13, by(altura, arvore, summary))
+#'
+#' library(lattice)
+#' densityplot(~altura, groups = arvore,
+#'             data = AndradeEx7.13,
+#'             auto.key = list(
+#'                 corner = c(0.9, 0.9),
+#'                 title = "Espécie da árvore",
+#'                 cex.title = 1
+#'             ))
+#'
+NULL

R/AndradeEx7.15.R

+#' @name AndradeEx7.15
+#' @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
+#'     ciências agrárias e biológicas com noções de experimentação (2nd
+#'     ed.). Florianópolis, SC. Editora da UFSC. (Capítulo 7, Exercício
+#'     15, pág. 346)
+#' @examples
+#'
+#' data(AndradeEx7.15)
+#' str(AndradeEx7.15)
+#'
+#' hist(AndradeEx7.15,
+#'      prob = TRUE,
+#'      labels = TRUE,
+#'      main = NULL,
+#'      ylim = c(0, 0.07),
+#'      col = "darkturquoise",
+#'      xlab = "DAP (cm)",
+#'      ylab = "Densidade")
+#' lines(density(AndradeEx7.15), lwd = 2)
+#'
+NULL

R/AndradeEx7.3.R

+#' @name AndradeEx7.3
+#' @title Diâmetros de Árvores de Eucalipto
+#' @description Estudo em que sortearam-se 30 árvores, de um povoamento
+#'     de eucaliptos e mensuraram-se seus diâmetros à altura do peito,
+#'     com a finalidade de se estimar o diâmetro médio do povoamento.
+#' @format Um \code{vector} numérico com 30 observações.
+#' @keywords AAS
+#' @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 7, Exercício
+#'     3, pág. 342)
+#' @examples
+#'
+#' data(AndradeEx7.3)
+#' str(AndradeEx7.3)
+#'
+#' hist(AndradeEx7.3,
+#'      prob = TRUE,
+#'      col = "darkturquoise",
+#'      xlab = "Diâmetro (em cm)",
+#'      ylab = "Densidade",
+#'      main = NULL,
+#'      ylim = c(0, 0.055))
+#'
+#' lines(density(AndradeEx7.3), lwd = 2)
+#' rug(AndradeEx7.3, lwd = 2)
+#'
+#' boxplot(AndradeEx7.3,
+#'         ylab = "Diâmetro (em cm)")
+#'
+#' mean(AndradeEx7.3)
+#' sd(AndradeEx7.3)
+#' fivenum(AndradeEx7.3)
+#'
+NULL

R/AndradeEx8.11.R

+#' @name AndradeEx8.11
+#' @title Comparação entre o Peso Vivo e o Peso Jejum do Gado Crioulo
+#'     Lageano
+#' @description Para comparar o peso vivo e o peso jejum do gado crioulo
+#'     lageano, um pesquisador selecionou aleatoriamente uma amostra de
+#'     15 animais e anotou seus pesos.
+#' @format Um \code{data.frame} com 30 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{animal}}{Fator de 15 níveis qualitativos, que são
+#'     os animais.}
+#'
+#' \item{\code{estado}}{Fator de 2 níveis qualitativos, que indica
+#'     o estado (vivo ou jejum) em que o animal foi pesado.}
+#'
+#' \item{\code{peso}}{Peso do animais, em kg.}
+#'
+#' }
+#' @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
+#'     11, pág. 409)
+#' @examples
+#'
+#' 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(animal ~ peso,
+#'         groups = estado,
+#'         auto.key = list(title = "Estado",
+#'                         cex.title = 1.1,
+#'                         columns = 2),
+#'         data = AndradeEx8.11,
+#'         xlab = "Peso (kg)",
+#'         ylab = "Animal")
+#'
+#' # Distribuição das diferenças
+#' densityplot(~jejum - vivo, data = da)
+#'
+
+NULL

R/AndradeEx8.13.R

+#' @name AndradeEx8.13
+#' @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 desenvolvimento 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}}{Espécie da árvore, Bracatinga ou Canafístula.}
+#'
+#' \item{\code{altura}}{Altura da árvore, em metros.}
+#'
+#' }
+#' @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
+#'     13, pág. 410)
+#' @examples
+#'
+#' data(AndradeEx8.13)
+#' str(AndradeEx8.13)
+#'
+#' 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)
+#'             ))
+#'
+NULL

R/AndradeEx8.17.R

+#' @name AndradeEx8.17
+#' @title Comportamento da espécie \emph{Mandevilla velutina}
+#' @description 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 em delineamento inteiramente
+#'     casualizado com 20 repetições (20 explantes para o cerrado de 20
+#'     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}}{Região da plantação (Cerrado ou Restinga).}
+#'
+#' \item{\code{altura}}{Altura, em centímetros, dos explantes de
+#'     \emph{Mandevilla} cultivadas \emph{in vitro} durante 45 dias.}
+#'
+#' }
+#' @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
+#'     17, pág. 412)
+#' @examples
+#'
+#' data(AndradeEx8.17)
+#' str(AndradeEx8.17)
+#'
+#' 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)
+#'             ))
+#'
+NULL

R/AndradeEx8.23.R

+#' @name AndradeEx8.23
+#' @title Influência da Incidência Solar Sobre a Produção de Espiguetas
+#' @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.
+#'     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}}{Indica se o ambiente é iluminado ou sombrio.}
+#'
+#' \item{\code{espiguetas}}{Contagem de espiguetas nas gramíneas da
+#'     espécie \emph{Paspalum notatum} Flügge.}
+#'
+#' }
+#' @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
+#'     23, pág. 414)
+#' @examples
+#'
+#' data(AndradeEx8.23)
+#' str(AndradeEx8.23)
+#'
+#' 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)
+#'             ))
+#'
+NULL

R/AndradeEx8.9.R

+#' @name AndradeEx8.9
+#' @title Estudo da Quantidade de Proteínas após Operação
+#' @description Estudo sobre a influência de uma determinada operação,
+#'     realizada em portadores de esquistossomose mansônica, na
+#'     quantidade de proteínas totais no plasma. No estudo mensurou-se a
+#'     quantidade de proteínas antes e depois da operação.
+#' @format Um \code{data.frame} com 34 observações e 3 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{paciente}}{Indica os pacientes sujeitos a operação.}
+#'
+#' \item{\code{periodo}}{Período em que foi mensurada a quantidade de
+#'     proteínas totais no plasma (antes ou depois da operação).}
+#'
+#' \item{\code{prot}}{Quantidade de proteínas totais no plasma.}
+#'
+#' }
+#' @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
+#'     9, pág. 408)
+#' @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(prot ~ paciente,
+#'         groups = periodo,
+#'         auto.key = list(title = "Período",
+#'                         cex.title = 1.1,
+#'                         columns = 2),
+#'         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)
+#'
+NULL

R/AndradePg90.R

+#' @name AndradePg90
+#' @title Pesos de Bezerros Recém-Nascidos (Charoleza e Gir)
+#' @description Pesos ao nascer de 24 bezerros machos das raças
+#'     Charoleza e Gir.
+#' @format Um \code{data.frame} com 24 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{raca}}{Fator de 2 níveis que são as raças dos bezerros
+#'     (Charoleza e Gir).}
+#'
+#' \item{\code{peso}}{Peso do bezerro macho recém nascido, em kg.}
+#'
+#' }
+#' @seealso \code{\link{AndradeTb2.32}}
+#' @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. (Página 90)
+#' @examples
+#'
+#' data(AndradePg90)
+#' str(AndradePg90)
+#'
+#' library(lattice)
+#' densityplot(~peso, groups = raca,
+#'             data = AndradePg90,
+#'             auto.key = list(
+#'                 corner = c(0.1, 0.9),
+#'                 title = "Raça do bezerro",
+#'                 cex.title = 1
+#'             ))
+#'
+#' # Agrupando dados de AndradeTb2.32, um estudo similar.
+#' # help(AndradeTb2.32)
+#'
+#' da <- rbind(AndradePg90, AndradeTb2.32)
+#' bwplot(peso ~ raca,
+#'        data = da,
+#'        xlab = "Raça do Bezerro",
+#'        ylab = "Peso (em kg)")
+#'
+NULL

R/AndradePg92.R

+#' @name AndradePg92
+#' @title Ganho de Peso em Suínos
+#' @description Para comparar o ganho médio de peso em suínos submetidos
+#'     a duas diferentes dietas, foi conduzido um experimento com 20
+#'     porcos. Dez porcos foram submetidos a cada uma das dietas e
+#'     mensurou-se o ganho médio de peso por dia.
+#' @format Um \code{data.frame} com 20 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{dieta}}{Fator de 2 níveis qualitativos que são as dietas
+#'     submetidas aos porcos.}
+#'
+#' \item{\code{peso}}{Ganho médio de peso por dia, em gramas.}
+#'
+#' }
+#' @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. (Página 92)
+#' @examples
+#'
+#' data(AndradePg92)
+#' str(AndradePg92)
+#'
+#' library(lattice)
+#' bwplot(peso ~ dieta,
+#'        data = AndradePg92,
+#'        xlab = "Dieta",
+#'        ylab = "Ganho Médio de Peso por Dia (em gramas)")
+#'
+#' library(latticeExtra)
+#' ecdfplot(~peso, groups = dieta, data = AndradePg92,
+#'          grid = TRUE,
+#'          auto.key = list(
+#'              corner = c(0.9, 0.1),
+#'              title = "Dieta",
+#'              cex.title = 1,
+#'              lwd = 2
+#'          ))
+#'
+NULL