Merge branch 'jhenifer212' into devel

Encaminha jhenifer212 para merge.

R/PaulinoEx9.29.R

+#' @name PaulinoEx9.29
+#' @title Avaliação de Políciais Militares
+#' @description Em um estudo sobre a avaliação de políciais militares
+#'     brancos por soldados americanos negros na Segunda Guerra Mundial,
+#'     a resposta de cada soldado foi categorizada nos níveis 1 (quase
+#'     sempre imparcial), 2 (parcial e imparcial em proporções iguais) e
+#'     3 (quase sempre parcial)
+#' @format Um \code{data.frame} com 12 observações e 4 variáveis, em que
+#' 
+#' \describe{
+#'
+#' \item{\code{orig}}{Região de origem (Norte ou Sul).}
+#'
+#' \item{\code{unid}}{Região da unidade (Norte ou Sul).}
+#'
+#' \item{\code{condu}}{Avaliação da conduta. (1, 2, ou 3)}
+#' 
+#' \item{\code{freq}}{Frequências observadas.}
+#'
+#' }
+#' @keywords TC multinomial
+#' @source PAULINO; SINGER (2006), Exercício 9.29, pág. 343.
+#' @examples
+#' 
+#' data(PaulinoEx9.29)
+#'
+#' str(PaulinoEx9.29)
+#'
+#' xt <- xtabs(freq ~ ., data = PaulinoEx9.29)
+#' ftable(xt)
+#'
+#' library(lattice)
+#'
+#' barchart(xt,
+#'          horizontal = FALSE,
+#'          beside = FALSE,
+#'          stack = FALSE,
+#'          auto.key = list(space = "top", columns = 3, cex.title = 1,
+#'                          rectangles = TRUE, points = FALSE,
+#'                          title = "Avaliação da conduta"),
+#'          xlab = "Região de origem",
+#'          ylab = "Frequência")
+#'
+NULL
\ No newline at end of file

R/PaulinoEx9.30.R

+#' @name PaulinoEx9.30
+#' @title Avaliação de Políciais Militares
+#' @description Em um estudo sobre a avaliação de políciais militares
+#'     brancos por soldados americanos negros na Segunda Guerra Mundial,
+#'     os soldados do exército foram classificados segundo o nível
+#'     educacional, a atitude face à separação racial, a região de
+#'     naturalidade e a preferência por missões de combate.
+#' @format Um \code{data.frame} com 24 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{educ}}{Nível educacional (só grade school, alguma high
+#'     school, high school completa).}
+#'
+#' \item{\code{sep}}{Atitude perante separação racial (não contra ou
+#'     contra).}
+#'
+#' \item{\code{ntur}}{Região de naturalidade (sul, norte).}
+#' 
+#' \item{\code{missao}}{Preferência por missão de combate (sim ou não).}
+#' 
+#' \item{\code{freq}}{Frequências observadas.}
+#'
+#' }
+#' @keywords TC dicotômica
+#' @source PAULINO; SINGER (2006), Exercício 9.30, pág. 344.
+#' @examples
+#' 
+#' data(PaulinoEx9.30)
+#'
+#' str(PaulinoEx9.30)
+#'
+#' xt <- xtabs(freq ~ ., data = PaulinoEx9.30)
+#' ftable(xt)
+#'
+#' library(lattice)
+#' library(latticeExtra)
+#'
+#' useOuterStrips(
+#'     barchart(freq ~ educ | sep + natur, groups = missao,
+#'              horizontal = FALSE,
+#'              data = PaulinoEx9.30,
+#'              auto.key = list(space = "top", columns = 2,
+#'                              cex.title = 1, rectangles = TRUE,
+#'                              points = FALSE,
+#'                              title = "Preferência por missão"),
+#'              xlab = "Nível educacional",
+#'              ylab = "Frequência")
+#' )
+#'
+NULL
\ No newline at end of file

R/PaulinoEx9.31.R

