A voir également:
- Résumé statistique weka
- Retrouver le titre d'un film à partir d'un résumé - Télécharger - Divers TV & Vidéo
- Résumé rapport de stage - Guide
- Telecharger logiciel spss statistique gratuit - Télécharger - Outils professionnels
- Statistique utilisation applications windows - Guide
- Formule de la moyenne en statistique - Guide
1 réponse
Faire une petit programme? (par exemple en perl)
Evidemment ca necessite d'installer ActivePerl
fichier arff:
@relation and
%operateur booleen and
@attribute arg1 numeric
@attribute arg2 numeric
@attribute res numeric
@data
1,1, %blabla
1,1,1
1,,0 %coucou
1,1,1
1,1,1
,1,1
code perl :
use strict;
my $fich="/tmp/test.arff";
my $nbchamps=3; # le nombre de colones de données
open(FICH,$fich) || die "erreur d'ouverture de $fich";
my $nb_oks=0;
my $nb_incomplets=0;
while(my $ligne = <FICH>)
{
$ligne =~ s/\r//; chomp $ligne; # enleve le/les caracteres de fin de ligne
print "LU:$ligne\n";
$ligne =~ s/ *\%.*//; # vire les commentaires arff
next if($ligne !~ /[^\s]/); # saute ligne vide
next if($ligne =~ /^ *\@/); # saute ligne de parametre commencant par @
print "donne:$ligne\n";
my @valeurs = split(/ *, */, $ligne);
for( my $i=0; $i<$nbchamps; $i++)
{
my $valeur = $valeurs[$i];
# verifier que la valeur n'est pas absente, ca je ne sais pas comment elles sont indiquees, mais par exemple si c'est deux virgules qui se suivent sans rien entre les deux ca donnerait :
if( !defined($valeur) || (length($valeur) == 0) )
{
$nb_incomplets++;
print "MISSING\n";
last; # interrompt la boucle
}
}
$nb_oks++
}
print "$nb_oks / $nb_incomplets\n";
Evidemment ca necessite d'installer ActivePerl
fichier arff:
@relation and
%operateur booleen and
@attribute arg1 numeric
@attribute arg2 numeric
@attribute res numeric
@data
1,1, %blabla
1,1,1
1,,0 %coucou
1,1,1
1,1,1
,1,1
code perl :
use strict;
my $fich="/tmp/test.arff";
my $nbchamps=3; # le nombre de colones de données
open(FICH,$fich) || die "erreur d'ouverture de $fich";
my $nb_oks=0;
my $nb_incomplets=0;
while(my $ligne = <FICH>)
{
$ligne =~ s/\r//; chomp $ligne; # enleve le/les caracteres de fin de ligne
print "LU:$ligne\n";
$ligne =~ s/ *\%.*//; # vire les commentaires arff
next if($ligne !~ /[^\s]/); # saute ligne vide
next if($ligne =~ /^ *\@/); # saute ligne de parametre commencant par @
print "donne:$ligne\n";
my @valeurs = split(/ *, */, $ligne);
for( my $i=0; $i<$nbchamps; $i++)
{
my $valeur = $valeurs[$i];
# verifier que la valeur n'est pas absente, ca je ne sais pas comment elles sont indiquees, mais par exemple si c'est deux virgules qui se suivent sans rien entre les deux ca donnerait :
if( !defined($valeur) || (length($valeur) == 0) )
{
$nb_incomplets++;
print "MISSING\n";
last; # interrompt la boucle
}
}
$nb_oks++
}
print "$nb_oks / $nb_incomplets\n";
