Lines Matching refs:ds1
26 my $ds1 = new Algorithm::SVM::DataSet(Label => 1);
29 ok(ref($ds1) ne "", 1);
58 $ds1->attribute($_, $d1[$_ - 1]) for(1..scalar(@d1));
64 ok($svm->predict($ds1) == 10,1);
82 if ($ds1->attribute($i) == $d1[$i-1]) {
89 my @tset=($ds1,$ds2,$ds3);
94 if ($ds1->attribute($i) == $d1[$i-1]) {
103 my $p1 = $svm->predict($ds1);
109 ok($svm->predict($ds1),$p1);
116 $ds1->attribute(2,$ds1->attribute(2));
122 ok($svm->predict($ds1),$p1);
132 $ds1->attribute($_, 1) for(1..scalar(@d1));
135 if ($ds1->attribute($i)==1) { $cnt++; } else { print $ds1->attribute($i),"::\n"; }