search for: rfs_days

Displaying 7 results from an estimated 7 matches for "rfs_days".

Did you mean: rfs_days2
2018 Jan 14
0
consolidate three function into one
...s are included in an inputfile. Can you help me to consolidate the following three function into one functions? I thought about using if else function, but not sure how to do it. Thank you, Ding # function to generate RFS RFS2cluster <- function( inputfile ) { cluster2<- survfit(Surv(RFS_days, OV_Had_a_Recurrence_CODE) ~ clusters, data = inputfile) ggsurvplot(cluster2, data = inputfile, risk.table = F, palette = c("red", "black"), ylim=c(0,1), ggtheme = theme_bw(), xlab="Rela...
2018 Jan 14
2
consolidate three function into one
...2cluster <-RFS(inputfile =allinfo_m52, N=2 ) I do not get error message, but no figure displays on screen. I do not know what is going on. Can you help me a little more on this issue? Thank you, Ding # function to generate RFS RFS <- function( inputfile, N ) { cluster<- survfit(Surv(RFS_days2, OV_Had_a_Recurrence_CODE) ~ clusters, data = inputfile) if( N==2) {palette <- c("red", "black") legend.labs <- c("Cluster1", "Cluster2") } else if(N==3)...
2018 Jan 14
0
consolidate three function into one
...t; I do not get error message, but no figure displays on screen. I do not know what is going on. > > Can you help me a little more on this issue? > > Thank you, > > Ding > > # function to generate RFS > RFS <- function( inputfile, N ) { > cluster<- survfit(Surv(RFS_days2, OV_Had_a_Recurrence_CODE) ~ clusters, > data = inputfile) > > if( N==2) {palette <- c("red", "black") > legend.labs <- c("Cluster1", "Cluster2") >...
2018 Jan 14
0
consolidate three function into one
...es are included in an inputfile. Can you help me to consolidate the following three function into one functions? I thought about using if else function, but not sure how to do it. Thank you, Ding # function to generate RFS RFS2cluster <- function( inputfile ) { cluster2<- survfit(Surv(RFS_days, OV_Had_a_Recurrence_CODE) ~ clusters, data = inputfile) ggsurvplot(cluster2, data = inputfile, risk.table = F, palette = c("red", "black"), ylim=c(0,1), ggtheme = theme_bw(), xlab="Relaps...
2018 Jan 15
2
consolidate three function into one
...k you so much!! I understand the problem now, I assign a name to the "ggsurvplot" object and then add print(fig) at bottom of function definition, now figure gets printed on screen. Ding # function to generate RFS curves RFS <- function( inputfile, N ) { cluster<- survfit(Surv(RFS_days2, OV_Had_a_Recurrence_CODE) ~ clusters, data = inputfile) if( N==2) {palette <- c("red", "black") legend.labs <- c("Cluster1", "Cluster2") } else if(N==3) {palette <- c("red", "black&quot...
2018 Jan 15
0
consolidate three function into one
...lem now, I assign a name to the > "ggsurvplot" object and then add print(fig) at bottom of function > definition, now figure gets printed on screen. > > Ding > > # function to generate RFS curves > RFS <- function( inputfile, N ) { > cluster<- survfit(Surv(RFS_days2, OV_Had_a_Recurrence_CODE) ~ clusters, > data = inputfile) > if( N==2) {palette <- c("red", "black") > legend.labs <- c("Cluster1", "Cluster2") > } > > else if(N==3) {palette <- c(&quo...
2018 Jan 15
1
consolidate three function into one
...k you so much!! I understand the problem now, I assign a name to the "ggsurvplot" object and then add print(fig) at bottom of function definition, now figure gets printed on screen. Ding # function to generate RFS curves RFS <- function( inputfile, N ) { cluster<- survfit(Surv(RFS_days2, OV_Had_a_Recurrence_CODE) ~ clusters, data = inputfile) if( N==2) {palette <- c("red", "black") legend.labs <- c("Cluster1", "Cluster2") } else if(N==3) {palette <- c("red", "black&quot...