/* MEAN, SEMEAN, STDDEV, SUM, VARIANCE, *.SUM. */
struct moments1 *moments;
/* MEAN, SEMEAN, STDDEV, SUM, VARIANCE, *.SUM. */
struct moments1 *moments;
{
struct caseproto *proto = caseproto_create ();
proto = caseproto_add_width (proto, 0);
{
struct caseproto *proto = caseproto_create ();
proto = caseproto_add_width (proto, 0);
- struct percentile *median = percentile_create (0.5, s->ovalid);
- struct order_stats *os = &median->parent;
+ struct percentile *ptile = percentile_create (
+ ss->function == CTSF_PTILE ? ss->percentile : 0.5, s->ovalid);
+ struct order_stats *os = &ptile->parent;
order_stats_accumulate_idx (&os, 1, reader, 1, 0);
order_stats_accumulate_idx (&os, 1, reader, 1, 0);
- s->ovalue = percentile_calculate (median, PC_HAVERAGE);
- statistic_destroy (&median->parent.parent);
+ s->ovalue = percentile_calculate (ptile, PC_HAVERAGE);
+ statistic_destroy (&ptile->parent.parent);