!if $wims_read_parm!=slib_header
  !goto proc
!endif

slib_parms=1\
 ,[data] or [data],[weight]
slib_author=Adeline, Grelot

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
