winsorized-mean ( seq p -- x )

Vocabulary

math.statistics

Inputs

seq	an object
p	an object

Outputs

x

an object

Definition

USING: arrays kernel math math.statistics.private sequences
sorting ;

IN: math.statistics

: winsorized-mean ( seq p -- x )
    swap sort trim-points
    [ <slice> ] [ nip dupd nth <array> ]
    [ [ 1 - ] dip nth <array> ] 3tri surround mean ;