Add topX method to quant group filters

CSBiology · Jan 21, 2022 · db00214 · db00214
1 parent d9345b1
commit db00214
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/src/ProteomIQon/DTO.fs b/src/ProteomIQon/DTO.fs
@@ -292,6 +292,7 @@ module Common =
     type GroupFilter = 
         | Tukey of float  
         | Stdev of float
+        | TopX  of int
 
 
     module GroupFilter =
@@ -310,7 +311,14 @@ module Common =
                     let mean = Seq.mean values
                     let stdev = Seq.stDev values
                     (fun v -> v <= (mean+stdev*threshold) && v >= (mean-stdev*threshold)
-                    ) 
+                    )
+            | TopX count ->
+                fun (values:seq<float>) -> 
+                    let topX =
+                        values
+                        |> Seq.sortDescending
+                        |> Seq.take count
+                    fun v -> topX |> Seq.contains v
 
 
     module LabeledProteinQuantification =