Skip to content
Browse files

Full GSL statistics module for Perl

  • Loading branch information...
1 parent c73b567 commit 8e8b8a1b31bb50de6577d52d79878fedb62abae5 @pjotrp committed Apr 9, 2009
Showing with 11 additions and 3 deletions.
  1. +11 −3 src/mappings/swig/perl/test/test_gsl.pl
View
14 src/mappings/swig/perl/test/test_gsl.pl
@@ -1,6 +1,14 @@
use ascilib::gsl;
-my $result = gsl::gsl_stats_mean([3,4,5,7],1,4);
-print "returns $result!\n";
+my $data = [
+ 17, 18, 16, 18, 12,
+ 20, 18, 20, 20, 22,
+ 20, 10, 8, 12, 16,
+ 16, 18, 20, 18, 21
+ ];
-exit ($result != 4.75);
+my $result1 = gsl::gsl_stats_kurtosis($data, 1, 20);
+my $result2 = gsl::gsl_stats_mean([3,4,5,7],1,4);
+print "returns $result1 and $result2!\n";
+
+exit ($result2 != 4.75);

0 comments on commit 8e8b8a1

Please sign in to comment.
Something went wrong with that request. Please try again.