Conta bonus como sabatina.

notas.Rmd

@@ -66,7 +66,7 @@ if (length(index$s) >= 4) {
 }
 
 # Pesos de cada forma de avaliação.
-pesos <- c(s = 0.5, p = 0.2, t = 0.3)
+pesos <- c(s = 0.7, t = 0.3)
 
 # Colunas de notas presentes.
 u <- unlist(index[1:4])
@@ -74,6 +74,9 @@ u <- unlist(index[1:4])
 #-----------------------------------------------------------------------
 # Cálculos.
 
+# ATTENTION. Considera como sabatina até as questões bonus.
+index$s <- grep("^[SB]\\d+$", names(nt), value = TRUE)
+
 # Calcula a média nas sabatinas.
 if (length(index$s) > 1) {
     nt$ms <- apply(X = cbind(nt[, c(index$s)]),
@@ -86,6 +89,8 @@ if (length(index$s) > 1) {
                    })
 }
 
+(5 * 100 + 95)/6
+
 # Calcula a média nas provas.
 if (length(index$p)) {
     nt$mp <- apply(X = cbind(nt[, c(index$p)]),
@@ -181,7 +186,7 @@ v <- v[v %in% names(nt)]
 
 # Legenda da tabela.
 cap <-
-    "Notas nas avaliações (S: sabatina, P: prova, T: trabalho) ordenadas pelo GRR. Valores entre 0 e 100."
+    "Notas nas avaliações (S: sabatina, B: sabatina bonus, T: trabalho) ordenadas pelo GRR. Valores entre 0 e 100."
 ```
 
 ```{r, eval = FALSE, echo = FALSE, results = "asis"}