inst/tests/test-method-mcmcdb_drop_pararray.R

In jrnold/mcmcdb: MCMC sample database classes

context("mcmcdb_drop_parameter method")

local({
  source("data-McmcdbWide.R")
  
  test_that("mcmcdb_drop_parameter-method works", {
    foo <- mcmcdb_drop_parameter(test_wide3, "beta")
    expect_is(foo, "McmcdbWide")
    expect_equal(names(mcmcdb_parameters(foo)), "gamma")
  })
})