Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
 !goto proc
!endif
slib_title=Arithmetic mean of statistical data
slib_parms=1\
 ,[data] or [data],[weight]
slib_author=Adeline Grelot
slib_out=arithmetic mean with weights, total weight
slib_comment=Data and weight can be recognized under many formats, \
 in particular as a matrix (with data before weight).
slib_example=[1,2;3,4;3,5]\
 [1,3,3],[2,4,5]
slib_require=pari
!exit

:proc

!readproc slib/stat/dataproc $wims_read_parm
!if $slib_cnt =0
        slib_out=0
        !exit
!else
        !if $slib_weight=$empty
                slib_data=!sum x for x in $slib_data
                slib_out=$[($slib_data)/$slib_cnt],$slib_cnt
                slib_out =!trim $slib_out
                !exit
        !else
                slib_out=!exec pari print(([$slib_data]*[$slib_weight]~)/$slib_tw","$slib_tw);
                slib_out =!trim $slib_out
        !endif
!endif