diff --git a/server.R b/server.R
index 785efd4..251fae7 100644
--- a/server.R
+++ b/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]
 
diff --git a/ui.R b/ui.R
index 58b3afd..625a1b6 100644
--- a/ui.R
+++ b/ui.R
@@ -27,9 +27,8 @@ ui <- fluidPage(
                 "length",
                 "Minimum cluster size",
                 min = 0,
-                max = 50,
-                value = c(0, 15),
-                step = 0.1
+                max = 30,
+                value = 10
             )
         ),
         wellPanel(