|
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 |
}
|