diff --git a/notas.Rmd b/notas.Rmd
index a003ce98d7fbfd1d2ef8652e18690304c9abd2ac..7cf49551710e1b7c9d62852da96dabe36b3c0363 100644
--- a/notas.Rmd
+++ b/notas.Rmd
@@ -184,7 +184,7 @@ if (!is.null(nt$MF2)) {
 
 #-----------------------------------------------------------------------
 
-v <- c("GRR", u, c("M. parcial", "M. final"))
+v <- c("GRR", u, c("M. parcial", "E", "M. final"))
 v <- v[v %in% names(nt)]
 
 # nt <- plyr::arrange(nt, -mp)
@@ -242,12 +242,20 @@ dt <- datatable(data = subset(nt, select = v),
               lengthMenu = NULL))
 
 dt <- formatStyle(table = dt,
-                  columns = !(v %in% c("GRR", "F")),
+                  columns = !(v %in% c("Nome", "GRR", "F", "M. final")),
                   color = styleInterval(cuts = c(39.999999, 69.999999),
                                         values = c("#ff3300",
                                                    "gray",
                                                    "#3333ff")))
 
+if ("E" %in% v) {
+    dt <- formatStyle(table = dt,
+                      columns = (v %in% c("M. final")),
+                      color = styleInterval(cuts = c(49.999999),
+                                            values = c("#ff3300",
+                                                       "#3333ff")))
+}
+
 is.decimal <- function(x) is.numeric(x) && !is.integer(x)
 
 formatRound(table = dt,