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

Corregir error survival.

Browse Source
This commit is contained in:
marcelcosta
2020-11-13 19:48:16 +01:00
parent ac2630acd3
commit 071b9ab139
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+5 -1
View File
@@ -521,7 +521,7 @@ server <- function(input, output) {
tableR<-filter(table, `ID tumor` == side) %>% filter(!is.na(Volume)) tableR<-filter(table, `ID tumor` == side) %>% filter(!is.na(Volume))
endtime<-dcast(tableR %>% filter(Volume < cutoff), Cage+`ID animal`+`ID tumor`+Group~., value.var = "Timepoint", fun.aggregate = function(x){max(as.numeric(as.character(x)))}) %>% rename("end"=".") endtime<-dcast(tableR %>% filter(Volume < cutoff), Cage+`ID animal`+`ID tumor`+Group~., value.var = "Timepoint", fun.aggregate = function(x){max(as.numeric(as.character(x)))}) %>% rename("end"=".")
endtime["Dead"]<-dcast(tableR, Cage+`ID animal`+`ID tumor`+Group~., value.var = "Volume", fun.aggregate = function(x){max(as.numeric(as.character(x)))}) %>% pull(".") > input$cutoff endtime["Dead"]<-dcast(tableR, Cage+`ID animal`+`ID tumor`+Group~., value.var = "Volume", fun.aggregate = function(x){max(as.numeric(as.character(x)))}) %>% pull(".") > input$cutoff
table_tumor<<-endtime table_tumor<-endtime
if (input$colors != ""){ if (input$colors != ""){
col<-input$colors col<-input$colors
}else{ }else{
@@ -544,6 +544,10 @@ server <- function(input, output) {
}else{ }else{
col<-gg_color_hue(length(unique(table_tumor$Group))) 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), g<-ggsurvplot(survfit(Surv(table_tumor$end, table_tumor$Dead) ~ table_tumor$Group, data=table_tumor),
pval = T, pval.method = T, pval = T, pval.method = T,
# legend.labs = paste(c("< median", ">= median"), "MICA"), # legend.labs = paste(c("< median", ">= median"), "MICA"),