Download this file
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))))