mirror of
https://github.com/johrpan/geposanui.git
synced 2025-10-26 11:17:24 +01:00
Fix cluster length slider
This commit is contained in:
parent
03be4bfe5d
commit
22b25c9b83
2 changed files with 3 additions and 4 deletions
2
server.R
2
server.R
|
|
@ -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]
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue