On Tue, 10 Jun 2014, Allin Cottrell wrote:
For example:
<hansl>
function matrix deselected (list L1, list L2)
matrix vd = L1
loop i=1..cols(vd) --quiet
vd[i] = !inlist(L2, L1[i])
endloop
return vd
end function
open data4-10
ols 1 0 2 3 4 5 6
L1 = $xlist
omit --auto=.05
L2 = $xlist
matrix Ldiff = deselected(L1, L2)
print Ldiff
</hansl>
Or, alternatively,
<hansl>
function matrix deselected (list L1, list L2)
matrix m1 = L1
matrix m2 = L2
return !sumc(m1 .= m2')
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
-------------------------------------------------------