--- a
+++ b/inst/queries/datasetProbeSignature.xq
@@ -0,0 +1,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))))