diff --git a/R/AndradeEg4.11.R b/R/AndradeEg4.11.R
index 893443b545abbdf36cd4ad10086c6d771e0c8432..30b63947bf51321a3e8698ff375350fe68a01f15 100644
--- a/R/AndradeEg4.11.R
+++ b/R/AndradeEg4.11.R
@@ -1,37 +1,39 @@
#' @name AndradeEg4.11
-#' @title Dispersão de Formigas da Espécie \emph{Acromyrmex striatus}
-#' @description Estudo da dispersão de formigas da espécie
-#' \emph{Acromyrmex striatus}, uma espécie de formiga cortadeira,
-#' em dunas da praia da Joaquina, Florianópolis, SC, onde uma área
-#' de 100m x 100m, foi subdividida em 100 quadrantes de 10m x 10m.
-#' Em cada um desses quadrantes foi contado o número de ninhos de
-#' \emph{Acromyrmex striatus}. Maiores detalhes sobre esse estudo
-#' estão em Lopes (2001).
+#' @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 qualitativos, que são os
-#' os números de ninhos por quadrante.}
+#' \item{\code{ninhos}}{Fator de 5 níveis, que representa a quantidade
+#' de ninhos por quadrante.}
#'
-#' \item{\code{quadrantes}}{Número de quadrantes com os respetivos
-#' números de ninhos.}
+#' \item{\code{freq}}{Frequência de quadrantes em que se observou
+#' \code{ninhos} ninhos de formiga.}
#'
#' }
-#' @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. (Exemplo 4.11, pág.
#' 228)
+#' @references [REFERENCIAR O TRABALHO DO LOPES DE 2001]
#' @examples
#'
#' data(AndradeEg4.11)
#' str(AndradeEg4.11)
#'
-#' barplot(AndradeEg4.11$quadr,
+#' # 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
\ No newline at end of file
+NULL
diff --git a/R/AndradeEx4.8.R b/R/AndradeEx4.8.R
index d8326098f08365309ef1116ec9b8fff705ce47b8..eca4ee40e915e6517869d8583470d2324aa2b018 100644
--- a/R/AndradeEx4.8.R
+++ b/R/AndradeEx4.8.R
@@ -1,17 +1,18 @@
#' @name AndradeEx4.8
-#' @title Número de Ninhadas com X Porcos Machos
-#' @description Foram examinadas 2.000 ninhadas de cinco porcos cada
-#' uma, segundo o número de machos.
+#' @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{x}}{Número de machos na ninhada de 5 porcos.}
+#' \item{\code{nmachos}}{Número de machos na ninhada de 5 porcos.}
#'
-#' \item{\code{ninhadas}}{Número de ninhadas com x porcos machos.}
+#' \item{\code{ninhadas}}{Número de ninhadas com \code{nmachos} porcos
+#' machos.}
#'
#' }
-#' @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. (Capítulo 4, Exercício
@@ -21,10 +22,14 @@
#' 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$x,
+#' names.arg = AndradeEx4.8$nmachos,
#' xlab = "Número de Machos na Ninhada",
#' ylab = "Número de Ninhadas")
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb2.38.R b/R/AndradeTb2.38.R
new file mode 100644
index 0000000000000000000000000000000000000000..ef28482d7a021eb07ab51c6a4d58c22fc883d5fd
--- /dev/null
+++ b/R/AndradeTb2.38.R
@@ -0,0 +1,39 @@
+#' @name AndradeTb2.38
+#' @title Salinidade e Temperatura na Região III da Lagoa da Conceição
+#' @description Estudo com o objetivo de verificar se existe correlação
+#' entre a salinidade e a temperatura na região III da Lagoa da
+#' Conceição, Florianópolis, SC.
+#' @format Um \code{data.frame} com 8 observações e 2 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{temp}}{Temperatura da lagoa, em graus Celsius (ºC).}
+#'
+#' \item{\code{salin}}{Salinidade da lagoa, em gramas por litro (g/l).}
+#'
+#' }
+#' @seealso \code{\link{AndradeTb2.46}}
+#' @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. (Tabela 2.38, pág. 142)
+#' @examples
+#'
+#' data(AndradeTb2.38)
+#' str(AndradeTb2.38)
+#'
+#' cor.test(~temp + salin, data = AndradeTb2.38)
+#'
+#' library(lattice)
+#' xyplot(temp ~ salin,
+#' data = AndradeTb2.38,
+#' type = c("p", "r"),
+#' xlab = "Salinidade (g/l)",
+#' ylab = "Temperatura (ºC)")
+#'
+#' # Agrupando os dados de condutividade, provinientes no dataset
+#' # AndradeTb2.46 [VERIFICAR SE É VÁLIDO]
+#' (da <- merge(AndradeTb2.38, AndradeTb2.46))
+#' splom(da, type = c("g", "p", "r"))
+#'
+NULL
diff --git a/R/AndradeTb2.45.R b/R/AndradeTb2.45.R
index c5b05a69e62d845d148eb18c5242daf936fbea2e..8a6dc37795af3846a9fd519005275a08d1b59856 100644
--- a/R/AndradeTb2.45.R
+++ b/R/AndradeTb2.45.R
@@ -1,21 +1,21 @@
#' @name AndradeTb2.45
-#' @title Tamanho de Pecíolos de \emph{Hydrocotille sp}
+#' @title Tamanho dos Pecíolos de Plantas \emph{Hydrocotille sp}
#' @description Em um estudo do comportamento de uma planta típica de
#' dunas, a \emph{Hydrocotille sp}, quanto ao seu desenvolvimento,
-#' mediu-se o tamanho do pecíolo , em cm, em duas áreas: seca e
-#' úmida. Selecionou-se de cada uma dessas áreas amostras aleatórias
-#' de plantas e mediu-se o tamanho dos pacíolos.
+#' mediu-se o tamanho do pecíolo, em centímetros, em duas áreas:
+#' seca e úmida. Selecionou-se de cada uma dessas áreas amostras
+#' aleatórias de plantas e mediu-se o tamanho dos pecíolos.
#' @format Um \code{data.frame} com 69 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{area}}{Fator de 2 níveis qualitativos, que são as áreas
-#' seca e úmida.}
+#' \item{\code{area}}{Fator de 2 níveis que representa a característica
+#' da área onde a planta se desenvolveu.}
#'
#' \item{\code{tamanho}}{Tamanho do pecíolo, em centí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. (Tabela 2.45, pág. 148)
@@ -24,9 +24,22 @@
#' data(AndradeTb2.45)
#' str(AndradeTb2.45)
#'
-#' barplot(xtabs(data = AndradeTb2.45),
-#' legend = TRUE,
-#' xlab = "Tamanho do Pecíolo (em cm)",
-#' ylab = "Frequência")
+#' # Medidas resumo para cada área
+#' with(AndradeTb2.45, tapply(tamanho, area, summary))
#'
-NULL
\ No newline at end of file
+#' # Histogramas sobrepostos
+#' hts <- with(AndradeTb2.45, tapply(tamanho, area, hist, plot = FALSE))
+#' plot(0, 0, type = "n",
+#' xlim = extendrange(AndradeTb2.45$tamanho),
+#' ylim = range(sapply(hts, function(h) range(h$counts))),
+#' xlab = "Tamanho do Pecíolo (em cm)",
+#' ylab = "Frequência")
+#' cols <- c("gray70", "gray30")
+#' lapply(1:length(hts), function(i) {
+#' plot(hts[[i]], add = TRUE, col = cols[i], labels = TRUE,
+#' border = "white")
+#' })
+#' legend("top", title = "Área", legend = names(hts),
+#' fill = cols, bty = "n", border = "white")
+#'
+NULL
diff --git a/R/AndradeTb2.46.R b/R/AndradeTb2.46.R
index 19c060267cc85726b7d78d639c4b7d09749af621..1eca3e7c052dbd4930541a3244fcb06ce6e11f71 100644
--- a/R/AndradeTb2.46.R
+++ b/R/AndradeTb2.46.R
@@ -1,22 +1,19 @@
#' @name AndradeTb2.46
#' @title Condutividade e Salinidade da Lagoa da Conceição
-#' @description Valores de condutividade (mho) e salinidade (g/l) para a
-#' região III da Lagoa da Conceição.
+#' @description Estudo com o objetivo de verificar se existe correlação
+#' entre a condutividade e a salinidade na região III da Lagoa da
+#' Conceição, Florianópolis, SC.
#' @format Um \code{data.frame} com 6 observações e 3 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{estacao}}{Fator de 6 níveis qualitativos, que são as
-#' estações da região III da Lagoa da Conceição.}
+#' \item{\code{cond}}{Condutividade da lagoa, mensurada em \eqn{mho}.}
#'
-#' \item{\code{cond}}{Condutividade da região III da Lagoa da Conceição,
-#' em mho.}
-#'
-#' \item{\code{salin}}{Salinidade da região III da Lagoa da Conceição,
-#' em g/l.}
+#' \item{\code{salin}}{Salinidade da lagoa, em \eqn{g/l}.}
#'
#' }
-#' @keywords AAS
+#' @seealso \code{\link{AndradeTb2.38}}
+#' @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. (Tabela 2.46, pág. 149)
@@ -32,4 +29,9 @@
#' xlab = "Salinidade (g/l)",
#' ylab = "Condutividade (mho)")
#'
-NULL
\ No newline at end of file
+#' # Agrupando os dados de temperaturas, provinientes do dataset
+#' # AndradeTb2.38 [VERIFICAR SE É VÁLIDO]
+#' (da <- merge(AndradeTb2.46, AndradeTb2.38))
+#' splom(da, type = c("g", "p", "r"))
+#'
+NULL
diff --git a/R/AndradeTb2.47.R b/R/AndradeTb2.47.R
index 471471c201ecd1a7d94f0f24de3b372eb79bfdd1..48e7823ab3bba98e6863dcd320a2dc19ca6e2fca 100644
--- a/R/AndradeTb2.47.R
+++ b/R/AndradeTb2.47.R
@@ -1,31 +1,40 @@
#' @name AndradeTb2.47
-#' @title Notas Médias de Aroma de Café Torrado e Moído
-#' @description Um estudo sobre vida de prateleira de café torrado e
-#' moído foi realizado. Os testes sensoriais foram iniciados a
-#' partir do nono dia de estocagem e, depois, a intervalos de mais
-#' ou menos sete dias. Em cada uma das seis sessões de avaliação
-#' sensorial três amostras (pacotes) foram obtidas ao acaso. Seis
-#' provadores treinados avaliaram as três amostras simultaneamente,
-#' julgando o produto quanto ao aroma em uma escala descritiva de 1
-#' a 6 pontos: 6 = excelente; 5 = bom; 4 = aceitável; 3 = pouco
-#' aceitável; 2 = inaceitável e 1 = não bebível.
+#' @title Avaliação do Período de Estocagem no Aroma de Cafés
+#' @description Estudo sobre vida de prateleira de café torrado e
+#' moído. Cafés estocados durante nove dias foram submetidos a
+#' sessões de avaliação, realizadas por uma equipe de provadores
+#' treinados. Ocorreram seis sessões de avaliação com intervalos de
+#' mais ou menos sete dias com início no nono dia de estocagem. [SE
+#' É O MESMO PRODUTO AVALIADO EM DIFERENTES TEMPOS] ***Três produtos
+#' selecionados ao acaso foram avaliados simultaneamente, para cada
+#' período de estocagem, por seis provadores que os avaliaram quanto
+#' ao seu aroma, em uma escala descritiva de 6 pontos (6 =
+#' excelente; 5 = bom; 4 = aceitável; 3 = pouco aceitável; 2 =
+#' inaceitável e 1 = não bebível). Ao final de cada sessão foram
+#' registrados as notas médias das seis avaliações.*** [SE A CADA
+#' SESSÃO SÃO DIFERENTES AMOSTRAS SELECIONADAS] ***Em cada sessão
+#' seis provadores avaliaram simultaneamente três amostras obtidas
+#' ao acaso, quanto ao seu aroma, em uma escala descritiva de 6
+#' pontos (6 = excelente; 5 = bom; 4 = aceitável; 3 = pouco
+#' aceitável; 2 = inaceitável e 1 = não bebível). Ao final de cada
+#' sessão foram registrados as notas médias das seis avaliações.***
#' @format Um \code{data.frame} com 18 observações e 4 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{sessao}}{Fator de 6 níveis qualitativos, que são as
-#' sessões de avaliação.}
-#'
#' \item{\code{tempo}}{Tempo de estocagem, em dias.}
#'
-#' \item{\code{amostra}}{Fator de 3 níveis qualitativos, que são os
-#' diferentes pacotes.}
+#' \item{\code{amostra}}{Fator de 3 níveis que identificam as amostras
+#' (pacotes de café). [SE SÃO DIFERENTES PACOTES SELECIONADOS EM
+#' CADA TEMPO DEVE-SE EXCLUIR ESSA VARIÁVEL.]}
#'
-#' \item{\code{result}}{Resultado médio da equipe de provadores para
-#' cada amostra.}
+#' \item{\code{result}}{Resultado médio das avaliações da equipe de
+#' provadores.}
#'
#' }
-#' @keywords DBC
+#' @keywords
+#' longitudinal[SE-FOR-OS-MESMOS-PRODUTOS-EM-DIFERENTES-TEMPOS]
+#' RS[SE-FOREM-PRODUTOS-DIFERENTES] sensorial
#' @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 2.47, pág. 149)
@@ -35,29 +44,28 @@
#' str(AndradeTb2.47)
#'
#' library(lattice)
-#'
-#' graf1 <- xyplot(result ~ sessao,
-#' groups = amostra,
-#' data = AndradeTb2.47,
-#' type = c("p", "r"),
-#' auto.key = list(title = "Pacote",
-#' cex.title = 1.1,
-#' columns = 3),
-#' xlab = "Seção de Avaliação",
-#' ylab = "Resultado Médio da Equipe de Provadores")
-#'
-#' graf2 <- xyplot(result ~ tempo,
-#' groups = amostra,
-#' data = AndradeTb2.47,
-#' type = c("p", "r"),
-#' auto.key = list(title = "Pacote",
-#' cex.title = 1.1,
-#' columns = 3),
-#' xlab = "Tempo de Estocagem (dias)",
-#' ylab = "Resultado Médio da Equipe de Provadores")
-#'
-#' print(graf1, position = c(0, 0.5, 1, 1), more = TRUE)
-#'
-#' print(graf2, position = c(0, 0, 1, 0.5))
-#'
-NULL
\ No newline at end of file
+#' # [SE FOREM OS MESMOS PRODUTOS]
+#' xyplot(result ~ tempo, groups = amostra,
+#' data = AndradeTb2.47,
+#' type = c("g", "l"),
+#' alpha = 0.7,
+#' auto.key = list(
+#' column = 3,
+#' title = "Amostra", cex.title = 1,
+#' lines = TRUE, points = FALSE
+#' ),
+#' xlab = "Tempo de Estocagem (dias)",
+#' ylab = "Resultado das Avaliações",
+#' panel = function(x, y, ...) {
+#' panel.xyplot(x, y, ...)
+#' panel.xyplot(x, y, type = "a", col = 1, lwd = 2)
+#' })
+##
+#' # [SE FOREM PRODUTOS DIFERENTES]
+#' xyplot(result ~ tempo,
+#' data = AndradeTb2.47,
+#' type = c("g", "p", "r"),
+#' xlab = "Tempo de Estocagem (dias)",
+#' ylab = "Resultado das Avaliações")
+#'
+NULL
diff --git a/R/AndradeTb3.1.R b/R/AndradeTb3.1.R
index ebdd97665ffc06eb3e819dcfb7ffa1638433baf1..65372e0a087179c0253e42b676b42762a0dee348 100644
--- a/R/AndradeTb3.1.R
+++ b/R/AndradeTb3.1.R
@@ -3,23 +3,21 @@
#' @description Censo realizado nos domicílios da comunidade polonesa de
#' Dom Pedro, próximo a Curitiba, para se estudar a mortalidade dos
#' residentes na colônia. O estudo foi realizado sobre três gerações
-#' no final do século XIX.
+#' no final do século XIX, contabilizando 99 mortes.
#' @format Um \code{data.frame} com 12 observações e 3 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{idade}}{Fator de 6 níveis qualitativos, que são as idades
-#' em anos completos, sendo: a = 0 a 1 ano; b = 2 a 4 anos; c = 5 a
-#' 9 anos; d = 10 a 14 anos; e = 15 a 29 anos; g = mais de 29 anos.}
+#' \item{\code{idade}}{Idades dos residentes, em anos completos
+#' categorizada em 6 níveis (0-1 ano; 2-4 anos; 5-9 anos; 10-14
+#' anos; 15-29 anos; e >29 anos).}
#'
-#' \item{\code{sexo}}{Fator de 2 níveis qualitativos, que indica o
-#' gênero masculino ou feminino.}
+#' \item{\code{sexo}}{Sexo dos residentes (masculino ou feminino).}
#'
-#' \item{\code{mort}}{Mortalidade dos residentes na colônia polonesa de
-#' Dom Pedro.}
+#' \item{\code{mort}}{Número de mortes.}
#'
#' }
-#' @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 3.1, pág. 172)
@@ -28,15 +26,19 @@
#' data(AndradeTb3.1)
#' str(AndradeTb3.1)
#'
-#' library(lattice)
+#' (xt <- xtabs(mort ~ ., data = AndradeTb3.1))
+#' mosaicplot(xt, cex.axis = 0.9, las = 2, main = "")
#'
+#' library(lattice)
#' xyplot(mort ~ idade,
#' groups = sexo,
+#' type = c("g", "o"),
#' data = AndradeTb3.1,
#' auto.key = list(title = "Gênero",
#' cex.title = 1.1,
+#' lines = TRUE,
#' columns = 2),
#' xlab = "Idade (anos completos)",
#' ylab = "Mortalidade dos Residentes")
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb3.2.R b/R/AndradeTb3.2.R
index 674888c1ea330cc3f8471c1b068194df1ed1b91f..8ceb70ea34f9338ffd88ef588b79b777c5ca0b9c 100644
--- a/R/AndradeTb3.2.R
+++ b/R/AndradeTb3.2.R
@@ -1,22 +1,22 @@
#' @name AndradeTb3.2
#' @title Fecundidade de Duas Raças Suínas
#' @description Estudo sobre fecundidade de duas raças suínas, onde
-#' foram examinados 28 animais.
+#' foram examinados 14 animais de cada raça. O objetivo do estudo é
+#' verificar a associação entre raça e fecundidade.
#' @format Um \code{data.frame} com 4 observações e 3 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{raca}}{Fator de 2 níveis qualitativos, que são as raças
-#' dos suínos.}
+#' \item{\code{raca}}{Fator de 2 níveis que são as raças dos suínos.}
#'
-#' \item{\code{fecun}}{Fator de 2 níveis qualitativos, onde F =
-#' "Fecundas" e Fc = "Não fecundas".}
+#' \item{\code{fecun}}{Fator de 2 níveis que representa a fecundidade da
+#' raça.}
#'
-#' \item{\code{freq}}{Frequência absoluta (relativa) da fecundidade das
-#' duas raças suínas.}
+#' \item{\code{freq}}{Frequência de animais cujo raça e fecundidade são
+#' dadas por \code{raca} e \code{fecun}, respectivamente.}
#'
#' }
-#' @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 3.2, pág. 193)
@@ -25,11 +25,19 @@
#' data(AndradeTb3.2)
#' str(AndradeTb3.2)
#'
-#' barplot(AndradeTb3.2$freq,
+#' xt <- xtabs(freq ~ ., AndradeTb3.2)
+#' addmargins(xt)
+#' addmargins(prop.table(xt))
+#'
+#' mosaicplot(t(xt), cex.axis = 0.9, main = "",
+#' col = c("darkturquoise", "blue"),
+#' xlab = "Fecundidade",
+#' ylab = "Raça")
+#'
+#' barplot(xt, beside = TRUE,
#' col = c("darkturquoise", "blue"),
-#' legend.text = c("Raça A", "Raça B"),
-#' names.arg = c(rep("F", 2), rep("Fc", 2)),
+#' legend.text = paste("Raça", levels(AndradeTb3.2$raca)),
#' xlab = "Fecundidade",
#' ylab = "Frequência Absoluta")
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/R/AndradeTb4.1.R b/R/AndradeTb4.1.R
index 43549db28a025a61f0bbada8d0b9edd78f31fa64..10286fc0c68f62bc5f428d7af0c94e33d6367157 100644
--- a/R/AndradeTb4.1.R
+++ b/R/AndradeTb4.1.R
@@ -1,18 +1,18 @@
#' @name AndradeTb4.1
-#' @title Número de Casais com X Filhos Homens
-#' @description Foram observados 10.690 casais com 12 filhos cada, e
-#' então contou-se o número de filhos do sexo masculino de cada
-#' casal.
+#' @title Número de Filhos Homens em Casais com 12 Filhos
+#' @description Foram observados 10.690 casais com 12 filhos,
+#' registrando quantos dos filhos são do sexo masculino.
#' @format Um \code{data.frame} com 13 observações e 2 variáveis, em que
#'
#' \describe{
#'
-#' \item{\code{x}}{Número de filhos homens.}
+#' \item{\code{nfilhos}}{Número de filhos homens.}
#'
-#' \item{\code{casais}}{Número de casais com x filhos homens.}
+#' \item{\code{ncasais}}{Número de casais com \code{nfilhos} filhos
+#' homens.}
#'
#' }
-#' @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 4.1, pág. 235)
@@ -21,10 +21,14 @@
#' data(AndradeTb4.1)
#' str(AndradeTb4.1)
#'
-#' barplot(AndradeTb4.1$casais,
+#' # Média de filhos homens por casal
+#' with(AndradeTb4.1, weighted.mean(nfilhos, ncasais/sum(ncasais)))
+#'
+#' # Distribuição de frequências
+#' barplot(AndradeTb4.1$ncasais,
#' col = "darkturquoise",
-#' names.arg = AndradeTb4.1$x,
+#' names.arg = AndradeTb4.1$nfilhos,
#' xlab = "Número de Filhos Homens",
#' ylab = "Número de Casais")
#'
-NULL
\ No newline at end of file
+NULL
diff --git a/data-raw/AndradeEg4.11.txt b/data-raw/AndradeEg4.11.txt
index fa62dc15cb177e62996cf018699f079c92c73f6b..789a2eb2f142b24c3a5620d5d646c3f87b9b805c 100644
--- a/data-raw/AndradeEg4.11.txt
+++ b/data-raw/AndradeEg4.11.txt
@@ -1,4 +1,4 @@
-ninhos quadr
+ninhos freq
0 72
1 21
2 6
diff --git a/data-raw/AndradeEx4.8.txt b/data-raw/AndradeEx4.8.txt
index 4a220a5e07dcfc11b5e1d63125798835cc8d9584..3bd862ad71a1c7f572d47cb19d03f1756c44ce00 100644
--- a/data-raw/AndradeEx4.8.txt
+++ b/data-raw/AndradeEx4.8.txt
@@ -1,4 +1,4 @@
-x ninhadas
+nmachos ninhadas
0 20
1 360
2 700
diff --git a/data-raw/AndradeTb2.45.txt b/data-raw/AndradeTb2.45.txt
index e217b0a57ba6d4846347f567a35cfc283466d223..f058febaad9060e4bb5a262d312fbd457e1f9f46 100644
--- a/data-raw/AndradeTb2.45.txt
+++ b/data-raw/AndradeTb2.45.txt
@@ -1,39 +1,39 @@
area tamanho
-umida 13.8
-umida 14.3
-umida 14.5
-umida 15
-umida 15
-umida 15.5
-umida 15.5
-umida 15.5
-umida 15.6
-umida 15.6
-umida 15.8
-umida 15.8
-umida 15.8
-umida 15.8
-umida 16
-umida 16
-umida 16
-umida 16.1
-umida 16.1
-umida 16.3
-umida 16.3
-umida 16.3
-umida 16.3
-umida 16.5
-umida 16.5
-umida 16.6
-umida 16.6
-umida 16.6
-umida 16.8
-umida 16.8
-umida 16.9
-umida 17
-umida 17
-umida 17.2
-umida 17.4
+úmida 13.8
+úmida 14.3
+úmida 14.5
+úmida 15
+úmida 15
+úmida 15.5
+úmida 15.5
+úmida 15.5
+úmida 15.6
+úmida 15.6
+úmida 15.8
+úmida 15.8
+úmida 15.8
+úmida 15.8
+úmida 16
+úmida 16
+úmida 16
+úmida 16.1
+úmida 16.1
+úmida 16.3
+úmida 16.3
+úmida 16.3
+úmida 16.3
+úmida 16.5
+úmida 16.5
+úmida 16.6
+úmida 16.6
+úmida 16.6
+úmida 16.8
+úmida 16.8
+úmida 16.9
+úmida 17
+úmida 17
+úmida 17.2
+úmida 17.4
seca 7.3
seca 7.6
seca 7.8
diff --git a/data-raw/AndradeTb2.46.txt b/data-raw/AndradeTb2.46.txt
index 2ea4bf1c9255cdcff87f962649611e7dd57b3a30..9bf9b196574edc584a1842f88809928cc07edef9 100644
--- a/data-raw/AndradeTb2.46.txt
+++ b/data-raw/AndradeTb2.46.txt
@@ -1,7 +1,7 @@
-estacao cond salin
-23 19.92 3.85
-24 11.78 2.26
-25 14.11 2.06
-26 16.1 2.89
-27 36.52 9.61
-28 51.46 11.4
+cond salin
+19.92 3.85
+11.78 2.26
+14.11 2.06
+16.1 2.89
+36.52 9.61
+51.46 11.4
diff --git a/data-raw/AndradeTb3.1.txt b/data-raw/AndradeTb3.1.txt
index 2cacc6b917eca76a26fcd42388092443aa3bfb56..d0a13a9e1a9198a07b8e6c20f60b29f305c70f7e 100644
--- a/data-raw/AndradeTb3.1.txt
+++ b/data-raw/AndradeTb3.1.txt
@@ -1,13 +1,13 @@
idade sexo mort
-a m 33
-b m 4
-c m 2
-d m 0
-e m 1
-g m 7
-a f 28
-b f 7
-c f 2
-d f 1
-e f 6
-g f 8
+0-1 ano Masculino 33
+2-4 anos Masculino 4
+5-9 anos Masculino 2
+10-14 anos Masculino 0
+15-29 anos Masculino 1
+>29 anos Masculino 7
+0-1 ano Feminino 28
+2-4 anos Feminino 7
+5-9 anos Feminino 2
+10-14 anos Feminino 1
+15-29 anos Feminino 6
+>29 anos Feminino 8
diff --git a/data-raw/AndradeTb3.2.txt b/data-raw/AndradeTb3.2.txt
index cca28e98e3e4fd6b9daff11ee9af185930b15494..dc76104a3d87e98cdf49013109a97e1c3df3d78a 100644
--- a/data-raw/AndradeTb3.2.txt
+++ b/data-raw/AndradeTb3.2.txt
@@ -1,5 +1,5 @@
raca fecun freq
-A F 12
-B F 8
-A Fc 2
-B Fc 6
+A Fecundas 12
+B Fecundas 8
+A Não fecundas 2
+B Não fecundas 6
diff --git a/data-raw/AndradeTb4.1.txt b/data-raw/AndradeTb4.1.txt
index 0c2238a112975b76e608abcf34fb0ea8005e1798..984daef7523aeae085010049aaed62b83b892340 100644
--- a/data-raw/AndradeTb4.1.txt
+++ b/data-raw/AndradeTb4.1.txt
@@ -1,4 +1,4 @@
-x casais
+nfilhos ncasais
0 5
1 35
2 180
diff --git a/data/AndradeEg4.11.rda b/data/AndradeEg4.11.rda
index 55f3c194a3f8630cd82cd4a5ed2455e28150f357..b3013c790053741ec45f844f80a876e5d418cd34 100644
Binary files a/data/AndradeEg4.11.rda and b/data/AndradeEg4.11.rda differ
diff --git a/data/AndradeEx4.8.rda b/data/AndradeEx4.8.rda
index 8da26e4d48d9a99c948b6df600d801f13db52d6a..04bbff220a7422da0cfce86bfb76be0432a147e4 100644
Binary files a/data/AndradeEx4.8.rda and b/data/AndradeEx4.8.rda differ
diff --git a/data/AndradeTb2.38.rda b/data/AndradeTb2.38.rda
new file mode 100644
index 0000000000000000000000000000000000000000..c190b6ff345ed5fceed151a559091c8350fc0385
Binary files /dev/null and b/data/AndradeTb2.38.rda differ
diff --git a/data/AndradeTb2.45.rda b/data/AndradeTb2.45.rda
index a9be6175f8373cd4a2facca90245f8538c7216ac..f0b5fd159950bc0fc9fb5fa3da8040a465910978 100644
Binary files a/data/AndradeTb2.45.rda and b/data/AndradeTb2.45.rda differ
diff --git a/data/AndradeTb2.46.rda b/data/AndradeTb2.46.rda
index 4a69eb13598bc1cb208e1e6cf909159a61bdc6b4..bba20c805655af6c87b5b28e88f41177b69059ac 100644
Binary files a/data/AndradeTb2.46.rda and b/data/AndradeTb2.46.rda differ
diff --git a/data/AndradeTb3.1.rda b/data/AndradeTb3.1.rda
index a67efd321ab7aef2cb8822621b003b061236f088..05dac539a0c1e12bd0e01387b60b536561a1ca2f 100644
Binary files a/data/AndradeTb3.1.rda and b/data/AndradeTb3.1.rda differ
diff --git a/data/AndradeTb3.2.rda b/data/AndradeTb3.2.rda
index 5e0293c4814b1d48a160cf57555758c927c88d59..4973fca469098949b772a8609d47468eb7c1835d 100644
Binary files a/data/AndradeTb3.2.rda and b/data/AndradeTb3.2.rda differ
diff --git a/data/AndradeTb4.1.rda b/data/AndradeTb4.1.rda
index c7b789d38c2a7fcb7eefa824651222490ea6e853..9475b497364df60d26251c2629fa0c1cc0b4b22c 100644
Binary files a/data/AndradeTb4.1.rda and b/data/AndradeTb4.1.rda differ
diff --git a/man/AndradeEg4.11.Rd b/man/AndradeEg4.11.Rd
index febf1d7bd12d534f04c20d022e22a9ce02520a58..2569572e9183dd7d395bbfd2e56c5af2432b6574 100644
--- a/man/AndradeEg4.11.Rd
+++ b/man/AndradeEg4.11.Rd
@@ -2,16 +2,16 @@
% Please edit documentation in R/AndradeEg4.11.R
\name{AndradeEg4.11}
\alias{AndradeEg4.11}
-\title{Dispersão de Formigas da Espécie \emph{Acromyrmex striatus}}
+\title{Disposição de Ninhos de Formigas (\emph{Acromyrmex striatus})}
\format{Um \code{data.frame} com 5 observações e 2 variáveis, em que
\describe{
-\item{\code{ninhos}}{Fator de 5 níveis qualitativos, que são os
- os números de ninhos por quadrante.}
+\item{\code{ninhos}}{Fator de 5 níveis, que representa a quantidade
+ de ninhos por quadrante.}
-\item{\code{quadrantes}}{Número de quadrantes com os respetivos
- números de ninhos.}
+\item{\code{freq}}{Frequência de quadrantes em que se observou
+ \code{ninhos} ninhos de formiga.}
}}
\source{
@@ -21,25 +21,29 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
228)
}
\description{
-Estudo da dispersão de formigas da espécie
- \emph{Acromyrmex striatus}, uma espécie de formiga cortadeira,
- em dunas da praia da Joaquina, Florianópolis, SC, onde uma área
- de 100m x 100m, foi subdividida em 100 quadrantes de 10m x 10m.
- Em cada um desses quadrantes foi contado o número de ninhos de
- \emph{Acromyrmex striatus}. Maiores detalhes sobre esse estudo
- estão em Lopes (2001).
+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).
}
\examples{
data(AndradeEg4.11)
str(AndradeEg4.11)
-barplot(AndradeEg4.11$quadr,
+# 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")
}
-\keyword{DBC}
+\references{
+[REFERENCIAR O TRABALHO DO LOPES DE 2001]
+}
+\keyword{contingência*}
diff --git a/man/AndradeEx4.8.Rd b/man/AndradeEx4.8.Rd
index 47e73ab86a0fbc45cff4eb2359ad0fdb39a373f9..6aa03bd845bc234ffe17ecd84e2eb5a8a5e4eb1d 100644
--- a/man/AndradeEx4.8.Rd
+++ b/man/AndradeEx4.8.Rd
@@ -2,14 +2,15 @@
% Please edit documentation in R/AndradeEx4.8.R
\name{AndradeEx4.8}
\alias{AndradeEx4.8}
-\title{Número de Ninhadas com X Porcos Machos}
+\title{Número de Machos em Ninhadas de Porcos}
\format{Um \code{data.frame} com 6 observações e 2 variáveis, em que
\describe{
-\item{\code{x}}{Número de machos na ninhada de 5 porcos.}
+\item{\code{nmachos}}{Número de machos na ninhada de 5 porcos.}
-\item{\code{ninhadas}}{Número de ninhadas com x porcos machos.}
+\item{\code{ninhadas}}{Número de ninhadas com \code{nmachos} porcos
+ machos.}
}}
\source{
@@ -19,20 +20,24 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
8, pág. 237)
}
\description{
-Foram examinadas 2.000 ninhadas de cinco porcos cada
- uma, segundo o número de machos.
+Estudo onde foram examinadas 2.000 ninhadas de cinco
+ porcos, contabilizando o número de machos em cada.
}
\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$x,
+ names.arg = AndradeEx4.8$nmachos,
xlab = "Número de Machos na Ninhada",
ylab = "Número de Ninhadas")
}
-\keyword{AAS}
+\keyword{contingência*}
diff --git a/man/AndradeTb2.38.Rd b/man/AndradeTb2.38.Rd
new file mode 100644
index 0000000000000000000000000000000000000000..285b1c7fbef445be052a46ab5e4fbdf97b1e91fb
--- /dev/null
+++ b/man/AndradeTb2.38.Rd
@@ -0,0 +1,49 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/AndradeTb2.38.R
+\name{AndradeTb2.38}
+\alias{AndradeTb2.38}
+\title{Salinidade e Temperatura na Região III da Lagoa da Conceição}
+\format{Um \code{data.frame} com 8 observações e 2 variáveis, em que
+
+\describe{
+
+\item{\code{temp}}{Temperatura da lagoa, em graus Celsius (ºC).}
+
+\item{\code{salin}}{Salinidade da lagoa, em gramas por litro (g/l).}
+
+}}
+\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 2.38, pág. 142)
+}
+\description{
+Estudo com o objetivo de verificar se existe correlação
+ entre a salinidade e a temperatura na região III da Lagoa da
+ Conceição, Florianópolis, SC.
+}
+\examples{
+
+data(AndradeTb2.38)
+str(AndradeTb2.38)
+
+cor.test(~temp + salin, data = AndradeTb2.38)
+
+library(lattice)
+xyplot(temp ~ salin,
+ data = AndradeTb2.38,
+ type = c("p", "r"),
+ xlab = "Salinidade (g/l)",
+ ylab = "Temperatura (ºC)")
+
+# Agrupando os dados de condutividade, provinientes no dataset
+# AndradeTb2.46 [VERIFICAR SE É VÁLIDO]
+(da <- merge(AndradeTb2.38, AndradeTb2.46))
+splom(da, type = c("g", "p", "r"))
+
+}
+\seealso{
+\code{\link{AndradeTb2.46}}
+}
+\keyword{RS}
+
diff --git a/man/AndradeTb2.45.Rd b/man/AndradeTb2.45.Rd
index 0a021516306a5d490a13a1033270ba703b79e7f5..1e3c019f4e77649a194d7cc351b8e52e75c98891 100644
--- a/man/AndradeTb2.45.Rd
+++ b/man/AndradeTb2.45.Rd
@@ -2,13 +2,13 @@
% Please edit documentation in R/AndradeTb2.45.R
\name{AndradeTb2.45}
\alias{AndradeTb2.45}
-\title{Tamanho de Pecíolos de \emph{Hydrocotille sp}}
+\title{Tamanho dos Pecíolos de Plantas \emph{Hydrocotille sp}}
\format{Um \code{data.frame} com 69 observações e 2 variáveis, em que
\describe{
-\item{\code{area}}{Fator de 2 níveis qualitativos, que são as áreas
- seca e úmida.}
+\item{\code{area}}{Fator de 2 níveis que representa a característica
+ da área onde a planta se desenvolveu.}
\item{\code{tamanho}}{Tamanho do pecíolo, em centímetros.}
@@ -21,20 +21,33 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
\description{
Em um estudo do comportamento de uma planta típica de
dunas, a \emph{Hydrocotille sp}, quanto ao seu desenvolvimento,
- mediu-se o tamanho do pecíolo , em cm, em duas áreas: seca e
- úmida. Selecionou-se de cada uma dessas áreas amostras aleatórias
- de plantas e mediu-se o tamanho dos pacíolos.
+ mediu-se o tamanho do pecíolo, em centímetros, em duas áreas:
+ seca e úmida. Selecionou-se de cada uma dessas áreas amostras
+ aleatórias de plantas e mediu-se o tamanho dos pecíolos.
}
\examples{
data(AndradeTb2.45)
str(AndradeTb2.45)
-barplot(xtabs(data = AndradeTb2.45),
- legend = TRUE,
- xlab = "Tamanho do Pecíolo (em cm)",
- ylab = "Frequência")
+# Medidas resumo para cada área
+with(AndradeTb2.45, tapply(tamanho, area, summary))
+
+# Histogramas sobrepostos
+hts <- with(AndradeTb2.45, tapply(tamanho, area, hist, plot = FALSE))
+plot(0, 0, type = "n",
+ xlim = extendrange(AndradeTb2.45$tamanho),
+ ylim = range(sapply(hts, function(h) range(h$counts))),
+ xlab = "Tamanho do Pecíolo (em cm)",
+ ylab = "Frequência")
+cols <- c("gray70", "gray30")
+lapply(1:length(hts), function(i) {
+ plot(hts[[i]], add = TRUE, col = cols[i], labels = TRUE,
+ border = "white")
+})
+legend("top", title = "Área", legend = names(hts),
+ fill = cols, bty = "n", border = "white")
}
-\keyword{AAS}
+\keyword{AASI}
diff --git a/man/AndradeTb2.46.Rd b/man/AndradeTb2.46.Rd
index 9e68c13be6e4ba4d70a4eedce8f678ebb718e1df..0c7e1c144b173220774001e92894bca990676c7d 100644
--- a/man/AndradeTb2.46.Rd
+++ b/man/AndradeTb2.46.Rd
@@ -7,14 +7,9 @@
\describe{
-\item{\code{estacao}}{Fator de 6 níveis qualitativos, que são as
- estações da região III da Lagoa da Conceição.}
+\item{\code{cond}}{Condutividade da lagoa, mensurada em \eqn{mho}.}
-\item{\code{cond}}{Condutividade da região III da Lagoa da Conceição,
- em mho.}
-
-\item{\code{salin}}{Salinidade da região III da Lagoa da Conceição,
- em g/l.}
+\item{\code{salin}}{Salinidade da lagoa, em \eqn{g/l}.}
}}
\source{
@@ -23,8 +18,9 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.46, pág. 149)
}
\description{
-Valores de condutividade (mho) e salinidade (g/l) para a
- região III da Lagoa da Conceição.
+Estudo com o objetivo de verificar se existe correlação
+ entre a condutividade e a salinidade na região III da Lagoa da
+ Conceição, Florianópolis, SC.
}
\examples{
@@ -38,6 +34,14 @@ xyplot(cond ~ salin,
xlab = "Salinidade (g/l)",
ylab = "Condutividade (mho)")
+# Agrupando os dados de temperaturas, provinientes do dataset
+# AndradeTb2.38 [VERIFICAR SE É VÁLIDO]
+(da <- merge(AndradeTb2.46, AndradeTb2.38))
+splom(da, type = c("g", "p", "r"))
+
+}
+\seealso{
+\code{\link{AndradeTb2.38}}
}
-\keyword{AAS}
+\keyword{RS}
diff --git a/man/AndradeTb2.47.Rd b/man/AndradeTb2.47.Rd
index 42bcaba2fd2131f0b89e89a7588c3e69eb02ad4b..57cd13fc379f85c0b3b35904de12ce042ab7d6f9 100644
--- a/man/AndradeTb2.47.Rd
+++ b/man/AndradeTb2.47.Rd
@@ -2,21 +2,19 @@
% Please edit documentation in R/AndradeTb2.47.R
\name{AndradeTb2.47}
\alias{AndradeTb2.47}
-\title{Notas Médias de Aroma de Café Torrado e Moído}
+\title{Avaliação do Período de Estocagem no Aroma de Cafés}
\format{Um \code{data.frame} com 18 observações e 4 variáveis, em que
\describe{
-\item{\code{sessao}}{Fator de 6 níveis qualitativos, que são as
- sessões de avaliação.}
-
\item{\code{tempo}}{Tempo de estocagem, em dias.}
-\item{\code{amostra}}{Fator de 3 níveis qualitativos, que são os
- diferentes pacotes.}
+\item{\code{amostra}}{Fator de 3 níveis que identificam as amostras
+ (pacotes de café). [SE SÃO DIFERENTES PACOTES SELECIONADOS EM
+ CADA TEMPO DEVE-SE EXCLUIR ESSA VARIÁVEL.]}
-\item{\code{result}}{Resultado médio da equipe de provadores para
- cada amostra.}
+\item{\code{result}}{Resultado médio das avaliações da equipe de
+ provadores.}
}}
\source{
@@ -25,15 +23,24 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
ed.). Florianópolis, SC. Editora da UFSC. (Tabela 2.47, pág. 149)
}
\description{
-Um estudo sobre vida de prateleira de café torrado e
- moído foi realizado. Os testes sensoriais foram iniciados a
- partir do nono dia de estocagem e, depois, a intervalos de mais
- ou menos sete dias. Em cada uma das seis sessões de avaliação
- sensorial três amostras (pacotes) foram obtidas ao acaso. Seis
- provadores treinados avaliaram as três amostras simultaneamente,
- julgando o produto quanto ao aroma em uma escala descritiva de 1
- a 6 pontos: 6 = excelente; 5 = bom; 4 = aceitável; 3 = pouco
- aceitável; 2 = inaceitável e 1 = não bebível.
+Estudo sobre vida de prateleira de café torrado e
+ moído. Cafés estocados durante nove dias foram submetidos a
+ sessões de avaliação, realizadas por uma equipe de provadores
+ treinados. Ocorreram seis sessões de avaliação com intervalos de
+ mais ou menos sete dias com início no nono dia de estocagem. [SE
+ É O MESMO PRODUTO AVALIADO EM DIFERENTES TEMPOS] ***Três produtos
+ selecionados ao acaso foram avaliados simultaneamente, para cada
+ período de estocagem, por seis provadores que os avaliaram quanto
+ ao seu aroma, em uma escala descritiva de 6 pontos (6 =
+ excelente; 5 = bom; 4 = aceitável; 3 = pouco aceitável; 2 =
+ inaceitável e 1 = não bebível). Ao final de cada sessão foram
+ registrados as notas médias das seis avaliações.*** [SE A CADA
+ SESSÃO SÃO DIFERENTES AMOSTRAS SELECIONADAS] ***Em cada sessão
+ seis provadores avaliaram simultaneamente três amostras obtidas
+ ao acaso, quanto ao seu aroma, em uma escala descritiva de 6
+ pontos (6 = excelente; 5 = bom; 4 = aceitável; 3 = pouco
+ aceitável; 2 = inaceitável e 1 = não bebível). Ao final de cada
+ sessão foram registrados as notas médias das seis avaliações.***
}
\examples{
@@ -41,31 +48,31 @@ data(AndradeTb2.47)
str(AndradeTb2.47)
library(lattice)
-
-graf1 <- xyplot(result ~ sessao,
- groups = amostra,
- data = AndradeTb2.47,
- type = c("p", "r"),
- auto.key = list(title = "Pacote",
- cex.title = 1.1,
- columns = 3),
- xlab = "Seção de Avaliação",
- ylab = "Resultado Médio da Equipe de Provadores")
-
-graf2 <- xyplot(result ~ tempo,
- groups = amostra,
- data = AndradeTb2.47,
- type = c("p", "r"),
- auto.key = list(title = "Pacote",
- cex.title = 1.1,
- columns = 3),
- xlab = "Tempo de Estocagem (dias)",
- ylab = "Resultado Médio da Equipe de Provadores")
-
-print(graf1, position = c(0, 0.5, 1, 1), more = TRUE)
-
-print(graf2, position = c(0, 0, 1, 0.5))
+# [SE FOREM OS MESMOS PRODUTOS]
+xyplot(result ~ tempo, groups = amostra,
+ data = AndradeTb2.47,
+ type = c("g", "l"),
+ alpha = 0.7,
+ auto.key = list(
+ column = 3,
+ title = "Amostra", cex.title = 1,
+ lines = TRUE, points = FALSE
+ ),
+ xlab = "Tempo de Estocagem (dias)",
+ ylab = "Resultado das Avaliações",
+ panel = function(x, y, ...) {
+ panel.xyplot(x, y, ...)
+ panel.xyplot(x, y, type = "a", col = 1, lwd = 2)
+ })
+# [SE FOREM PRODUTOS DIFERENTES]
+xyplot(result ~ tempo,
+ data = AndradeTb2.47,
+ type = c("g", "p", "r"),
+ xlab = "Tempo de Estocagem (dias)",
+ ylab = "Resultado das Avaliações")
}
-\keyword{DBC}
+\keyword{RS[SE-FOREM-PRODUTOS-DIFERENTES]}
+\keyword{longitudinal[SE-FOR-OS-MESMOS-PRODUTOS-EM-DIFERENTES-TEMPOS]}
+\keyword{sensorial}
diff --git a/man/AndradeTb3.1.Rd b/man/AndradeTb3.1.Rd
index d41d79b93f08a55884b6dd5a316c95d8f4e159f1..a8c21fb276a1c83fe5cf0bba391002053357585e 100644
--- a/man/AndradeTb3.1.Rd
+++ b/man/AndradeTb3.1.Rd
@@ -7,15 +7,13 @@
\describe{
-\item{\code{idade}}{Fator de 6 níveis qualitativos, que são as idades
- em anos completos, sendo: a = 0 a 1 ano; b = 2 a 4 anos; c = 5 a
- 9 anos; d = 10 a 14 anos; e = 15 a 29 anos; g = mais de 29 anos.}
+\item{\code{idade}}{Idades dos residentes, em anos completos
+ categorizada em 6 níveis (0-1 ano; 2-4 anos; 5-9 anos; 10-14
+ anos; 15-29 anos; e >29 anos).}
-\item{\code{sexo}}{Fator de 2 níveis qualitativos, que indica o
- gênero masculino ou feminino.}
+\item{\code{sexo}}{Sexo dos residentes (masculino ou feminino).}
-\item{\code{mort}}{Mortalidade dos residentes na colônia polonesa de
- Dom Pedro.}
+\item{\code{mort}}{Número de mortes.}
}}
\source{
@@ -27,24 +25,28 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
Censo realizado nos domicílios da comunidade polonesa de
Dom Pedro, próximo a Curitiba, para se estudar a mortalidade dos
residentes na colônia. O estudo foi realizado sobre três gerações
- no final do século XIX.
+ no final do século XIX, contabilizando 99 mortes.
}
\examples{
data(AndradeTb3.1)
str(AndradeTb3.1)
-library(lattice)
+(xt <- xtabs(mort ~ ., data = AndradeTb3.1))
+mosaicplot(xt, cex.axis = 0.9, las = 2, main = "")
+library(lattice)
xyplot(mort ~ idade,
groups = sexo,
+ type = c("g", "o"),
data = AndradeTb3.1,
auto.key = list(title = "Gênero",
cex.title = 1.1,
+ lines = TRUE,
columns = 2),
xlab = "Idade (anos completos)",
ylab = "Mortalidade dos Residentes")
}
-\keyword{DBC}
+\keyword{contingência}
diff --git a/man/AndradeTb3.2.Rd b/man/AndradeTb3.2.Rd
index 5791a5bdee7c4ea2588f31288cde542c6f3aba55..d3592738bf329982be92b51e5012cb7610771ab9 100644
--- a/man/AndradeTb3.2.Rd
+++ b/man/AndradeTb3.2.Rd
@@ -7,14 +7,13 @@
\describe{
-\item{\code{raca}}{Fator de 2 níveis qualitativos, que são as raças
- dos suínos.}
+\item{\code{raca}}{Fator de 2 níveis que são as raças dos suínos.}
-\item{\code{fecun}}{Fator de 2 níveis qualitativos, onde F =
- "Fecundas" e Fc = "Não fecundas".}
+\item{\code{fecun}}{Fator de 2 níveis que representa a fecundidade da
+ raça.}
-\item{\code{freq}}{Frequência absoluta (relativa) da fecundidade das
- duas raças suínas.}
+\item{\code{freq}}{Frequência de animais cujo raça e fecundidade são
+ dadas por \code{raca} e \code{fecun}, respectivamente.}
}}
\source{
@@ -24,20 +23,29 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
}
\description{
Estudo sobre fecundidade de duas raças suínas, onde
- foram examinados 28 animais.
+ foram examinados 14 animais de cada raça. O objetivo do estudo é
+ verificar a associação entre raça e fecundidade.
}
\examples{
data(AndradeTb3.2)
str(AndradeTb3.2)
-barplot(AndradeTb3.2$freq,
+xt <- xtabs(freq ~ ., AndradeTb3.2)
+addmargins(xt)
+addmargins(prop.table(xt))
+
+mosaicplot(t(xt), cex.axis = 0.9, main = "",
+ col = c("darkturquoise", "blue"),
+ xlab = "Fecundidade",
+ ylab = "Raça")
+
+barplot(xt, beside = TRUE,
col = c("darkturquoise", "blue"),
- legend.text = c("Raça A", "Raça B"),
- names.arg = c(rep("F", 2), rep("Fc", 2)),
+ legend.text = paste("Raça", levels(AndradeTb3.2$raca)),
xlab = "Fecundidade",
ylab = "Frequência Absoluta")
}
-\keyword{DBC}
+\keyword{contingência}
diff --git a/man/AndradeTb4.1.Rd b/man/AndradeTb4.1.Rd
index 23e012dba73a068a02ca20f565b10bf09379502f..7cc1b22a2f45c507cf04939fc39ce02ee79c5c3d 100644
--- a/man/AndradeTb4.1.Rd
+++ b/man/AndradeTb4.1.Rd
@@ -2,14 +2,15 @@
% Please edit documentation in R/AndradeTb4.1.R
\name{AndradeTb4.1}
\alias{AndradeTb4.1}
-\title{Número de Casais com X Filhos Homens}
+\title{Número de Filhos Homens em Casais com 12 Filhos}
\format{Um \code{data.frame} com 13 observações e 2 variáveis, em que
\describe{
-\item{\code{x}}{Número de filhos homens.}
+\item{\code{nfilhos}}{Número de filhos homens.}
-\item{\code{casais}}{Número de casais com x filhos homens.}
+\item{\code{ncasais}}{Número de casais com \code{nfilhos} filhos
+ homens.}
}}
\source{
@@ -18,21 +19,24 @@ Andrade, D. F., Ogliari, P. J. (2010). Estatística para as
ed.). Florianópolis, SC. Editora da UFSC. (Tabela 4.1, pág. 235)
}
\description{
-Foram observados 10.690 casais com 12 filhos cada, e
- então contou-se o número de filhos do sexo masculino de cada
- casal.
+Foram observados 10.690 casais com 12 filhos,
+ registrando quantos dos filhos são do sexo masculino.
}
\examples{
data(AndradeTb4.1)
str(AndradeTb4.1)
-barplot(AndradeTb4.1$casais,
+# Média de filhos homens por casal
+with(AndradeTb4.1, weighted.mean(nfilhos, ncasais/sum(ncasais)))
+
+# Distribuição de frequências
+barplot(AndradeTb4.1$ncasais,
col = "darkturquoise",
- names.arg = AndradeTb4.1$x,
+ names.arg = AndradeTb4.1$nfilhos,
xlab = "Número de Filhos Homens",
ylab = "Número de Casais")
}
-\keyword{AAS}
+\keyword{contingência*}