PaulaEg4.3.6: Aus<c3><aa>ncia Escolar de Estudantes Australianos

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

Description

Dados provenientes de um estudo sociol<c3><b3>gico desenvolvido na Austr<c3><a1>lia com 146 estudantes de 8<c2><aa> s<c3><a9>rie e ensino m<c3><a9>dio. Nesse estudo avaliou-se a aus<c3><aa>ncia escolar (contagem de dias ausentes) com o objetivo de avaliar sua rela<c3><a7>ao com etnia, sexo, ano que o aluno est<c3><a1> cursando e desempenho escolar.

Format

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

etnia

Fator com dois n<c3><ad>veis que indica se o aluno <c3><a9> abor<c3><ad>gene da pr<c3><b3>pria regi<c3><a3>o (A) ou n<c3><a3>o abor<c3><ad>gene (N).

sexo

Fator com dois n<c3><ad>veis que indica o sexo do aluno: masculino (M) ou feminino (F).

ano

Fator com quatro n<c3><ad>veis que indica o ano que o aluno est<c3><a1> cursando: 8<c2><aa> s<c3><a9>rie (F0), 1<c2><ba> ano do ensino m<c3><a9>dio (F1), 2<c2><ba> ano do ensino m<c3><a9>dio (F2) ou 3<c2><ba> ano do ensino m<c3><a9>dio (F3).

desemp

Fator com dois n<c3><ad>veis que indica o desempenho do aluno: baixo (SL) ou normal (AL).

ndias

N<c3><ba>mero de dias ausentes no ano letivo.

Source

PAULA (2004), Exemplo 4.3.6, p<c3><a1>g. 312.

References

Venables, W. N., Ripley, B. D. (1999). Modern Applied Statistics with S-Plus (3rd ed.). Springer, New York.

Examples

data(PaulaEg4.3.6)
str(PaulaEg4.3.6)

# N<c3><ba>mero de observa<c3><a7><c3><b5>es em cada combina<c3><a7><c3><a3>o. Para modelagem n<c3><a3>o ser<c3><a1>
# poss<c3><ad>vel a estima<c3><a7><c3><a3>o de algumas intera<c3><a7><c3><b5>es
ftable(PaulaEg4.3.6[, -5])

# Aus<c3><aa>ncia escolar seccionadas pelas vari<c3><a1>veis explicativas
xtabs(ndias ~ ., data = PaulaEg4.3.6)

# Rela<c3><a7><c3><a3>o m<c3><a9>dia-vari<c3><a2>ncia
aggregate(ndias ~ ., FUN = function(x) c(mean(x), var(x)),
          data = PaulaEg4.3.6)

library(latticeExtra)

fl1 <- c("Abor<c3><ad>gene", "N<c3><a3>o Abor<c3><ad>gene")
fl2 <- c("Feminino", "Masculino")
useOuterStrips(
    xyplot(ndias ~ ano | etnia + sexo,
           groups = desemp,
           data = PaulaEg4.3.6,
           type = c("p", "a", "g"),
           ylab = "N<c3><ba>mero de dias ausente",
           auto.key = list(
               columns = 2, cex.title = 1,
               title = "Desempenho escolar")),
    strip = strip.custom(factor.levels = fl1),
    strip.left = strip.custom(factor.levels = fl2))

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