Correlações com a nota

AndreyMenezes · Mar 18, 2013 · 1b67255 · 1b67255
1 parent 4ec07b5
commit 1b67255
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 10 deletions.
diff --git a/US12 - Tabela Intercorrelação Variáveis Independentes.R b/US12 - Tabela Intercorrelação Variáveis Independentes.R
@@ -4,7 +4,9 @@
 tabela1 = read.csv("dados/TabelaParaPerfis.csv")
 tabela2 = read.csv("dados/TableSessionLength.csv")
 tabela3 = read.csv("dados/submissoes_corretas_tempo.csv")
+tabela4 = read.csv("dados/Geral.csv")
 
+tabela4 = tabela4[,c("matricula", "nota.final.pratica")]
 tabela1 = tabela1[,-3]
 tabela2 = with(tabela2,aggregate(session,list(matricula),FUN=max))
 colnames(tabela2) = c("matricula", "numeroSessoes")
@@ -18,7 +20,9 @@ tabela3$ProporcaoSubCorretas = tabela3$correctSubmissions/tabela3$amountSubmissi
 
 tabelaCompleta = merge(tabela1,tabela2,by.x="matricula",by.y="matricula")
 tabelaCompleta = merge(tabelaCompleta,tabela3,by.x="matricula",by.y="matricula")
-colnames(tabelaCompleta) = c("matricula","Mediana Sessao","Numero Exercicios","Tempo Total Estudo","Atividade","Numero Sessoes","Total Submissoes","Submissoes Corretas","Proporcao Submissoes Corretas")
+tabelaCompleta = merge(tabelaCompleta,tabela4,by.x="matricula",by.y="matricula")
+
+colnames(tabelaCompleta) = c("matricula","Mediana Sessao","Numero Exercicios","Tempo Total Estudo","Atividade","Numero Sessoes","Total Submissoes","Submissoes Corretas","Proporcao Submissoes Corretas","Nota Final")
 
 tabelaCorrelacao = cor(tabelaCompleta[,-1], use="complete.obs", method=c("spearman"))
 

diff --git a/dados/TabelaIntercorrelação.csv b/dados/TabelaIntercorrelação.csv