From fc1c6c5341c168d4d871b3aa68a8d106e355a14b Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Thu, 17 Jun 2021 08:41:38 +0200 Subject: [PATCH] Solucionar el reparto de grupos. --- invivos/app.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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")]