File Coverage

blib/lib/GitInsight/Util.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package GitInsight::Util;
use base 'Exporter';
use GitInsight::Obj -strict;
use Time::Local;
use PDL::LiteF;
use PDL::Lite;
use PDL::Stats;
use PDL::Ops;

# EVENTS LABELS:
use constant NO_CONTRIBUTIONS     => 0;
use constant FEW_CONTRIBUTIONS    => 1;
use constant NORMAL_CONTRIBUTIONS => 2;
use constant MORE_CONTRIBUTIONS   => 3;
use constant HIGH_CONTRIBUTIONS   => 4;

# LABEL ARRAY:
our @CONTRIBS = (
    NO_CONTRIBUTIONS,     FEW_CONTRIBUTIONS,
    NORMAL_CONTRIBUTIONS, MORE_CONTRIBUTIONS,
    HIGH_CONTRIBUTIONS
);

our %CA_COLOURS = (
    +NO_CONTRIBUTIONS()     => [ 238, 238, 238 ],
    +FEW_CONTRIBUTIONS()    => [ 214, 230, 133 ],
    +NORMAL_CONTRIBUTIONS() => [ 140, 198, 101 ],
    +MORE_CONTRIBUTIONS()   => [ 68,  163, 64 ],
    +HIGH_CONTRIBUTIONS()   => [ 30,  104, 35 ]
);

# LABEL DIMENSION, STARTING TO 0

use constant LABEL_DIM => 4;    # D:5 0 to 4

our @EXPORT    = qw(info error warning);
our @EXPORT_OK = (
    qw(markov_prob markov gen_m_mat dim gen_trans_mat markov_list LABEL_DIM wday label prob label_step
        ),
    @EXPORT
);
our @wday = qw/Mon Tue Wed Thu Fri Sat Sun/;

# to compute
our %LABEL_STEPS = (
    +NO_CONTRIBUTIONS()     => 0,
    +FEW_CONTRIBUTIONS()    => 0,
    +NORMAL_CONTRIBUTIONS() => 0,
    +MORE_CONTRIBUTIONS()   => 0,
    +HIGH_CONTRIBUTIONS()   => 0,
);

sub info {
    print "[info] - @_  \n";
}

sub error {
    print STDERR "[error] - @_  \n";
}

sub warning {
    print "[warning] - @_  \n";
}

sub wday {    # 2014-03-15 -> DayName  ( Dayname element of @wday )
    my ( $mday, $mon, $year ) = reverse( split( /-/, shift ) );
    return
        $wday[ ( localtime( timelocal( 0, 0, 0, $mday, $mon - 1, $year ) ) )
        [6] - 1 ];
}

sub gen_trans_mat {
    my $no_day_stats = shift || 0;
    return zeroes scalar(@CONTRIBS), scalar(@CONTRIBS)
        if ($no_day_stats);
    my $h = {};
    $h->{$_} = zeroes scalar(@CONTRIBS), scalar(@CONTRIBS) for @wday;
    return $h;
}

sub gen_m_mat {
    my $label = shift;
    my $h = zeroes( scalar(@CONTRIBS), 1 );
    $h->slice("$label,0") .= 1;
    return $h;
}

sub markov {
    my $a   = shift;
    my $b   = shift;
    my $pow = shift || 1;
    return ( $pow != 1 ) ? $a x (powering($b,$pow)) : $a x $b;
}

sub powering($){
    my $a=shift->copy;
    my $pow=shift;
     $a=$a x $a  for 1..$pow-1;
     return $a;
}

sub markov_list {
    my $a   = shift;
    my $b   = shift;
    my $pow = shift || 1;
    return [ list( &markov( $a, $b, $pow ) ) ];

}

sub markov_prob {
    my $a      = shift;
    my $b      = shift;
    my $pow    = shift || 1;
    my $markov = &markov( $a, $b, $pow );
    my $index  = maximum_ind($markov)->at(0);
    return ( $index, $markov->slice("$index,0")->at( 0, 0 ) );
}

sub label {
    return NO_CONTRIBUTIONS if ( $_[0] == 0 );
    return FEW_CONTRIBUTIONS
        unless ( $_[0] > $LABEL_STEPS{ +FEW_CONTRIBUTIONS() } );
    return NORMAL_CONTRIBUTIONS
        unless ( $_[0] > $LABEL_STEPS{ +NORMAL_CONTRIBUTIONS() } );
    return MORE_CONTRIBUTIONS
        unless ( $_[0] > $LABEL_STEPS{ +MORE_CONTRIBUTIONS() } );
    return HIGH_CONTRIBUTIONS;
}

sub label_step {
    my @commits_count = @_;

#Each cell in the graph is shaded with one of 5 possible colors. These colors correspond to the quartiles of the normal distribution over the range [0, max(v)] where v is the sum of issues opened, pull requests proposed and commits authored per day.
#XXX: next i would implement that in pdl
    $LABEL_STEPS{ +FEW_CONTRIBUTIONS() }
        = $commits_count[ int( scalar @commits_count / 4 ) ];
    $LABEL_STEPS{ +NORMAL_CONTRIBUTIONS() }
        = $commits_count[ int( scalar @commits_count / 2 )];
    $LABEL_STEPS{ +MORE_CONTRIBUTIONS() }
        = $LABEL_STEPS{ +HIGH_CONTRIBUTIONS() }
        = $commits_count[ 3 * int( scalar @commits_count / 4 ) ];

    # &info("FEW_CONTRIBUTIONS: ".$LABEL_STEPS{ +FEW_CONTRIBUTIONS() });
    # &info("NORMAL_CONTRIBUTIONS: ".$LABEL_STEPS{ +NORMAL_CONTRIBUTIONS() });
    # &info("MORE_CONTRIBUTIONS: ".$LABEL_STEPS{ +MORE_CONTRIBUTIONS() });
}

sub prob {
    my $x = zeroes(100)->xlinvals( 0, 1 );  # 0 padding from 0->1 of 100 steps
    return $x->index(    #find the index within the matrix probs
        maximum_ind(     #takes the maximum index of the funct
            pdf_beta( $x, ( 1 + $_[1] ),
                ( 1 + $_[0] - $_[1] ) )    #y: happens vs not happens
        )
    );
}

1;

__END__