R Under development (unstable) (2023-07-01 r84626 ucrt) -- "Unsuffered Consequences" Copyright (C) 2023 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 copied and modified from runjags package > # Copyright (C) 2013 Matthew Denwood and Achmad Syahrul Choir > # > # This code allows the distributions provided by the neojags module > # to be tested from within R. > # > # This version of the module is compatible with JAGS version 3 and 4. > # Some necessary modifications are controlled using the INCLUDERSCALARDIST > # macro which is defined by makevars if JAGS version 3 is detected. > # Once JAGS version 3 becomes obsolete the redundant code will be > # removed from neojags. > # > # neojags is free software: you can redistribute it and/or modify > # it under the terms of the GNU General Public License as published by > # the Free Software Foundation, either version 3 of the License, or > # (at your option) any later version. > # > # neojags is distributed in the hope that it will be useful, > # but WITHOUT ANY WARRANTY; without even the implied warranty of > # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the > # GNU General Public License for more details. > # > # You should have received a copy of the GNU General Public License > # along with runjags If not, see . > > library(testthat) > library(neojags) > > test_check("neojags") module neojags loaded Compiling rjags model... Calling the simulation using the rjags method... Adapting the model for 1000 iterations... Burning in the model for 4000 iterations... Running the model for 10000 iterations... Simulation complete Calculating summary statistics... Calculating the Gelman-Rubin statistic for 4 variables.... Finished running the simulation [ FAIL 0 | WARN 4 | SKIP 1 | PASS 0 ] ══ Skipped tests (1) ═══════════════════════════════════════════════════════════ • empty test (1): 'test-basic_example.R:26:1' [ FAIL 0 | WARN 4 | SKIP 1 | PASS 0 ] > > proc.time() user system elapsed 4.39 0.28 6.17