Algorithm-TrunkClassifier

 view release on metacpan or  search on metacpan

Algorithm/TrunkClassifier/ppport.h  view on Meta::CPAN

sv_2pvbyte_nolen|5.006000||p
sv_2pvbyte|5.006000||p
sv_2pvutf8_nolen||5.006000|
sv_2pvutf8||5.006000|
sv_2pv|||
sv_2uv_flags||5.009001|
sv_2uv|5.004000||p
sv_add_arena|||
sv_add_backref|||
sv_backoff|||
sv_bless|||
sv_cat_decode||5.008001|
sv_catpv_mg|5.004050||p
sv_catpvf_mg_nocontext|||pvn
sv_catpvf_mg|5.006000|5.004000|pv
sv_catpvf_nocontext|||vn
sv_catpvf||5.004000|v
sv_catpvn_flags||5.007002|
sv_catpvn_mg|5.004050||p
sv_catpvn_nomg|5.007002||p
sv_catpvn|||

lib/Algorithm/TrunkClassifier/CommandProcessor.pm  view on Meta::CPAN

		"-s"			=> {"numArgs" => 1, "validArgs" => '.+', "var" => $suppfileRef},
		"--supp"		=> {"numArgs" => 1, "validArgs" => '.+', "var" => $suppfileRef},
		"-v"			=> {"numArgs" => 0, "var" => $verboseRef, "value" => 1},
		"--verbose"		=> {"numArgs" => 0, "var" => $verboseRef, "value" => 1},
		"-u"			=> {"numArgs" => 0, "var" => $useallRef, "value" => 1},
		"--useall"		=> {"numArgs" => 0, "var" => $useallRef, "value" => 1},
		"-h"			=> {"numArgs" => 0, "sub" => \&commandHelp},
		"--help"		=> {"numArgs" => 0, "sub" => \&commandHelp}
	);
	my $self = {"input" => $datafileRef};
	bless($self, $class);
	return $self;
}

#Description: Command processor loop
#Parameters: Command line arguments
#Return value: None
sub processCmd{
	my $self = shift(@_);
	my @commandLine = @_;
	my @allCommands = @_;

lib/Algorithm/TrunkClassifier/DataWrapper.pm  view on Meta::CPAN

sub new{
	my ($class, $className, $prospect, $suppFileName, $dataFileName, $VERBOSE, $datasetType) = @_;
	my $self = {
		"colnames" => "",
		"rownames" => "",
		"data_matrix" => "",
		"class_vector" => "",
		"class_one" => "",
		"class_two" => ""
	};
	bless($self, $class);
	if(scalar(@_) == 1){
		return $self;
	}
	
	#If supplementary file is given, write new input data file with meta data
	if($suppFileName){
		$dataFileName = readSuppFile($suppFileName, $dataFileName, $VERBOSE, $datasetType);
	}
	
	#Read input data file

lib/Algorithm/TrunkClassifier/DecisionTrunk.pm  view on Meta::CPAN

	my @higher;
	my @lowerClass;
	my @higherClass;
	my $self = {
		"level_name" => \@names,
		"lower_threshold" => \@lower,
		"higher_threshold" => \@higher,
		"lower_class" => \@lowerClass,
		"higher_class" => \@higherClass
	};
	bless($self, $class);
	return $self;
}

#Description: Adds a decision level to the trunk
#Parameters: (1) TrunkClassifier::DecisionTrunk object, (2) level name, (3) lower threshold, (4) higher threshold, (5) lower class, (6) higher class
#Return value: None
sub addLevel($ $ $ $ $ $){
	my ($self, $levelName, $lowerT, $higherT, $lowerC, $higherC) = @_;
	push(@{$self->{"level_name"}}, $levelName);
	push(@{$self->{"lower_threshold"}}, $lowerT);