Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
(defn top-n-seq [sample-name n]
(let [aa-seq-fields ["?aa" "?v" "?j" "?sn" "?nc" "?c" "?nf" "?rf" "?cdr3"]
sample-name-seqs (<- aa-seq-fields
(aa-seqs :>> aa-seq-fields)
(= ?sn sample-name))]
(<- aa-seq-fields ((c/first-n sample-name-seqs n :sort ["?nc"] :reverse true)
:>> aa-seq-fields))))
(defn top-n-seq [sample-name n]
(let [aa-seq-fields ["?aa" "?v" "?j" "?sn" "?nc" "?c" "?nf" "?rf" "?cdr3"]
sample-name-seqs (<- aa-seq-fields
(aa-seqs :>> aa-seq-fields)
(= ?sn sample-name))]
(<- aa-seq-fields ((c/first-n sample-name-seqs n :sort ["?nc"] :reverse true)
:>> aa-seq-fields))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.