tests/testthat/test_inits.R

library(cowbird)

data("cowbird_data")

dl <- make_data_list(cowbird_data)

inits <- initialize_values(dl, fix_seed = T)

expect_equal(length(inits), 4)

inits <- initialize_values(dl, fix_seed = F)

expect_equal(length(inits), 2)
philpatton/cowbird documentation built on March 2, 2023, 3:05 a.m.