R Under development (unstable) (2024-10-07 r87211 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.

> library(testthat)
> library(ChoiceModelR)
> 
> test_check("ChoiceModelR")
                    Logit Data                    
==================================================
Attribute       Type         Levels
-----------------------------------
Attribute 1    Part Worth      5
Attribute 2    Part Worth      3

6 parameters to be estimated.

300 total units.
Average of 4.2 alternatives in each of 49.1 sets per unit.
14726 tasks in total.

Table of choice data pooled across units:
Choice  Count   Pct.
--------------------
   1    3665   24.89%
   2    3633   24.67%
   3    3674   24.95%
   4    2548   17.3%
   5    1206   8.19%

      MCMC Inference for Hierarchical Logit       
==================================================
Total Iterations:          200
Draws used in estimation:  200
Units:                     300
Parameters per unit:       6
Constraints in effect.
Draws are to be saved.
Prior degrees of freedom:  5
Prior variance:            2

MCMC Iteration Beginning...
Iteration  Acceptance   RLH     Pct. Cert.   Avg. Var.   RMS     Time to End
      100  0.379        0.399   0.312        0.42        0.74    0:01  
      200  0.304        0.490   0.476        0.72        1.26    0:00  

Total Time Elapsed: 0:03

Writing estimated unit-level betas to Rbetas.csv in the working directory

Writing RLH, the geometric mean of the likelihood of the choices made,

      across the choice sets of each unit to RLH.csv in the working directory

[1] 0.3906217
[1] 0.03296967
                    Logit Data                    
==================================================
Attribute       Type         Levels
-----------------------------------
Attribute 1    Part Worth      5
Attribute 2    Part Worth      3

6 parameters to be estimated.

300 total units.
Average of 5 alternatives in each of 50 sets per unit.
47408 expanded tasks in total.

Table of choice data pooled across units:
Choice  Count   Pct.
--------------------
   1    9362   19.75%
   2    9747   20.56%
   3    6638   14%
   4    10736  22.65%
   5    10925  23.04%

      MCMC Inference for Hierarchical Logit       
==================================================
Total Iterations:          200
Draws used in estimation:  200
Units:                     300
Parameters per unit:       6
Task weight:               5
Constraints in effect.
Draws are to be saved.
Prior degrees of freedom:  5
Prior variance:            2

MCMC Iteration Beginning...
Iteration  Acceptance   RLH     Pct. Cert.   Avg. Var.   RMS     Time to End
      100  0.356        0.344   0.290        0.55        0.83    0:05  
      200  0.300        0.428   0.448        0.76        1.29    0:00  

Total Time Elapsed: 0:09

Writing estimated unit-level betas to Rbetas.csv in the working directory

Writing RLH, the geometric mean of the likelihood of the choices made,

      across the choice sets of each unit to RLH.csv in the working directory

[1] 0.4816802
[1] 0.03986901
[ FAIL 0 | WARN 0 | SKIP 0 | PASS 0 ]
> 
> proc.time()
   user  system elapsed 
  11.92    1.48   13.40