36 lines
809 B
R
Executable File
36 lines
809 B
R
Executable File
# Gerar gráfico
|
|
|
|
args <- commandArgs(TRUE)
|
|
diretorio=args[1]
|
|
|
|
|
|
endereco=paste("arquivospredicao/", diretorio,"/notasreaispreditas.csv",sep="");
|
|
matriz <- read.table(endereco, header=T, sep=";")
|
|
|
|
grafico = paste("arquivospredicao/", diretorio,"/imagemgrafico.jpg",sep="")
|
|
jpeg(grafico)
|
|
|
|
y=matriz[,4]
|
|
x=matriz[,3]
|
|
plot(y~x, pch=20, xlab="Notas reais", ylab="Notas preditas", main="Resultados de Predição")
|
|
|
|
abline(lm(y~x),col=2)
|
|
|
|
dev.off()
|
|
|
|
correlacao= cor(y,x)
|
|
|
|
erro= abs(y-x)
|
|
|
|
matriz
|
|
|
|
erromedio= mean(erro)
|
|
erromin= min(erro)
|
|
erromax= max(erro)
|
|
cat("Índice de Correlacao: ", correlacao, "\n");
|
|
cat("Erro médio:", erromedio, "\n");
|
|
cat("Erro mínimo:", erromin, "\n");
|
|
cat("Erro maximo:", erromax, "\n");
|
|
|
|
|