Fix cluster length slider

This commit is contained in:
Elias Projahn 2021-09-19 09:57:27 +02:00
parent 03be4bfe5d
commit 22b25c9b83
2 changed files with 3 additions and 4 deletions

View file

@ -29,7 +29,7 @@ server <- function(input, output) {
cluster_max <- results[, max(cluster_length)]
results[, cluster_score := cluster_length / cluster_max]
results[, score := input$clustering / 100 * cluster_score +
input$correlation / 100 * r_mean]