context("Fit multivariate model")
dat <- as.matrix(iris[, -5])
niter <- 10000
nchains <- 8
keep_samples <- Inf
max_attempts <- 20
autofit <- TRUE
test_that("Simple multivariate fit, sequentially", {
result <- fit_mvnorm(
dat, niter = niter, nchains = nchains,
autofit = autofit, keep_samples = keep_samples, max_attempts = max_attempts
)
})
test_that("Multivariate fit, in parallel", {
future::plan("multiprocess")
result <- fit_mvnorm(
dat, niter = niter, nchains = nchains,
autofit = autofit, keep_samples = keep_samples, max_attempts = max_attempts
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.