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

Corregir problema con los cutoffs.

Browse Source
This commit is contained in:
Marcel Costa
2022-02-21 14:59:56 +01:00
parent 3489faefc2
commit e21beeea8b
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+3 -3
View File
@@ -142,6 +142,7 @@ server <- function(input, output) {
df<-df[!is.na(df$Volume),] df<-df[!is.na(df$Volume),]
up_cuttof<-input$upcut up_cuttof<-input$upcut
low_cuttof<-input$lowcut low_cuttof<-input$lowcut
print(up_cuttof)
df<-df[df$Volume <= up_cuttof & df$Volume >= low_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)){ if ("Group" %in% colnames(df_def)){
df_def<-df_def %>% select(-"Group") 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<-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 dades$db<-df_def
print(df_def)
ggplot(df_def, aes(group, Volume))+ ggplot(df_def, aes(group, Volume))+
geom_boxplot(outlier.alpha = F)+ geom_boxplot(outlier.alpha = F)+