Adiciona tabela 11.10 ao pacote

R/PaulinoTb11.10.R

+#' @name PaulinoTb11.10
+#' @title Número de Animais Mortos por Contaminação do Petróleo
+#' @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.
+#' @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.}
+#'
+#' }
+#' @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

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/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}
+