[ea2224]: / inst / queries / datasetProbeSignature.xq

Download this file

7 lines (6 with data), 230 Bytes

1
2
3
4
5
6
;datasetProbeSignature
(fn [dataset samples probes weights]
(let [vals (fetch [{:table dataset
:samples samples
:columns probes}])]
(apply + (map (fn [w v] (* v w)) weights vals))))