test_that("modGBdwm Testing", {
  
  skip_on_cran()
  
  skip(message = "In Progress")
  #GBpop <- modGBpop(popTabs = list(cond=WYcond, tree=WYtree),
  #pltassgn = WYpltassgn,
  #pltassgnid = "CN",
  #unitarea = WYunitarea,
  #unitvar = "ESTN_UNIT",
  #stratalut = WYstratalut,
  #strvar = "STRATUMCD",
  #strata = TRUE,
  #strata_opts = strata_options(getwt = TRUE))

})