combine-stats ( stats1 stats2 -- stats3 )

Vocabulary

math.statistics.running

Inputs

stats1	an object
stats2	an object

Outputs

stats3

an object

Definition

USING: accessors kernel math math.order ;

IN: math.statistics.running

:: combine-stats ( stats1 stats2 -- stats3 )
    stats1 n>> :> n1 stats2 n>> :> n2 n1 n2 +
    dup :> n stats1 stats2 [ min>> ] bi@ min stats1 stats2
    [ max>> ] bi@ max stats1 stats2 [ sum>> ] bi@ +
    stats1 stats2 [ mom1>> ] bi@ -
    :> delta delta sq :> delta2 delta delta2 *
    :> delta3 delta2 delta2 * :> delta4 n1 stats1 mom1>> *
    n1 stats2 mom1>> * + n / stats1 stats2 [ mom2>> ] bi@ +
    delta2 n1 * n2 * n / + stats1 stats2 [ mom3>> ] bi@ +
    delta3 n1 * n2 * n1 n2 - * n sq / + delta 3 *
    n1 stats2 mom2>> * n2 stats1 mom2>> * - * n ~64 more~ ;