Nothing
context("Posterior Frame")
test_that("Basic Test", {
testData <- rnorm(100)
testDP <- DirichletProcessGaussian(testData)
testDP <- Fit(testDP, 1, progressBar = FALSE)
testFrame <- PosteriorFrame(testDP, seq(-2, 2, length.out = 10))
expect_is(testFrame, "data.frame")
expect_equal(nrow(testFrame), 10)
expect_equal(ncol(testFrame), 4)
})
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.