PaulaTb4.9: Avarias em Navios de Carga
In pet-estatistica/labestData: Biblioteca de Dados para Aprendizado de Estatística

Description Format Source Examples

Dados referentes a um estudo em que se avaliou o n<c3><ba>mero de avarias causadas por ondas em navios de carga. Cont<c3><a9>m 34 registros com informa<c3><a7><c3><b5>es do tipo de navio, ano de fabrica<c3><a7><c3><a3>o, per<c3><ad>odo de opera<c3><a7><c3><a3>o e tempo em opera<c3><a7><c3><a3>o (que pode ser considerado como offset na an<c3><a1>lise, pois espera-se um maior n<c3><ba>mero de avarias em navios com um maior tempo em opera<c3><a7><c3><a3>o).

Um data.frame com 34 observa<c3><a7><c3><b5>es e 5 vari<c3><a1>veis.

tipo: Fator com cinco n<c3><ad>veis que representa o tipo de navio (A, B, C, D e E).
ano: Fator com quatro n<c3><ad>veis que representa o ano de fabrica<c3><a7><c3><a3>o do navio (entre 1960 e 1964 (60-64), entre 1965 e 1969 (65-69), entre 1970 e 1974 (70-74) e entre 1975 e 1979 (75-79)).
peri: Fator com dois n<c3><ad>veis que representa o per<c3><ad>odo de opera<c3><a7><c3><a3>o do navio (entre 1960 e 1974 (60-74) e entre 1975 e 1979 (75-79)).
meses: Tempo, em meses, em que o navio esteve em opera<c3><a7><c3><a3>o.
avarias: N<c3><ba>mero de avarias no navio.

PAULA (2004), Tabela 4.9 p<c3><a1>g. 322.

data(PaulaTb4.9)
str(PaulaTb4.9)

# N<c3><ba>mero de observa<c3><a7><c3><b5>es em cada combina<c3><a7><c3><a3>o das vari<c3><a1>veis explicativas
ftable(PaulaTb4.9[, c("tipo", "ano", "peri")])

# N<c3><ba>mero de avarias e n<c3><ba>mero de avarias por m<c3><aa>s observada em cada
# combina<c3><a7><c3><a3>o das vari<c3><a1>veis explicativas
xtabs(avarias ~ tipo + ano + peri, data = PaulaTb4.9)
xt <- xtabs(avarias/meses ~ ., data = PaulaTb4.9)
plot(xt)

library(lattice)

xyplot(avarias/meses ~ tipo | peri,
       groups = ano,
       data = PaulaTb4.9,
       type = c("p", "a", "g"),
       auto.key = list(
           space = "right", cex.title = 1,
           title = "Ano de\nfabrica<c3><a7><c3><a3>o"))