Nothing
survreg1 <- survival::survreg(survival::Surv(futime, fustat) ~ ecog.ps + rx, survival::ovarian,
dist='weibull', scale=1)
BF1 <- BF(survreg1)
test_that("BF.survreg exploratory hypotheses correctly evaluated", {
expect_equivalent(
round(BF1$BFtu_exploratory[,1],5),c(0.00000,3.88378,3.12164)
)})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.