Blame doc/examples/statsort.c

Packit 67cb25
#include <stdio.h>
Packit 67cb25
#include <gsl/gsl_sort.h>
Packit 67cb25
#include <gsl/gsl_statistics.h>
Packit 67cb25
Packit 67cb25
int
Packit 67cb25
main(void)
Packit 67cb25
{
Packit 67cb25
  double data[5] = {17.2, 18.1, 16.5, 18.3, 12.6};
Packit 67cb25
  double median, upperq, lowerq;
Packit 67cb25
Packit 67cb25
  printf ("Original dataset:  %g, %g, %g, %g, %g\n",
Packit 67cb25
         data[0], data[1], data[2], data[3], data[4]);
Packit 67cb25
Packit 67cb25
  gsl_sort (data, 1, 5);
Packit 67cb25
Packit 67cb25
  printf ("Sorted dataset: %g, %g, %g, %g, %g\n",
Packit 67cb25
         data[0], data[1], data[2], data[3], data[4]);
Packit 67cb25
Packit 67cb25
  median 
Packit 67cb25
    = gsl_stats_median_from_sorted_data (data, 
Packit 67cb25
                                         1, 5);
Packit 67cb25
Packit 67cb25
  upperq 
Packit 67cb25
    = gsl_stats_quantile_from_sorted_data (data, 
Packit 67cb25
                                           1, 5,
Packit 67cb25
                                           0.75);
Packit 67cb25
  lowerq 
Packit 67cb25
    = gsl_stats_quantile_from_sorted_data (data, 
Packit 67cb25
                                           1, 5,
Packit 67cb25
                                           0.25);
Packit 67cb25
Packit 67cb25
  printf ("The median is %g\n", median);
Packit 67cb25
  printf ("The upper quartile is %g\n", upperq);
Packit 67cb25
  printf ("The lower quartile is %g\n", lowerq);
Packit 67cb25
  return 0;
Packit 67cb25
}