Branch Coverage

lib/PDL/Stats/GLM.pd
Criterion Covered Total %
branch 161 272 59.1


line true false branch
497 109 12 if ($opt)
498 4 117 unless ($broadcasted)
500 0 4 if $y->getndims > 1
503 3 118 if $ivs->getndims == 1
504 4 117 unless $broadcasted
507 14 107 if $opt{'CONST'}
518 129 12 if ($opt)
524 137 4 $broadcasted ? :
530 1 136 if $broadcasted and $coeff->getndims == 1 and $y->getndims > 1
534 137 4 $broadcasted ? :
535 0 141 if $opt{'PLOT'}
536 135 6 unless wantarray
538 5 1 $opt{'CONST'} ? :
542 5 1 $opt{'CONST'} ? :
546 0 6 if $CDF
548 2 4 unless ($broadcasted)
549 2 0 $coeff->dims ? :
551 2 0 if $opt{'CONST'}
553 2 0 if ($ivs->dim(1) > 1) { }
554 2 0 $opt{'CONST'} ? :
555 0 2 !$opt{'CONST'} ? :
558 2 0 if $opt{'CONST'}
570 0 2 if $CDF
573 46 0 if ref $ret{$_} eq "PDL"
643 1 0 if $ivs0->getndims == 1
657 0 1 if $CDF
660 3 2 if ref $ret{$_} eq "PDL"
810 0 77 if $_->isempty
834 0 49 if $num == 0 or $num > @$arr
837 49 85 unless @pick
841 49 36 if $i < 0
961 19 1 ref $_[-1] eq 'HASH' ? :
963 0 20 if $y->ndims != 1
965 0 20 if ref $ivs_raw[0] eq "ARRAY" and @{$ivs_raw[0];} != $y->nelem
967 0 43 if ref $_ eq "PDL" and $_->squeeze->ndims > 1
969 6 14 !defined($subj) ? :
978 19 1 if ($opt)
980 3 17 unless $opt{'IVNM'} and @{$opt{'IVNM'};}
982 0 20 if any(($dsgn->t x $dsgn)->det == 0)
989 14 6 if (defined $subj) { }
994 9 5 if $has_btwn
997 68 54 $k > $ivs_ref->$#* ? :
998 68 54 $k > $ivs_ref->$#* ? :
999 14 108 $k == $#full ? :
1001 25 97 if (not defined $full[$k]) { }
80 17 elsif (ref $full[$k]) { }
1004 5 20 ref $full[-1] ? :
1006 0 25 if $df <= 0
1010 0 80 unless my(@G) = grep(($_ != $k && defined $full[$_]), 0 .. $#full)
1014 5 75 $k == $#full ? :
1015 75 5 if ($k != $#full)
1017 0 75 if $df <= 0
1022 9 8 $k == $#full ? :
1023 8 9 if ($k != $#full)
1025 0 8 if $df <= 0
1036 0 6 if $CDF and $df1 > 0
1048 1 23 if $df1 <= 0
1054 54 23 defined $subj ? :
1057 0 77 if $CDF and $df1 > 0
1061 416 154 if ref $ret{$_} eq "PDL"
1072 14 5 if (defined $subj)
1083 0 19 if $opt{'PLOT'}
1123 25 0 ref $_[-1] eq 'HASH' ? :
1125 0 25 unless @ivs_raw
1126 0 25 if $y->ndims != 1
1128 0 53 if ref $_ eq "PDL" and $_->squeeze->ndims > 1
1130 7 18 !defined($subj) ? :
1137 25 0 if ($opt)
1139 2 23 unless $opt{'IVNM'} and @{$opt{'IVNM'};}
1146 18 7 if (defined $subj) { }
1151 4 14 if ($sj_bad->nelem)
1153 0 4 if $opt{'V'}
1164 0 7 if ($opt{'V'} and $y->nelem < $pdl_ivs_raw[0]->nelem)
1176 7 18 !defined($subj) ? :
1179 0 32 unless $null_row_ids->isempty
1183 5 20 !wantarray ? :
1229 19 45 !$has_btwn ? :
1230 19 45 !$has_btwn ? :
1231 11 24 unless defined $ie_subj or @wn
1232 51 13 @wn ? :
1234 31 33 if (@wn == @$raw_ivs - @$btwn) { }
2 31 elsif (not @wn and $_ > $ie_subj) { }
6 25 elsif ($_ > $idv2indx{$err}) { }
14 11 elsif (@wn) { }
1242 11 7 $has_btwn ? :
1249 54 54 /^\| (.+?) \| se$/ ? :
1254 42 12 $icollapsed->nelem ? :
1330 2 169 if $var_max < 1
1333 1 168 if $var->badflag
1334 78 91 wantarray ? :
1360 0 0 wantarray ? :
0 1 if $var_e->sum == 0
1366 0 1 wantarray ? :
1478 8 0 unless $y->check_badflag or $ivs->check_badflag
1536 0 1 if $y->getndims > 1
1539 3 0 ref $_ eq 'PDL' ? :
0 3 if (ref $_ eq 'PDL' and $_->ndims > 1) { }
1604 0 1 if $CDF
1691 0 0 if $ivs->getndims == 1
1692 0 0 if $self->dim(0) != $ivs->dim(0)
1699 0 0 if ($opt)
1711 0 0 unless wantarray
1715 0 0 if $opt{'COV'}
1722 0 0 if $CDF
1724 0 0 if ($ivs->dim(1) > 1) { }
1745 0 0 if $CDF
1749 0 0 if ref $ret{$_} eq "PDL"
1853 3 0 if ($opt)
1854 2 1 $opt{'CORR'} ? :
1865 2 1 if ($opt{'CORR'}) { }
1873 0 3 if $opt{'PLOT'}
1929 0 1 if ($opt)
1943 1 0 wantarray ? :
1980 0 0 ref $_[-1] eq 'HASH' ? :
1983 0 0 if ($self->ndims > 4)
1994 0 0 if ($opt)
2003 0 0 if defined $se
2006 0 0 if $opt{'AUTO'}
2018 0 0 if $nx > 1
2019 0 0 if $ny > 1
2025 0 0 if defined $se
2034 0 0 !defined($se) ? :
2069 0 0 ref $_[-1] eq 'HASH' ? :
2078 0 0 if ($opt)
2116 0 0 ref $_[-1] eq 'HASH' ? :
2127 0 0 if ($opt)
2129 0 0 $opt{'CORR'} ? :
2176 0 0 ref $_[-1] eq 'HASH' ? :
2187 0 0 if ($opt)
2188 0 0 if $ncomp
2191 0 0 $self->dim(0) < $opt{'NCOMP'} ? :
2194 0 0 unless defined $opt{'CUT'}
2199 0 0 !$opt{'CUT'} ? :
2230 0 0 ref $_[-1] eq 'HASH' ? :
2237 0 0 if ($opt)
2239 0 0 unless $opt{'IVNM'} and @{$opt{'IVNM'};}