+#' @name PaulinoEx9.31
+#' @title Efeito de Dois Agentes Sexualmente Transmissíveis em Dois
+#'     Grupos de Mulheres
+#' @description Estudo envolvendo um grupo de mulheres com displasia
+#'     historicamente confirmada (casos) e outro grupo de mulheres
+#'     com ausência da mesma (controles). Cada uma das mulheres
+#'     foi então analisada em termos da exposição a cada um dos agentes
+#'     sexualmente transmissíveis (o vírus tipo 2 da herpes simples e a
+#'     \emph{Clamídia trachomatis}, na etiologia da displasia cervical),
+#'     categorizados em dois níveis (1 para uma maior prevalência de
+#'     anticorpos e 2 para uma menor prevalência), analisando os
+#'     possíveis efeitos desses agentes nessas mulheres.
+#' @format Um \code{data.frame} com 24 observações e 5 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{parc}}{Fator sócio-comportamental definido pelo número
+#'     total de parceiros sexuais, categorizado em 3 níveis (1-3, 4-10 e
+#'     > 10).}
+#'
+#' \item{\code{herpes}}{Vírus do tipo 2 do herpes simples (1 para maior
+#'     prevalência e 2 para menor).}
+#'
+#' \item{\code{calmid}}{Vírus do tipo \emph{Clamídia trachomatis} (1
+#'     para maior prevalência e 2 para menor).}
+#' 
+#' \item{\code{grupo}}{Classificação das mulheres (casos ou
+#'     controles).}
+#' 
+#' \item{\code{freq}}{Frequências observadas.}
+#'
+#' }
+#' @keywords retrospetivo
+#' @source PAULINO; SINGER (2006), Exercício 9.31, pág. 345.
+#' @examples
+#' 
+#' data(PaulinoEx9.31)
+#'
+#' str(PaulinoEx9.31)
+#'
+#' xt <- xtabs(freq ~., PaulinoEx9.31)
+#' ftable(xt)
+#' 
+#' library(vcd)
+#' doubledecker(xt)
+#'
+NULL
\ No newline at end of file

R/PaulinoTb11.10.R

+#' @name PaulinoTb11.10
+#' @title Número de Animais Mortos por Contaminação do Petróleo
+#' @description Dados de um estudo cuja finalidade foi avaliar o efeito da
+#'     contaminação de um estuário por derramamento de petróleo na fauna
+#'     local. Cada animal foi submetido a um tratamento obtido da
+#'     combinação dos níveis contaminação por petróleo (sim
+#'     ou controle) e percentual de salinidade de aclimatação. Os animais foram
+#'     observados por 72 horas e o número de sobreviventes foi
+#'     registrado a cada 12 horas.
+#' @format Um \code{data.frame} com 48 observações e 4 variáveis, em que
+#'
+#' \describe{
+#'
+#' \item{\code{grupo}}{grupo ao qual pertnce o animal (petróleo ou
+#'     controle).}
+#'
+#' \item{\code{salin}}{Salinidade de aclimatação (0.8\%, 1.4\%, 2.4\%,
+#'     3.4\%).}
+#'
+#' \item{\code{tempo}}{Tempo de exposição dos animais, em horas.}
+#' 
+#' \item{\code{animais}}{Número de animais sobreviventes.}
+#'
+#' }
+#' @keywords TC
+#' @source PAULINO; SINGER (2006), Tabela 11.10, pág. 400.
+#' @examples
+#' 
+#' data(PaulinoTb11.10)
+#'
+#' str(PaulinoTb11.10)
+#'
+#' xt <- xtabs(animais ~ ., data = PaulinoTb11.10)
+#' ftable(xt)
+#' 
+#' library(lattice)
+#' 
+#' barchart(animais ~ factor(tempo) | factor(salin), groups = grupo,
+#'          horizontal = FALSE,
+#'          data = PaulinoTb11.10,
+#'          auto.key = list(space = "top", columns = 2,
+#'                          cex.title = 1, rectangles = TRUE,
+#'                          points = FALSE,
+#'                          title = "Grupo de animais"),
+#'          xlab = "Tempo de exposição",
+#'          strip = strip.custom(
+#'              strip.names = TRUE,
+#'              var.name = "Salinidade"),
+#'          ylab = "Frequência")
+#'
+NULL
\ No newline at end of file

R/PimentelEg5.2.R

 #' @name PimentelEg5.2
 #' @title Competição de Variedades de Batatinha
