johrpan/ubigen
1
0
Fork 0
mirror of https://github.com/johrpan/ubigen.git synced 2025-10-26 19:57:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Reintroduce mean expression as metric

Browse source
This commit is contained in:
Elias Projahn 2022-06-06 15:56:34 +02:00
parent 0ee713a966
commit 882891da53
2 changed files with 17 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
R/server.R
View file

@ -2,11 +2,15 @@
#' @noRd
server <- function(input, output, session) {
ranked_data <- reactive({
total_weight <- abs(input$cross_sample_weight) + abs(input$sd_expression)
total_weight <- abs(input$cross_sample_weight) +
abs(input$mean_expression) +
abs(input$sd_expression)
data <- data.table::copy(ubigen::genes)
data[, score :=
(input$cross_sample_weight * get(input$cross_sample_metric) +
input$mean_expression * mean_expression_normalized +
input$sd_expression * sd_expression_normalized) /
total_weight]