feat: Return x values from getTxDensity

For inclusion in MultiQC reports
bioinformaticsorphanage · Sep 27, 2024 · a78682b · a78682b
1 parent 8afc8a6
commit a78682b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/getTxDensity.R b/R/getTxDensity.R
@@ -170,8 +170,8 @@ getTxDensity <- function(tx, annox, plot=TRUE, scale=1000L, nSampling=0L,
     TP <- trap.rule(1:scale, profile[(scale+1):(scale*2)])/scale
     PostTTS <- trap.rule(1:scale, profile[(scale*2+1):(scale*3)])/scale
     TUA <- (TP + (TP- FivePrimeFP))/(1 + TP)
-    return(list(FivePrimeFP=FivePrimeFP, TP=TP, PostTTS=PostTTS, TUA=TUA))
-
+    x_values <- -(up*scale):(down*scale-1)
+    return(list(FivePrimeFP=FivePrimeFP, TP=TP, PostTTS=PostTTS, TUA=TUA, x=x_values, profile=profile))
 }
 
 getWP <- function (lv, lw) {

diff --git a/conda.recipe/recipe.yaml b/conda.recipe/recipe.yaml
@@ -3,7 +3,7 @@
 schema_version: 1
 
 context:
-  version: 1.36.1
+  version: 1.37.0
   name: groHMM
   bioc: 3.18