R Under development (unstable) (2024-12-01 r87412 ucrt) -- "Unsuffered Consequences" Copyright (C) 2024 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > # This file is part of the standard setup for testthat. > # It is recommended that you do not modify it. > # > # Where should you do additional test configuration? > # Learn more about the roles of various files in: > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview > # * https://testthat.r-lib.org/articles/special-files.html > > library(testthat) > library(GDILM.SEIRS) > > test_check("GDILM.SEIRS") [ FAIL 1 | WARN 0 | SKIP 1 | PASS 0 ] ══ Skipped tests (1) ═══════════════════════════════════════════════════════════ • empty test (1): 'test-GDILM_SEIRS_Sim_Par_Est.R:1:1' ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-GDILM_SEIRS_Par_Est.R:4:1'): An example for a real data model fitting ── Error in `solve.default(tau1^2 * (as.numeric(lambda1) * D + (1 - as.numeric(lambda1)) * I))`: system is computationally singular: reciprocal condition number = 7.20799e-17 Backtrace: ▆ 1. └─GDILM.SEIRS::GDILM_SEIRS_Par_Est(...) at test-GDILM_SEIRS_Par_Est.R:4:1 2. └─GDILM.SEIRS (local) estfun(...) 3. └─stats::optim(init, Loglik1) 4. └─stats (local) ``(``) 5. └─GDILM.SEIRS (local) fn(par, ...) 6. ├─mvtnorm::dmvnorm(...) 7. │ └─base::ncol(sigma) 8. ├─base::solve(...) 9. └─base::solve.default(...) [ FAIL 1 | WARN 0 | SKIP 1 | PASS 0 ] Error: Test failures Execution halted