view release on metacpan or  search on metacpan

lib/Gibbs.pm  view on Meta::CPAN

use version; our $VERSION = version->declare("v1.1");


################################################################################## 

# Class data and methods 
# Attributes 
{
	# _states and _adj are inherited from Markov parent class
	my %_attribute_properties = (
		_k						=> 3,					# the number of iterations for which nothing changing will be considered convergence, Default 3
		_seqs					=> [ ],					# an anon array containing all the DNA sequences we are searching/sampling from
		_motif_len				=> 7,					# the length of the motif we are searching for, Default 7
		_alphabet				=> '',					# the set of possible symbols available
		_samples				=> [ ],					# a list of the samples we pull, will be updated each iteration
		_profiles				=> [ ],					# a list of the last k profiles, so that we can tell when we've reached convergence
		_t						=> '',					# the number of DNA sequences
		_n 						=> '',					# the length of the DNA sequences
	);
	
	# Global variable counter