tests/testthat/test-stickBreaking.R
In AlexPiche/DPsurv: What the package does (short line)
context("Stick breaking funtion")
test_that("Stick breaking function should be consistent", {
beta_rv <- c(1/4, 1/3, 5/6, 1/7)
stick <- c(1/4, 1/3*(1-1/4), 5/6*(1-1/3)*(1-1/4), 1*(1-5/6)*(1-1/3)*(1-1/4))
expect_equal(stickBreaking(beta_rv), stick)
})
AlexPiche/DPsurv documentation built on May 5, 2019, 4:52 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("Stick breaking funtion")
test_that("Stick breaking function should be consistent", {
beta_rv <- c(1/4, 1/3, 5/6, 1/7)
stick <- c(1/4, 1/3*(1-1/4), 5/6*(1-1/3)*(1-1/4), 1*(1-5/6)*(1-1/3)*(1-1/4))
expect_equal(stickBreaking(beta_rv), stick)
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.