devtools::load_all()
library(survival)
KM <- survfit(Surv(rectime, censrec) ~ hormon, data = brcancer)
time_scale <- seq(0, max(brcancer$rectime), by = 365)
p <- KMunicate(fit = KM, time_scale = time_scale, .reverse = TRUE, .title = "Here is a title")
ggsave(p, filename = "test.png", dev = ragg::agg_png, height = 7, width = 7, dpi = 300)
p2 <- KMunicate(fit = KM, time_scale = time_scale, .reverse = TRUE)
ggsave(p2, filename = "test2.png", dev = ragg::agg_png, height = 7, width = 7, dpi = 300)
#
data("cancer2", package = "KMunicate")
cancer2$biomarker1 <- factor(
ifelse(cancer2$drug == 1, 1, 2),
labels = c("A <= 5", "A > 5")
)
KM <- survfit(Surv(studytime, died == 1) ~ biomarker1, data = cancer2)
time_scale <- seq(0, max(cancer2$studytime), length.out = 5)
KMunicate(fit = KM, time_scale = time_scale, .reverse = TRUE, .title = "Here is a title")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.