From 5df6be57f26a3336da310e1909f3eb8e49de6877 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Tue, 28 Nov 2017 01:31:31 -0200
Subject: [PATCH] Conta bonus como sabatina.
---
notas.Rmd | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/notas.Rmd b/notas.Rmd
index c2a99e0..7925162 100644
--- a/notas.Rmd
+++ b/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"}
--
GitLab