From abfd703c4e0ac84659736f53bf1bc4bc54e61a30 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Fri, 7 Feb 2025 10:24:32 +0100
Subject: [PATCH] gnu: Add r-music.

* gnu/packages/bioinformatics.scm (r-music): New variable.

Change-Id: I3cf73fcb58f9a407d2795a4525038ab00d1b523f
---
 gnu/packages/bioinformatics.scm | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm
index b64baaf463423e08b79d349efca20cd15e761ff5..4670728c9a75c6c384e0e482260e2457d1599901 100644
--- a/gnu/packages/bioinformatics.scm
+++ b/gnu/packages/bioinformatics.scm
@@ -13276,6 +13276,38 @@ The generated output can be graphically summarized using the built-in plotting
 function.")
       (license license:gpl2))))
 
+(define-public r-music
+  (let ((commit "f21fe67f5670d5e9fca0ad7550abaae3423eb59c")
+        (revision "2"))
+    (package
+      (name "r-music")
+      (version (git-version "1.0.0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/xuranw/MuSiC")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "05q72sml35sw3rd0lyg7r9r3470q47x5dsjn4bpgzl99s5d76llx"))))
+      (properties `((upstream-name . "MuSiC")))
+      (build-system r-build-system)
+      (propagated-inputs (list r-biobase
+                               r-ggplot2
+                               r-matrix
+                               r-mcmcpack
+                               r-nnls
+                               r-singlecellexperiment
+                               r-toast))
+      (native-inputs (list r-knitr))
+      (home-page "https://github.com/xuranw/MuSiC")
+      (synopsis "Multi-subject single cell deconvolution")
+      (description
+       "MuSiC is a deconvolution method that utilizes cross-subject scRNA-seq
+to estimate cell type proportions in bulk RNA-seq data.")
+      (license license:gpl3+))))
+
 (define-public r-sleuth
   (package
     (name "r-sleuth")