logrank.pval <- function(x, y){ ss <- survival::survdiff(y ~ x) 1 - pchisq(ss$chisq, length(ss$obs) - 1) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.