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"...
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"...