From e21beeea8b57c59e8a6aa00bbae765dfa675dabd Mon Sep 17 00:00:00 2001 From: Marcel Costa Date: Mon, 21 Feb 2022 14:59:56 +0100 Subject: [PATCH] Corregir problema con los cutoffs. --- invivos/app.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/invivos/app.R b/invivos/app.R index 07fc334..71b0a8f 100644 --- a/invivos/app.R +++ b/invivos/app.R @@ -142,6 +142,7 @@ server <- function(input, output) { df<-df[!is.na(df$Volume),] up_cuttof<-input$upcut low_cuttof<-input$lowcut + print(up_cuttof) df<-df[df$Volume <= up_cuttof & df$Volume >= low_cuttof,] @@ -183,11 +184,10 @@ server <- function(input, output) { if ("Group" %in% colnames(df_def)){ df_def<-df_def %>% select(-"Group") } - df_def<-merge(dades$taula %>% select(-Group), df_def[,c("ID animal", "group")], all=T) %>% select(c(`ID animal`, `ID tumor`, Volume, Cage, Major, Minor, group)) - + df_def[!paste0(df_def$`ID animal`, df_def$`ID tumor`) %in% paste0(df$`ID animal`, df$`ID tumor`),"group"]<-NA dades$db<-df_def - print(df_def) + ggplot(df_def, aes(group, Volume))+ geom_boxplot(outlier.alpha = F)+