From a861cd117e3e958d49288fbe48be0ef8ce4f2928 Mon Sep 17 00:00:00 2001 From: Walmes Zeviani <walmes@ufpr.br> Date: Tue, 28 Nov 2017 18:36:49 -0200 Subject: [PATCH] =?UTF-8?q?Inclui=20nota=20dos=20trabalhos=20e=20descri?= =?UTF-8?q?=C3=A7=C3=A3o=20da=20m=C3=A9dia.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- notas.Rmd | 39 +++++++++++++++++++++++++++++++-------- 1 file changed, 31 insertions(+), 8 deletions(-) diff --git a/notas.Rmd b/notas.Rmd index 7925162..1860d38 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.7, t = 0.3) +pesos <- c(s = 0.7, p = 0, t = 0.3) # Colunas de notas presentes. u <- unlist(index[1:4]) @@ -89,8 +89,6 @@ 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)]), @@ -121,7 +119,7 @@ pesos <- pesos[a] if (length(pesos)) { # Reescala os pesos. pesos <- pesos/sum(pesos) - stopifnot(sum(pesos) == 1) + stopifnot(as.integer(sum(pesos)) == 1L) nt$MF1 <- c(as.matrix(nt[, j]) %*% cbind(pesos)) } @@ -186,7 +184,7 @@ v <- v[v %in% names(nt)] # Legenda da tabela. cap <- - "Notas nas avaliações (S: sabatina, B: sabatina bonus, 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"} @@ -198,6 +196,24 @@ x <- knitr::kable(subset(nt, select = v), cat(gsub("\\bNA\\b", "--", x), sep = "\n") ``` +<style type="text/css"> +/* ATTENTION: propriedades da tabela do DT::datatable() */ +table.dataTable thead th, +table.dataTable thead td { + padding: 3px 6px; +} + +table.dataTable tbody th, +table.dataTable tbody td { + padding: 1px 6px; +} + +table.dataTable th.dt-right, +table.dataTable td.dt-right { + text-align: center; +} +</style> + ```{r, echo = FALSE, results = "asis"} # browseURL("http://datatables.net/reference/option/") # http://rstudio.github.io/DT/functions.html @@ -212,14 +228,14 @@ dt <- datatable(data = subset(nt, select = v), autoHideNavigation = TRUE, escape = FALSE, options = list( - searching = TRUE, + searching = FALSE, paging = FALSE, pageLength = NULL, lengthMenu = NULL)) dt <- formatStyle(table = dt, columns = !(v %in% c("GRR", "F")), - color = styleInterval(cuts = c(40, 70), + color = styleInterval(cuts = c(39.999999, 69.999999), values = c("#ff3300", "gray", "#3333ff"))) @@ -227,6 +243,13 @@ dt <- formatStyle(table = dt, is.decimal <- function(x) is.numeric(x) && !is.integer(x) formatRound(table = dt, - columns = sapply(dt$x$data, is.decimal), + columns = sapply(dt$x$data, FUN = is.decimal), digits = 1) ``` + +\* A média final é uma média ponderada da nota das sabatinas (peso 0.7) +e dos trabalhos (peso 0.3). Foram realizadas 9 sabatinas e 2 questões +bonus. Destas 11 notas, apenas as 6 maiores ($\left\lfloor 0.75 \times 9 +\right\rfloor = 6$) foram consideradas para compor o desempenho nas +sabatinas. A nota do T2 foi lançada como 70 para todos os alunos apenas +para fins de simulação. Em breve, a nota correta será lançada. -- GitLab