Displaying 8 results from an estimated 8 matches for "ov_had_a_recurrence_code".
2018 Feb 10
1
please help me a little
...cna.rate" to first line. Can you run them and tell me why the first line does not run correctly?
please install coxphf package if you do not have it installed.
Thank you very much!!!
Ding
test<-read.csv("data_coxphf.csv", head=T)
res_coxphf <- coxphf(formula=Surv(RFS_days2, OV_Had_a_Recurrence_CODE) ~test[, 6], data=test)
res_coxphf2 <- coxphf(formula=Surv(RFS_days2, OV_Had_a_Recurrence_CODE) ~ test$FAM138A.chr1, data=test)
res_coxph <- coxph(formula=Surv(RFS_days2, OV_Had_a_Recurrence_CODE) ~ test[, 6], data=test)
res_coxphf_cnaRate <- coxphf(formula=Surv(RFS_days2, OV_Had_a_Recurr...
2018 Jan 14
2
consolidate three function into one
...t;-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) {palette <- c("red...
2018 Jan 15
2
consolidate three function into one
...ch!! 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", "green")
leg...
2018 Jan 14
0
consolidate three function into one
...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...
2018 Jan 15
0
consolidate three function into one
...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&qu...
2018 Jan 15
1
consolidate three function into one
...ch!! 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", "green")
leg...
2018 Jan 14
0
consolidate three function into one
...uded 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="Relapse Free Suvival (Days)&qu...
2018 Jan 14
0
consolidate three function into one
...luded 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="Relapse Free Suvival (Days)"...