70 lines
1.8 KiB
R
Executable File
70 lines
1.8 KiB
R
Executable File
# Este codigo realiza a predicao de notas por avaliação sintatica
|
|
# Autora: Márcia Gonçalves de Oliveira
|
|
# Ano 2013
|
|
|
|
# Entrada dos dados de treino e de teste
|
|
# Treino é a base referencia de predicao
|
|
# Teste são as amostras que serão pontuadas a partir da referencia de treino aprendida.
|
|
|
|
# Recebe argumento de entrada: diretorio onde estao matrizes de treino e teste
|
|
args <- commandArgs(TRUE)
|
|
diretorio=args[1]
|
|
|
|
# Carrega matrizes de treino e teste
|
|
|
|
enderecotreino=paste(diretorio,"/treino.csv");
|
|
enderecoteste=paste(diretorio,"/teste.csv");
|
|
|
|
matriztreino <- read.table(enderecotreino, header=T, sep=";")
|
|
matrizteste <- read.table(enderecoteste, header=T, sep=";")
|
|
|
|
library(MASS)
|
|
|
|
|
|
|
|
attach(matriztreino)
|
|
|
|
# Cria o modelo regressor a partir do treino e das variáveis de avaliação selecionadas
|
|
|
|
modelo=lm(nota~ maior+ menor + cif)
|
|
|
|
|
|
# Selecionar as características que realmente contribuem com o modelo
|
|
|
|
modelosimplificado= step(modelo, trace = 0)
|
|
|
|
result=summary(modelosimplificado)
|
|
|
|
# anova(modelosimplificado)
|
|
|
|
detach(matriztreino)
|
|
|
|
# Obter o vetor de notas reais das amostras pontuadas ==> é melhor carregar de um arquivo
|
|
|
|
#vetnotasreais = matrizteste[,1]
|
|
|
|
#attach(matrizteste)
|
|
|
|
# Obter vetores com as notas preditas das amostras de treino
|
|
|
|
vetnotaspreditas= predict(modelosimplificado,newdata=matrizteste)
|
|
|
|
|
|
#detach(matrizteste)
|
|
|
|
|
|
# plot(vetnotasreais~vetnotaspreditas)
|
|
|
|
# Resultados gerados
|
|
|
|
resultadosreais=paste(diretorio,"/notasreais_exp1.csv")
|
|
resultadospreditos=paste(diretorio,"/notaspreditas_exp1.csv")
|
|
|
|
write.csv(vetnotasreais, file = resultadosreais)
|
|
write.csv(vetnotaspreditas, file = resultadospreditos)
|
|
|
|
|
|
|
|
|
|
|