On Tue, 10 Jun 2014, Riccardo (Jack) Lucchetti wrote:
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>
Now that's truly wicked ;-)
Allin