PaulinoTb11.10: N<c3><ba>mero de Animais Mortos por...

In pet-estatistica/labestData: Biblioteca de Dados para Aprendizado de Estatística

Description

Dados de um estudo cuja finalidade foi avaliar o efeito da contamina<c3><a7><c3><a3>o de um estu<c3><a1>rio por derramamento de petr<c3><b3>leo na fauna local. Cada animal foi submetido a um tratamento obtido da combina<c3><a7><c3><a3>o dos n<c3><ad>veis contamina<c3><a7><c3><a3>o por petr<c3><b3>leo (sim ou controle) e percentual de salinidade de aclimata<c3><a7><c3><a3>o. Os animais foram observados por 72 horas e o n<c3><ba>mero de sobreviventes foi registrado a cada 12 horas.

Format

Um data.frame com 48 observa<c3><a7><c3><b5>es e 4 vari<c3><a1>veis, em que

grupo

grupo ao qual pertnce o animal (petr<c3><b3>leo ou controle).

salin

Salinidade de aclimata<c3><a7><c3><a3>o (0.8%, 1.4%, 2.4%, 3.4%).

tempo

Tempo de exposi<c3><a7><c3><a3>o dos animais, em horas.

animais

N<c3><ba>mero de animais sobreviventes.

Source

PAULINO; SINGER (2006), Tabela 11.10, p<c3><a1>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<c3><a7><c3><a3>o",
         strip = strip.custom(
             strip.names = TRUE,
             var.name = "Salinidade"),
         ylab = "Frequ<c3><aa>ncia")

pet-estatistica/labestData documentation built on May 25, 2019, 12:47 a.m.