45 lines
776 B
R
Executable File
45 lines
776 B
R
Executable File
# Este codigo realiza a predicao de notas por avaliação sintatica
|
|
# Autora: Márcia Gonçalves de Oliveira
|
|
# Ano 2013
|
|
# Na linha de comando
|
|
|
|
|
|
library(MASS)
|
|
library("lsa")
|
|
|
|
# Recebe argumento de entrada: endereco da base
|
|
args <- commandArgs(TRUE)
|
|
nomebase=args[1]
|
|
|
|
|
|
# Carrega matrizes
|
|
|
|
|
|
diretorio=paste("analiseplagio/", nomebase, sep="")
|
|
diretorio
|
|
matrizteste <- read.csv(diretorio, sep=" ", header=F)
|
|
|
|
|
|
|
|
# Converter para matriz ==> Se não fizer isso, a função cosine não funciona
|
|
|
|
F=data.matrix(matrizteste)
|
|
G= t(F)
|
|
matrizsim = cosine(G)
|
|
|
|
|
|
|
|
|
|
# Resultados gerados
|
|
|
|
|
|
resultadosplagio=paste("analiseplagio/", nomebase,".csv", sep="")
|
|
|
|
|
|
write.csv(matrizsim, file = resultadosplagio)
|
|
|
|
|
|
|
|
|
|
|