Small update

ui_scripts/uiDPSIKS.R

@@ -17,8 +17,9 @@ return(
                                selectizeInput(inputId = "dPSI2KS",label="Select one or more stages (second group for dPSI computation)",choices = colnames(KSMerged)[grep("stage.*",colnames(KSMerged))],selected=NULL,multiple=T),
                                numericInput("dPSInSampleKS",
                                             label = "Minimum number of sample required for the meanPSI estimation of each group:",
-                                            min = 0,
-                                            value = 2),
+                                            min = 1,
+                                            max = 5,
+                                            value = 5),
                                
                                h3("Event filter"),
                                selectizeInput(inputId = "dPSIeventKS",label="Select one or more event type to filter",choices = unique(KSMerged$eventType),selected=c("insertion","deletion","indel"),multiple=T),