diff --git a/inst/ShinyApp/server.R b/inst/ShinyApp/server.R
index 0f82d9598532e11a8806f4893c3cf713bd726239..2dfc32ccac95f8cef49d9a6970976ece1eee6144 100644
--- a/inst/ShinyApp/server.R
+++ b/inst/ShinyApp/server.R
@@ -179,16 +179,12 @@ server <- function(input, output){
     param$pop_growth_mean <- round(min(1 + param$rMAX_species, input$pop_growth_mean), 2)
   })
 
+
   # Survival and fecundity calibration
   observeEvent({
     input$run
-    # input$species_choice
-    # input$pop_growth_mean
   },{
 
-    ##  Avoid unrealistic scenarios
-    #param$pop_growth_mean <- min(1 + param$rMAX_species, input$pop_growth_mean)
-
     param$vr_calibrated <- calibrate_params(
       inits = init_calib(s = param$survivals, f = param$fecundities, lam0 = param$pop_growth_mean),
       f = param$fecundities, s = param$survivals, lam0 = param$pop_growth_mean