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