-#' @description Experimento de competição de variedades de batatinha
+#' @description Dados de um experimento de competição de variedades de batatinha
 #'     feito pelo Engenheiro Agrônomo Oscar A. Garay em Balcare,
 #'     Argentina. O experimento foi realizado em blocos casualizados.
 #' @format Um \code{data.frame} com 32 observações e 3 variáveis, em que
 #'
 #' \describe{
 #'
-#' \item{\code{bloco}}{Fator de 4 níveis qualitativos, usado para
-#'     controle local.}
+#' \item{\code{bloco}}{Fator com 4 níveis.}
 #'
-#' \item{\code{variedade}}{Fator de 8 níveis qualitativos que são as
+#' \item{\code{variedade}}{Fator de 8 correspondente às
 #'     variedades de batatinha.}
 #'
 #' \item{producao}{Produção de batatinha, em ton ha\eqn{^{-1}}.}
@@ -30,7 +29,7 @@
 #' xyplot(producao ~ variedade,
 #'        groups = bloco,
 #'        data = PimentelEg5.2,
-#'        type = "o",
+#'        type = "p",
 #'        ylab = expression(Produção ~ (t ~ ha^{-1})),
 #'        xlab = "Variedades de batatinha")
 #'

data-raw/PaulinoEx9.29.txt

+orig	unid	condu	freq
+norte	norte	1	118
+norte	norte	2	207
+norte	norte	3	134
+norte	sul	1	181
+norte	sul	2	514
+norte	sul	3	542
+sul	norte	1	253
+sul	norte	2	313
+sul	norte	3	200
+sul	sul	1	653
+sul	sul	2	1006
+sul	sul	3	760

data-raw/PaulinoEx9.30.txt

+educ	sep	natur	missao	freq
+grade school	nao contra	sul	sim	2051
+grade school	nao contra	sul	nao	20738
+grade school	nao contra	norte	sim	518
+grade school	nao contra	norte	nao	3182
+grade school	contra	sul	sim	1050
+grade school	contra	sul	nao	7027
+grade school	contra	norte	sim	600
+grade school	contra	norte	nao	2558
+al. high school	nao contra	sul	sim	382
+al. high school	nao contra	sul	nao	2165
+al. high school	nao contra	norte	sim	320
+al. high school	nao contra	norte	nao	960
+al. high school	contra	sul	sim	349
+al. high school	contra	sul	nao	1832
+al. high school	contra	norte	sim	489
+al. high school	contra	norte	nao	1141
+high school com.	nao contra	sul	sim	351
+high school com.	nao contra	sul	nao	1714
+high school com.	nao contra	norte	sim	245
+high school com.	nao contra	norte	nao	630
+high school com.	contra	sul	sim	478
+high school com.	contra	sul	nao	1798
+high school com.	contra	norte	sim	609
+high school com.	contra	norte	nao	1256

data-raw/PaulinoEx9.31.txt

+parc	herpes	clamid	grupo	freq
+1-3	1	1	casos	56
+1-3	1	1	controles	42
+1-3	1	2	casos	14
+1-3	1	2	controles	28
+1-3	2	1	casos	54
+1-3	2	1	controles	78
+1-3	2	2	casos	34
+1-3	2	2	controles	83
+4-10	1	1	casos	47
+4-10	1	1	controles	57
+4-10	1	2	casos	8
+4-10	1	2	controles	29
+4-10	2	1	casos	46
+4-10	2	1	controles	74
+4-10	2	2	casos	18
+4-10	2	2	controles	48
+> 10	1	1	casos	43
+> 10	1	1	controles	80
+> 10	1	2	casos	4
+> 10	1	2	controles	16
+> 10	2	1	casos	44
+> 10	2	1	controles	56
+> 10	2	2	casos	12
+> 10	2	2	controles	23

data-raw/PaulinoTb11.10.txt

