PaulaEg2.4.3: Valores Pagos de Seguros sob Influ<c3><aa>ncia de...

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

Description

Dados referentes aos valores pagos de seguros individuais por danos com acidentes pessoais no per<c3><ad>odo de janeiro de 1998 a junho de 1999 (18 meses). O estudo completo (Jong e Heller, 2008) cont<c3><a9>m o acompanhamento dos seguros desde 1989. No per<c3><ad>odo considerado aqui foram pagos 769 seguros, sendo armazenadas as informa<c3><a7><c3><b5>es: se houve representa<c3><a7><c3><a3>o legal, tempo operacional para pagamento e m<c3><aa>s em que ocorreu o acidente.

Format

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

valor

Valor pago do seguro, em d<c3><b3>lares australianos.

rl

Fator com dois n<c3><ad>veis que indica, se no seguro em an<c3><a1>lise, h<c3><a1> representa<c3><a7><c3><a3>o legal do indiv<c3><ad>duo.

mes

Fator com 15 n<c3><ad>veis que indica o m<c3><aa>s de ocorr<c3><aa>ncia do acidente. Os n<c3><ad>veis deste fator s<c3><a3>o codificados e n<c3><a3>o informou-se quais os meses que eles representam.

to

Tempo operacional para pagamento do seguro. Essa vari<c3><a1>vel assume valores de 0,1 a 31,9, pois s<c3><a3>o considerados apenas os 18 <c3><ba>ltimos meses do estudo.

Source

PAULA (2004), Exemplo 2.4.3, p<c3><a1>g. 136.

References

De Jong, P., Heller, G. Z. (2008). Generalized linear models for insurance data (Vol. 136). Cambridge: Cambridge University Press.

Examples

data(PaulaEg2.4.3)
str(PaulaEg2.4.3)

# N<c3><ba>mero de seguros pagos em cada combina<c3><a7><c3><a3>o de m<c3><aa>s e
# representa<c3><a7><c3><a3>o legal
ftable(table(PaulaEg2.4.3[, c("mes", "rl")]))
table(PaulaEg2.4.3[, c("rl")])

library(lattice)

xyplot(log(valor) ~ to | rl,
       data = PaulaEg2.4.3,
       type = c("p", "g", "smooth"),
       lwd = 2,
       strip = strip.custom(
           strip.names = TRUE,
           var.name = "Representa<c3><a7><c3><a3>o Legal",
           sep = ": "))

densityplot(~valor | rl,
            data = PaulaEg2.4.3,
            grid = TRUE,
            scales = list(x = list(relation = "free")),
            strip = strip.custom(
                strip.names = TRUE,
                var.name = "Representa<c3><a7><c3><a3>o Legal",
                sep = ": "))

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