Conta bonus como sabatina.

parent 79ad97a7
......@@ -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"}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment