Commit 9625d875 authored by Chris Jewell's avatar Chris Jewell
Browse files

Moved time/loc test to its own file.

parent 3c46f6f1
......@@ -94,19 +94,4 @@ test_that("HaldDP model construction", {
expect_equal_to_reference(model$summary(), "haldDPres3.rds")
})
test_that("Test time/location data structures", {
set.seed(1)
ss = group_by(sim_SA_data, Time, Location) %>%
slice(1:10) %>% ungroup %>% as.data.frame
model = HaldDP$new(
data = ss,
k = sim_SA_prev,
priors = priors,
a_q = 0.1
)
model$fit_params(n_iter = 100,
burn_in = 0,
thin = 1)
model$update()
expect_equal_to_reference(model$summary(), "haldDPdataStrct.rds")
})
# Test time/location data structure
test_that("Test time/location data structures", {
set.seed(1)
ss = group_by(sim_SA_data, Time, Location) %>%
slice(1:10) %>% ungroup %>% as.data.frame
model = HaldDP$new(
data = ss,
k = sim_SA_prev,
priors = priors,
a_q = 0.1
)
model$fit_params(n_iter = 100,
burn_in = 0,
thin = 1)
model$update()
expect_equal_to_reference(model$summary(), "haldDPdataStrct.rds")
})
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment