Notas

Histograma e box plot geral

## Grafico geral das notas
breaks <- 0:10
## table(cut(notas$S1, breaks = breaks,
##           right = FALSE, include.lowest = TRUE))
## Junta notas de todas as sabatinas em um único vetor
notas.all <- do.call(c, notas[, notas.col])
hist(notas.all, breaks = breaks, right = FALSE, include.lowest = TRUE,
     main = "Notas gerais", xlab = "Notas", ylab = "Frequência absoluta")
boxplot(notas.all, horizontal = TRUE, ylim = c(0, 10),
        col = "lightgray", add = TRUE)

Resumo dos cinco números, média, desvio-padrão, e número de provas não realizadas (NA):

statm <- function(x){
    res <- c(fivenum(x),
             mean(x, na.rm = TRUE),
             sd(x, na.rm = TRUE),
             sum(is.na(x)))
    names(res) <- c("Min", "Q1", "Q2", "Q3", "Max", "Média", "s", "NAs")
    return(res)
}
round(statm(notas.all), 2)

  Min    Q1    Q2    Q3   Max Média     s   NAs 
 0.00  4.90  7.00  8.90 10.00  6.46  2.53 58.00 

Resumos por prova

Box plot de cada prova

## Boxplots comparando as notas entre sabatinas
boxplot(notas[, notas.col], ylim = c(0, 10), ylab = "Notas")

Resumo dos cinco números, média, desvio-padrão, e número de provas não realizadas (NA):

round(apply(notas[, notas.col], 2, statm), 2)

         S1    S2    S3    S4    S5    S6
Min    3.00  0.20  0.80  0.00  1.00  3.00
Q1     7.50  3.50  4.50  2.50  5.50  6.00
Q2     8.50  5.50  6.00  5.00  7.00  7.50
Q3     9.00  8.00  7.00  7.50  9.00  9.00
Max   10.00 10.00 10.00  9.30 10.00 10.00
Média  8.07  5.78  5.69  5.08  6.61  7.29
s      1.62  2.78  2.33  2.77  2.34  2.09
NAs    5.00  9.00  8.00 14.00 11.00 11.00

Notas individuais

Aqui estão apenas as notas individuais de cada sabatina. Veja na seção abaixo as médias finais calculadas!

kable(notas[, c(1, notas.col)], align = "c")

Resultados finais

Na tabela abaixo estão as notas consideradas para o cálculo da média final. Das 6 sabatinas, foram consideradas apenas as 4 com maiores notas (N1, N2, N3, N4). A frequência (F) é o percentual de presença.

A média (M) foi calculada com estas 4 notas, e já arredondada para cima nos seguintes casos:

• Médias finais maiores ou iguais a 6,5 e menores do que 7,0 foram arredondadas para 7,0, SE a frequência do aluno foi maior ou igual a 75%.
• Médias finais maiores ou iguais a 3,5 e menores do que 4,0 foram arredondadas para 4,0, SE a frequência do aluno foi maior ou igual a 75%.

Observação: a frequência só foi utilizada aqui para critério de arredondamento de nota. Mesmo que o aluno tenha frequência abaixo de 75%, é permitido fazer o exame.

A coluna de situação (S) indica se o aluno foi aprovado (Ap), ficou em exame (Ex), ou foi reprovado (Re).

##----------------------------------------------------------------------
## Tabela com as notas finais

## Ordena pelas maiores notas
notas2 <- apply(notas[, notas.col], 1, sort,
                decreasing = TRUE, na.last = TRUE)

## Numero de provas consideradas
np <- 4

## Tabela com as np maiores notas
notas2 <- t(notas2[1:np, ])

## Calcula a media
notas2 <- cbind(notas2,
                apply(notas2, 1, function(x) sum(x, na.rm = TRUE)/np))

## Insere o GRR
notas2 <- as.data.frame(cbind(notas$Matricula, notas2))
names(notas2) <- c("Matricula", paste0("N", 1:np), "Media")

## Insere a frequencia (Freq.rel2 de notas)
notas2$Freq.rel <- ceiling(notas$Freq.rel2*100)

## Arredonda a media para duas casa decimais
notas2$Media <- round(notas2$Media, 2)

## Regras para ser aprovado
## 1) Se 6.5 <= MF < 7.0 E Freq >= 75 entao SOMA difer

## Cria nova coluna e condicoes
notas2$Media2 <- notas2$Media
cond.nota1 <- notas2$Media >=6.5 & notas2$Media < 7
cond.nota2 <- notas2$Freq.rel >= 75

## Soma as diferencas
notas2$Media2[cond.nota1 & cond.nota2] <-
    notas2$Media2[cond.nota1 & cond.nota2] +
    difer(notas2$Media2[cond.nota1 & cond.nota2], 7)

## Regras para ir para exame
## 1) Se 3.5 <= MF < 4.0 E Freq >= 75 entao SOMA difer

## Cria condicoes
cond.exam1 <- notas2$Media >=3.5 & notas2$Media < 4

## Soma as diferencas
notas2$Media2[cond.exam1 & cond.nota2] <-
    notas2$Media2[cond.exam1 & cond.nota2] +
    difer(notas2$Media2[cond.exam1 & cond.nota2], 4)

##----------------------------------------------------------------------
## BONUS: aqui tem uma aluna que acertou uma questao bonus e ficou com
## uma prova com nota '12'. Portanto, deveria distribuir essa nota entre
## as outras provas dela. Como as outras tambem eram quase 10, vou
## atribuir 10 para todas as provas dela.
## grr <- 20154966
## notas2[notas2$Matricula == grr, ]
## Como ja esta com 10 nas 4 maiores nao precisa fazer isso.
##----------------------------------------------------------------------

##----------------------------------------------------------------------
## Tabela final
notas.fim <- notas2[, 1:5]
notas.fim$M <- notas2$Media2
notas.fim$F <- notas2$Freq.rel

##----------------------------------------------------------------------
## Antes do exame (Ex)

## Cria a coluna Situacao
notas.fim$S <- "Ap"
notas.fim$S[notas.fim$M >= 4 & notas.fim$M < 7] <- "Ex"
notas.fim$S[notas.fim$M < 4] <- "Re"

## Mostra tabela
## kable(notas.fim, align = "c")

Após o exame: as notas dos exames estão na coluna E. A média final (MF) é a mesma para quem não fez exame, e é a média entre a média final (M) e a nota do exame (E) para quem fez exame. A média final arredondada (MFA) é a nota que será lançada no sistema. A coluna SF mostra a situação final dos alunos após o exame.

##----------------------------------------------------------------------
## Após exame (Ex)

## Insere notas do exame
notas.fim$E <- notas$Ex

## Calcula média final (MF), que é média da nota final com a nota do
## exame (apenas para os que ficaram de exame)
notas.fim$MF <- notas.fim$M
notas.fim$MF[notas.fim$S == "Ex"] <- (notas.fim$M[notas.fim$S == "Ex"] +
    notas.fim$E[notas.fim$S == "Ex"])/2
notas.fim$MF <- round(notas.fim$MF, 2)

## Calcula a média final arredonadada (MFA), que é a média multiplicada por
## 10 e arredondada para cima (é como será lançada no sistema)
notas.fim$MFA <- ceiling(notas.fim$MF*10)

## Cria a coluna Situacao final (SF), que indica a situação após exame
notas.fim$SF <- "Ap"
notas.fim$SF[notas.fim$MFA < 50] <- "Re"

## Mostra tabela
kable(notas.fim, align = "c")

Número de alunos em cada situação:

• Antes do exame

addmargins(table(notas.fim$S))

 Ap  Ex  Re Sum 
 33  11   7  51 

• Após o exame

addmargins(table(notas.fim$SF))

 Ap  Re Sum 
 36  15  51 

Gráfico de barras com os percentuais por situação:

par(mfrow = c(1, 2))
barplot(prop.table(table(notas.fim$S))*100,
        xlab = "Situação", ylab = "Frequência (%)",
        main = "Antes do exame")
barplot(prop.table(table(notas.fim$SF))*100,
        xlab = "Situação", ylab = "Frequência (%)",
        main = "Após o exame")

par(mfrow = c(1, 1))