+grupo	salin	tempo	animais
+petroleo	0.8	12	30
+petroleo	0.8	24	26
+petroleo	0.8	36	20
+petroleo	0.8	48	17
+petroleo	0.8	60	16
+petroleo	0.8	72	15
+petroleo	1.4	12	32
+petroleo	1.4	24	31
+petroleo	1.4	36	31
+petroleo	1.4	48	29
+petroleo	1.4	60	27
+petroleo	1.4	72	22
+petroleo	2.4	12	32
+petroleo	2.4	24	30
+petroleo	2.4	36	29
+petroleo	2.4	48	26
+petroleo	2.4	60	26
+petroleo	2.4	72	21
+petroleo	3.4	12	32
+petroleo	3.4	24	30
+petroleo	3.4	36	29
+petroleo	3.4	48	27
+petroleo	3.4	60	27
+petroleo	3.4	72	21
+controle	0.8	12	31
+controle	0.8	24	27
+controle	0.8	36	25
+controle	0.8	48	19
+controle	0.8	60	18
+controle	0.8	72	18
+controle	1.4	12	32
+controle	1.4	24	31
+controle	1.4	36	31
+controle	1.4	48	31
+controle	1.4	60	31
+controle	1.4	72	30
+controle	2.4	12	32
+controle	2.4	24	31
+controle	2.4	36	31
+controle	2.4	48	28
+controle	2.4	60	27
+controle	2.4	72	26
+controle	3.4	12	32
+controle	3.4	24	32
+controle	3.4	36	30
+controle	3.4	48	30
+controle	3.4	60	29
+controle	3.4	72	28

man/PaulinoEx9.29.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx9.29.R
+\name{PaulinoEx9.29}
+\alias{PaulinoEx9.29}
+\title{Avaliação de Políciais Militares}
+\format{Um \code{data.frame} com 12 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{orig}}{Região de origem (Norte ou Sul).}
+
+\item{\code{unid}}{Região da unidade (Norte ou Sul).}
+
+\item{\code{condu}}{Avaliação da conduta. (1, 2, ou 3)}
+
+\item{\code{freq}}{Frequências observadas.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Exercício 9.29, pág. 343.
+}
+\description{
+Em um estudo sobre a avaliação de políciais militares
+    brancos por soldados americanos negros na Segunda Guerra Mundial,
+    a resposta de cada soldado foi categorizada nos níveis 1 (quase
+    sempre imparcial), 2 (parcial e imparcial em proporções iguais) e
+    3 (quase sempre parcial)
+}
+\examples{
+
+data(PaulinoEx9.29)
+
+str(PaulinoEx9.29)
+
+xt <- xtabs(freq ~ ., data = PaulinoEx9.29)
+ftable(xt)
+
+library(lattice)
+
+barchart(xt,
+         horizontal = FALSE,
+         beside = FALSE,
+         stack = FALSE,
+         auto.key = list(space = "top", columns = 3, cex.title = 1,
+                         rectangles = TRUE, points = FALSE,
+                         title = "Avaliação da conduta"),
+         xlab = "Região de origem",
+         ylab = "Frequência")
+
+}
+\keyword{TC}
+\keyword{multinomial}
+

man/PaulinoEx9.30.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx9.30.R
+\name{PaulinoEx9.30}
+\alias{PaulinoEx9.30}
+\title{Avaliação de Políciais Militares}
+\format{Um \code{data.frame} com 24 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{educ}}{Nível educacional (só grade school, alguma high
+    school, high school completa).}
+
+\item{\code{sep}}{Atitude perante separação racial (não contra ou
+    contra).}
+
+\item{\code{ntur}}{Região de naturalidade (sul, norte).}
+
+\item{\code{missao}}{Preferência por missão de combate (sim ou não).}
+
+\item{\code{freq}}{Frequências observadas.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Exercício 9.30, pág. 344.
+}
+\description{
+Em um estudo sobre a avaliação de políciais militares
+    brancos por soldados americanos negros na Segunda Guerra Mundial,
+    os soldados do exército foram classificados segundo o nível
+    educacional, a atitude face à separação racial, a região de
+    naturalidade e a preferência oir missões de combate.
+}
+\examples{
+
+data(PaulinoEx9.30)
+
+str(PaulinoEx9.30)
+
+xt <- xtabs(freq ~ ., data = PaulinoEx9.30)
+ftable(xt)
+
+library(lattice)
+library(latticeExtra)
+
+useOuterStrips(
+    barchart(freq ~ educ | sep + natur, groups = missao,
+             horizontal = FALSE,
+             data = PaulinoEx9.30,
+             auto.key = list(space = "top", columns = 2,
+                             cex.title = 1, rectangles = TRUE,
+                             points = FALSE,
+                             title = "Preferência por missão"),
+             xlab = "Nível educacional",
+             ylab = "Frequência")
+)
+
+}
+\keyword{TC}
+\keyword{dicotomica}
+

