--- a
+++ b/inst/queries/datasetGeneProbesValues.xq
@@ -0,0 +1,11 @@
+; datasetGeneProbesValues
+(fn [dataset samples genes]
+	(let [probemap (:probemap (car (query {:select [:probemap]
+										   :from [:dataset]
+										   :where [:= :name dataset]})))
+			position (xena-query {:select ["name" "position"] :from [probemap] :where [:in :any "genes" genes]})
+			probes (position "name")]
+	  [position
+		(fetch [{:table dataset
+				 :samples samples
+				 :columns probes}])]))