secmal/cmprsk: Fix typo
This commit is contained in:
parent
c353208702
commit
ac822f48fa
2
secmal.R
2
secmal.R
@ -80,7 +80,7 @@ sma_plot_secmal_cmprsk <- function() {
|
|||||||
cpr <- cuminc(secmal$time_at_risk / 365.25, secmal$time_at_risk_status)
|
cpr <- cuminc(secmal$time_at_risk / 365.25, secmal$time_at_risk_status)
|
||||||
ggcompetingrisks(cpr[1], conf.int = TRUE, multiple_panels = FALSE,
|
ggcompetingrisks(cpr[1], conf.int = TRUE, multiple_panels = FALSE,
|
||||||
legend = "none", title = "", ylim = c(0:1),
|
legend = "none", title = "", ylim = c(0:1),
|
||||||
xlab = "Year")
|
xlab = "Years")
|
||||||
}
|
}
|
||||||
|
|
||||||
# Calculate cumuative risk with ci from cuminc.
|
# Calculate cumuative risk with ci from cuminc.
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user