version 1.127, 2017/12/18 23:51:19
|
version 1.128, 2018/03/07 12:24:27
|
Line 1672 sub compute_discrimination_factor {
|
Line 1672 sub compute_discrimination_factor {
|
my $number_to_grab = int(scalar(@{$ranking})/4); |
my $number_to_grab = int(scalar(@{$ranking})/4); |
my $num_students = scalar(@{$ranking}); |
my $num_students = scalar(@{$ranking}); |
my @BottomSet = map { $_->[&Apache::loncoursedata::RNK_student()]; |
my @BottomSet = map { $_->[&Apache::loncoursedata::RNK_student()]; |
} @{$ranking}[0..$number_to_grab]; |
} @{$ranking}[0..$number_to_grab-1]; |
my @TopSet = |
my @TopSet = |
map { |
map { |
$_->[&Apache::loncoursedata::RNK_student()]; |
$_->[&Apache::loncoursedata::RNK_student()]; |
} @{$ranking}[-$number_to_grab..0]; |
} @{$ranking}[-$number_to_grab..-1]; |
if (! @BottomSet || (@BottomSet == 1 && $BottomSet[0] eq '') || |
if (! @BottomSet || (@BottomSet == 1 && $BottomSet[0] eq '') || |
! @TopSet || (@TopSet == 1 && $TopSet[0] eq '')) { |
! @TopSet || (@TopSet == 1 && $TopSet[0] eq '')) { |
return 'nan'; |
return 'nan'; |