From bb970ba3a1c5adb2b65dc4d1b254fa824487ee91 Mon Sep 17 00:00:00 2001 From: Andrey Nogueira Menezes Date: Wed, 27 Mar 2013 17:45:20 -0300 Subject: [PATCH] =?UTF-8?q?US14=20atualiza=C3=A7=C3=A3o?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- US14 - Script UC4.R | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/US14 - Script UC4.R b/US14 - Script UC4.R index 6692a41..ced5dcb 100644 --- a/US14 - Script UC4.R +++ b/US14 - Script UC4.R @@ -23,10 +23,13 @@ tabela3 = tabela3[,c("matricula","ProporcaoSubCorretas")] tabela4 = tabela4[,c("matricula", "status")] uc4 = uc4[,-1] +uc4$nota.final = (uc4$nota.teoria + uc4$nota.pratica + uc4$nota.listas + uc4$nota.provas) tabelaCompleta = merge(uc4,tabela1,by.x="matricula",by.y="matricula") tabelaCompleta = merge(tabelaCompleta,tabela2,by.x="matricula",by.y="matricula") tabelaCompleta = merge(tabelaCompleta,tabela3,by.x="matricula",by.y="matricula") tabelaCompleta = merge(tabelaCompleta,tabela4,by.x="matricula",by.y="matricula") -write.csv(tabelaCompleta, "dados/tabelaUC4.csv") \ No newline at end of file +tabelaUC4 = tabelaCompleta[with(tabelaCompleta, order(nota.final, decreasing=T)),] + +write.csv(tabelaUC4, "dados/tabelaUC4.csv") \ No newline at end of file