From 1e051abf758cf79339b25fa777f99954ea36436f Mon Sep 17 00:00:00 2001 From: marcelcosta Date: Fri, 13 Nov 2020 19:59:55 +0100 Subject: [PATCH] Error3 --- invivos/app.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/invivos/app.R b/invivos/app.R index d614c87..bb0ee06 100644 --- a/invivos/app.R +++ b/invivos/app.R @@ -539,15 +539,15 @@ server <- function(input, output) { g_surv_vacc<-g }else{ + tableR<-table %>% filter(!is.na(Volume)) + endtime<-dcast(tableR %>% filter(Volume < cutoff), `ID animal`+Group~., value.var = "Timepoint", fun.aggregate = function(x){max(as.numeric(as.character(x)))}) %>% rename("end"=".") + endtime["Dead"]<-dcast(tableR, `ID animal`+Group~., value.var = "Volume", fun.aggregate = function(x){max(as.numeric(as.character(x)))}) %>% pull(".") > input$cutoff + table_tumor<-endtime if (input$colors != ""){ col<-input$colors }else{ col<-gg_color_hue(length(unique(table_tumor$Group))) } - tableR<-table %>% filter(!is.na(Volume)) - endtime<-dcast(tableR %>% filter(Volume < cutoff), `ID animal`+Group~., value.var = "Timepoint", fun.aggregate = function(x){max(as.numeric(as.character(x)))}) %>% rename("end"=".") - endtime["Dead"]<-dcast(tableR, `ID animal`+Group~., value.var = "Volume", fun.aggregate = function(x){max(as.numeric(as.character(x)))}) %>% pull(".") > input$cutoff - table_tumor<-endtime g<-ggsurvplot(survfit(Surv(table_tumor$end, table_tumor$Dead) ~ table_tumor$Group, data=table_tumor), pval = T, pval.method = T, # legend.labs = paste(c("< median", ">= median"), "MICA"),