man/PaulinoEx9.31.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoEx9.31.R
+\name{PaulinoEx9.31}
+\alias{PaulinoEx9.31}
+\title{Efeito de Dois Agentes Sexualmente Transmissíveis em Dois
+    Grupos de Mulheres}
+\format{Um \code{data.frame} com 24 observações e 5 variáveis, em que
+
+\describe{
+
+\item{\code{parc}}{Fator sócio-comportamental definido pelo número
+    total de parceiros sexuais categorizado em 3 níveis (1-3, 4-10 e
+    > 10).}
+
+\item{\code{herpes}}{Vírus do tipo 2 do herpes simples (1 para maior
+    prevalência e 2 para menor).}
+
+\item{\code{calmid}}{Vírus do tipo \emph{Clamídia trachomatis} (1
+    para maior prevalência e 2 para menor).}
+
+\item{\code{grupo}}{Grupo em que foi dividido as mulheres (casos ou
+    controles).}
+
+\item{\code{freq}}{Frequências observadas.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Exercício 9.31, pág. 345.
+}
+\description{
+Estudo envolvendo um grupo de mulheres com displasia
+    historicamente confirmada (os casos) e um outro grupo de mulheres
+    com ausência da mesma (os controles). Cada uma destas mulheres
+    foi então analisada em termos da exposição a cada um dos agentes
+    sexualmente transmissíveis (o vírus tipo 2 da herpes simples e a
+    \emph{Clamídia trachomatis}, na etiologia da displasia cervical),
+    categorizados em dois níveis (1 para uma maior prevalência de
+    anticorpos e 2 para uma menor prevalência), analisando os
+    possíveis efeitos desses agentes nessas mulheres.
+}
+\examples{
+
+data(PaulinoEx9.31)
+
+str(PaulinoEx9.31)
+
+xt <- xtabs(freq ~., PaulinoEx9.31)
+ftable(xt)
+
+library(vcd)
+doubledecker(xt)
+
+}
+\keyword{retrospetivo}
+

man/PaulinoTb11.10.Rd

+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/PaulinoTb11.10.R
+\name{PaulinoTb11.10}
+\alias{PaulinoTb11.10}
+\title{Número de Animais Mortos por Contaminação do Petróleo}
+\format{Um \code{data.frame} com 48 observações e 4 variáveis, em que
+
+\describe{
+
+\item{\code{grupo}}{grupo em que pertnce o animal (petróleo ou
+    controle).}
+
+\item{\code{salin}}{Salinidade de aclimatação (0.8\%, 1.4\%, 2.4\%,
+    3.4\%).}
+
+\item{\code{tempo}}{Tempo de exposição dos animais, em horas.}
+
+\item{\code{animais}}{Número de animais sobreviventes.}
+
+}}
+\source{
+PAULINO; SINGER (2006), Tabela 11.10, pág. 400.
+}
+\description{
+Estudo cuja finalidade é avaliar o efeito da
+    contaminação de um estuário por derramamento de petróleo na fauna
+    local. Cada animal foi submetido a um tratamento obtido da
+    classificação cruzada dos níveis contaminação por petróleo (sim
+    ou controle) e salinidade de aclimatação. Os animais foram
+    observados por 72 horas e o número de sobreviventes foi
+    registrado a cada 12 horas.
+}
+\examples{
+
+data(PaulinoTb11.10)
+
+str(PaulinoTb11.10)
+
+xt <- xtabs(animais ~ ., data = PaulinoTb11.10)
+ftable(xt)
+
+library(lattice)
+
+barchart(animais ~ factor(tempo) | factor(salin), groups = grupo,
+         horizontal = FALSE,
+         data = PaulinoTb11.10,
+         auto.key = list(space = "top", columns = 2,
+                         cex.title = 1, rectangles = TRUE,
+                         points = FALSE,
+                         title = "Grupo de animais"),
+         xlab = "Tempo de exposição",
+         strip = strip.custom(
+             strip.names = TRUE,
+             var.name = "Salinidade"),
+         ylab = "Frequência")
+
+}
+\keyword{TC}
+