diff --git a/invivos/app.R b/invivos/app.R
index 26d0151..f8f3fa5 100644
--- a/invivos/app.R
+++ b/invivos/app.R
@@ -155,7 +155,8 @@ server <- function(input, output) {
         if ((nrow(df_temp)/ngroup) %% 2 == 0){
           interr<-any(table(df_temp$group) < floor(nrow(df_temp)/ngroup) | table(df_temp$group) > ceiling(nrow(df_temp)/ngroup))  
         }else{
-          interr<-any(table(df_temp$group) < (floor(nrow(df_temp)/ngroup)-1) | table(df_temp$group) > (ceiling(nrow(df_temp)/ngroup)+1))
+          # interr<-any(table(df_temp$group) < (floor(nrow(df_temp)/ngroup)-1) | table(df_temp$group) > (ceiling(nrow(df_temp)/ngroup)+1))
+          interr<-diff(range(table(ind))) > 1
         }
       }
       ind.list[[data]]<-df_temp[,c("ID animal", "ID tumor","group","Volume")]