Nothing
test_that("extract_variable_matrix works the same for different formats", {
draws_array <- as_draws_array(example_draws())
mu_array <- extract_variable_matrix(draws_array, "mu")
draws_df <- as_draws_df(example_draws())
mu_df <- extract_variable_matrix(draws_df, "mu")
expect_equal(mu_df, mu_array)
draws_list <- as_draws_list(example_draws())
mu_list <- extract_variable_matrix(draws_list, "mu")
expect_equal(mu_list, mu_array)
draws_matrix <- as_draws_matrix(example_draws())
mu_matrix <- extract_variable_matrix(draws_matrix, "mu")
expect_equal(as.vector(mu_matrix), as.vector(mu_array))
draws_rvars <- as_draws_rvars(example_draws())
mu_matrix <- extract_variable_matrix(draws_rvars, "mu")
expect_equal(as.vector(mu_matrix), as.vector(mu_array))
})
test_that("extract_variable_matrix works for draws_rvars on an indexed variable", {
draws_array <- as_draws_array(example_draws())
theta1_array <- extract_variable_matrix(draws_array, "theta[1]")
draws_rvars <- as_draws_rvars(example_draws())
theta1_matrix <- extract_variable_matrix(draws_rvars, "theta[1]")
expect_equal(as.vector(theta1_matrix), as.vector(theta1_array))
expect_error(extract_variable_matrix(draws_rvars, "theta"), "Cannot extract non-scalar value")
})
test_that("extract_variable_matrix default method works", {
# it should convert matrix to draws object
x <- matrix(1:20, nrow = 10, ncol = 2)
colnames(x) <- c("A", "B")
expect_equivalent(extract_variable_matrix(x, "A"), x[, 1, drop=FALSE])
expect_equivalent(extract_variable_matrix(x, "B"), x[, 2, drop=FALSE])
})
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.