From 042872c87432e0249c1e5559e7715176f5b9694b Mon Sep 17 00:00:00 2001 From: Andrey Nogueira Menezes Date: Sun, 17 Mar 2013 23:20:06 -0300 Subject: [PATCH] ajuste --- Processamento/UC1_Passo1.R | 8 ++------ US15 - analise_US6.R | 2 +- "US2 - Automatiza\303\247\303\243o.R" | 5 +++-- 3 files changed, 6 insertions(+), 9 deletions(-) diff --git a/Processamento/UC1_Passo1.R b/Processamento/UC1_Passo1.R index 86f36ed..95c89a3 100644 --- a/Processamento/UC1_Passo1.R +++ b/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") diff --git a/US15 - analise_US6.R b/US15 - analise_US6.R index 60583cd..826a20e 100644 --- a/US15 - analise_US6.R +++ b/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() \ No newline at end of file +dev.off() diff --git "a/US2 - Automatiza\303\247\303\243o.R" "b/US2 - Automatiza\303\247\303\243o.R" index 48319a9..f36074a 100644 --- "a/US2 - Automatiza\303\247\303\243o.R" +++ "b/US2 - Automatiza\303\247\303\243o.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") \ No newline at end of file +source("../Processamento/UC2.R")