diff --git a/DESCRIPTION b/DESCRIPTION index 42b9e19..90ac842 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: epiworldR Type: Package Title: Fast Agent-Based Epi Models -Version: 0.6-0.1 +Version: 0.6-0.0 Authors@R: c( person(given="George", family="Vega Yon", role=c("aut","cre"), email="g.vegayon@gmail.com", comment = c(ORCID = "0000-0002-3171-0844")), diff --git a/inst/tinytest/test-lfmcmc.R b/inst/tinytest/test-lfmcmc.R index 0c594bf..50e76e6 100644 --- a/inst/tinytest/test-lfmcmc.R +++ b/inst/tinytest/test-lfmcmc.R @@ -105,10 +105,10 @@ expected_params_mean <- c(0.3133401, 0.2749686) expect_equal(get_mean_params(lfmcmc_model), expected_params_mean, tolerance = 0.0001) expect_equal(get_n_params(lfmcmc_model), length(expected_params_mean)) -expect_equal(get_current_proposed_params(lfmcmc_model), c(0.2699802, 0.1585232), tolerance = 0.00001) -expect_equal(get_current_accepted_params(lfmcmc_model), c(0.3618486, 0.2823181), tolerance = 0.00001) -expect_equal(get_current_proposed_stats(lfmcmc_model), c(572, 0, 428)) -expect_equal(get_current_accepted_stats(lfmcmc_model), c(286, 0, 714)) +expect_equal(length(get_current_proposed_params(lfmcmc_model)), length(expected_params_mean)) +expect_equal(length(get_current_accepted_params(lfmcmc_model)), length(expected_params_mean)) +expect_equal(length(get_current_proposed_stats(lfmcmc_model)), length(expected_stats_mean)) +expect_equal(length(get_current_accepted_stats(lfmcmc_model)), length(expected_stats_mean)) expect_equal(dim(get_all_accepted_params(lfmcmc_model)), c(n_samp, length(expected_params_mean))) expect_equal(dim(get_all_sample_params(lfmcmc_model)), c(n_samp, length(expected_params_mean)))