ajuste

Processamento/UC1_Passo1.R

@@ -1,10 +1,6 @@
 library(foreign)
 
-get.exercicios.com.nota.minima = function(fonte, nota.minima=10) {
-  print("Lendo Exercicios...")
-  exercicios = read.csv(fonte)
-  print(paste("Tamanho do arquivo (em linhas):", nrow(exercicios)))
-
+get.exercicios.com.nota.minima = function(exercicios, nota.minima=10) {
   filtro = exercicios[exercicios$nota == nota.minima, ]
   print(paste("Tamanho do arquivo (em linhas) com nota minima de ", nota.minima, ": ", nrow(filtro), sep=""))
   print("Exercicios Lidos.")
@@ -149,7 +145,7 @@ format.prova.exercicio = function(dados, exercicio.inicial, exercicio.final) {
   return(formatado)
 }
 
-dados.exercicios.submetidos = get.exercicios.com.nota.minima("../Dados/exercicios-20112.csv")
+dados.exercicios.submetidos = get.exercicios.com.nota.minima(data_exerc)
 colnames(dados.exercicios.submetidos) = c("matricula", "exercicio", "MM.DD.AAAA.HH.MM")
 
 data.prova.um = as.POSIXct("9.17.2011.10.00.00", format="%m.%d.%Y.%H.%M.%S")

US15 - analise_US6.R

@@ -105,4 +105,4 @@ grafico2 <- ggplot(dados.fora,aes(sumSession,atividade)) +
 
 png(filename = "ScatterplotUS6-ForaDeAula.png", width = 480, height = 480)
 print(grafico2)
-dev.off()
+dev.off()

US2 - Automatização.R

@@ -1,4 +1,4 @@
-# Codigo que cria as tabelas dos agrupamentos dos dados
+# Codigo para automatização do LA1.0
 # Andrey Menezes - versão 2.0 (Fevereiro 2013)
 
 #dados usados
@@ -14,6 +14,7 @@ source("../Processamento/processamento.R")
 
 #Script de automatizacao UC1
 source("../Processamento/UC1-A Priori.R")
+source("../Processamento/UC1_Passo1.R")
 
 #Script de automatizacao UC2
-source("../Processamento/UC2.R")
+source("../Processamento/UC2.R")