86 lines
2.1 KiB
PHP
Executable File
86 lines
2.1 KiB
PHP
Executable File
<?php
|
|
// Este script gera os códigos um arquivo shell script com as linhas de comando para gerar resultados do R
|
|
//Formato:
|
|
// Rscript rlmultipla.R diretorio> diretorio/saida.txt
|
|
// Rscript rlsimples.R diretorio> diretorio/saidasdepredicao.txt
|
|
|
|
$diretorioentrada="arquivospredicao/";
|
|
|
|
$nomequestao = trim($argv[1]);
|
|
|
|
$arquivosaida="geraresultadosdepredicao_".$nomequestao.".sh";
|
|
|
|
$fp= fopen($arquivosaida,'w');
|
|
|
|
|
|
$diretorioindclusters="indexados/".$nomequestao."/clusters/";
|
|
$diretorio = $diretorioentrada.$nomequestao."/clusters/";
|
|
$diretorioresults= $diretorioentrada.$nomequestao."/";
|
|
|
|
// Para saber número de clusters
|
|
|
|
$ponteiro1 = opendir($diretorioindclusters);
|
|
|
|
|
|
// Para cada subdiretorio do diretorio clusters
|
|
|
|
$tc=0;
|
|
$vtc=array();
|
|
while (($nomecluster = readdir($ponteiro1)))
|
|
{
|
|
|
|
if (($nomecluster<>".") && ($nomecluster<>"..") && ($nomecluster<>"rd"))
|
|
{
|
|
$vtc[$tc]= trim($nomecluster);
|
|
$tc = $tc + 1;
|
|
|
|
}
|
|
}
|
|
|
|
|
|
$linhacomando1="";
|
|
|
|
// Para cada cluster
|
|
|
|
for($cl=0;$cl<$tc;$cl++)
|
|
{
|
|
$arq= $diretorio."notastreino-".$vtc[$cl].".csv";
|
|
if (file_exists($arq))
|
|
{
|
|
$m= file($arq);
|
|
|
|
$nt=count($m);
|
|
|
|
unset($m);
|
|
|
|
if ($nt>2)
|
|
{
|
|
$linhacomando1=$linhacomando1."Rscript RLmultipla.R $diretorio ".$vtc[$cl]." > ".$diretorio."saida-".$vtc[$cl].".txt \n";
|
|
}
|
|
else
|
|
{
|
|
$linhacomando1=$linhacomando1."Rscript RLsimples.R $diretorio ".$vtc[$cl]." > ".$diretorio."saida-".$vtc[$cl].".txt \n";
|
|
}
|
|
|
|
}
|
|
|
|
|
|
}
|
|
unset($vtc);
|
|
$linhacomando2="php juntaresultados.php ".$nomequestao." > ".$diretorioresults."notasteste.csv \n";
|
|
|
|
|
|
|
|
$linhacomando= $linhacomando1.$linhacomando2;
|
|
fwrite($fp,$linhacomando);
|
|
|
|
|
|
|
|
|
|
|
|
|
|
fclose($fp);
|
|
|
|
?>
|
|
|