diff --git a/functions/infoStateMassageHandler.R b/functions/infoStateMassageHandler.R
index 2ff5c53..6bd2491 100644
--- a/functions/infoStateMassageHandler.R
+++ b/functions/infoStateMassageHandler.R
@@ -33,42 +33,42 @@ infoStateMassageHandler <- function(info_state, output) {
            output$info2 <- renderText(appData$selected_dir)
            output$info3 <- renderText("Could not be processed. Wrong lock-mass?")
            msg <- paste0("'", basename(appData$selected_dir), "' could not be processed. Wrong lock-mass?")
-           showNotification(msg, duration = 5, type = "error")
+           showNotification(msg, duration = 15, type = "error")
          },
          "fitErrorNorm" = {
            output$info1 <- renderText(("Dataset:"))
            output$info2 <- renderText(appData$selected_dir)
            output$info3 <- renderText("Could not be processed. Wrong normalization-mass?")
            msg <- paste0("'", basename(appData$selected_dir), "' could not be processed. Wrong normalization-mass?")
-           showNotification(msg, duration = 5, type = "error")
+           showNotification(msg, duration = 15, type = "error")
          },
          "RefMzError" = {
            output$info1 <- renderText(("Dataset:"))
            output$info2 <- renderText(appData$selected_dir)
            output$info3 <- renderText("Could not be processed. Increase tolerance?")
            msg <- paste0("'", basename(appData$selected_dir), "' could not be processed. Increase tolerance?")
-           showNotification(msg, duration = 5, type = "error")
+           showNotification(msg, duration = 15, type = "error")
          },
          "fitErrorOther" = {
            output$info1 <- renderText(("Dataset:"))
            output$info2 <- renderText(appData$selected_dir)
            output$info3 <- renderText("Could not be processed. Unknown error.")
            msg <- paste0("'", basename(appData$selected_dir), "' could not be processed. Unknown error")
-           showNotification(msg, duration = 5, type = "error")
+           showNotification(msg, duration = 15, type = "error")
          },
          "loadErrorNum" = {
            output$info1 <- renderText(("Failed to load:"))
            output$info2 <- renderText(appData$selected_dir)
            output$info3 <- renderText("All folders need to have concentrations as names.")
            msg <- paste0("Faild to load '", basename(appData$selected_dir), "'. All folders need to have concentrations as names.")
-           showNotification(msg, duration = 5, type = "error")
+           showNotification(msg, duration = 15, type = "error")
          },
          "loadErrorFormat" = {
            output$info1 <- renderText(("Failed to load:"))
            output$info2 <- renderText(appData$selected_dir)
            output$info3 <- renderText("Wrong file format.")
            msg <- paste0("Faild to load '", basename(appData$selected_dir), "'. Wrong file format.")
-           showNotification(msg, duration = 5, type = "error")
+           showNotification(msg, duration = 15, type = "error")
          }
   )
 
diff --git a/req.txt b/req.txt
index 7439f05..e4eb721 100644
--- a/req.txt
+++ b/req.txt
@@ -25,3 +25,4 @@ latrend
 dtwclust
 readr
 clValid
+clusterCrit