Another possibility:
<hansl>
function series my_list_mean3 (list L)
set skip_missing off
matrix m = {L}
matrix o = ok(m)
series r = sumr(o ? m : 0) ./ sumr(o)
return r
end function
</hansl>
-------------------------------------------------------
Riccardo (Jack) Lucchetti
Dipartimento di Scienze Economiche e Sociali (DiSES)
Università Politecnica delle Marche
(formerly known as Università di Ancona)
r.lucchetti(a)univpm.it
http://www2.econ.univpm.it/servizi/hpp/lucchetti
-------------------------------------------------------