marcelcosta/invivos
1
0
Fork 0
Code Issues 3 Pull Requests Projects Releases Wiki Activity

Solucionar el reparto de grupos.

Browse Source
This commit is contained in:
marcelcosta
2021-06-17 08:41:38 +02:00
parent 670d8f8a58
commit fc1c6c5341
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+2 -1
View File
@@ -155,7 +155,8 @@ server <- function(input, output) {
if ((nrow(df_temp)/ngroup) %% 2 == 0){ 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)) interr<-any(table(df_temp$group) < floor(nrow(df_temp)/ngroup) | table(df_temp$group) > ceiling(nrow(df_temp)/ngroup))
}else{ }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")] ind.list[[data]]<-df_temp[,c("ID animal", "ID tumor","group","Volume")]