R Under development (unstable) (2026-02-25 r89480 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2026 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(gmgm)

Attaching package: 'gmgm'

The following object is masked from 'package:testthat':

    expectation

The following objects are masked from 'package:stats':

    density, reorder

The following object is masked from 'package:base':

    structure

> 
> test_check("gmgm")
iter 0    loglik = -151.313055327813
iter 1    loglik = -31.6210689570178
iter 2    loglik = -30.5139796079594

subset 1 / 1
------------
time 1 / 3
time 2 / 3
time 3 / 3
subset 1 / 1
iter 1    loglik_e = -80.6815706685218    loglik_m = -17.8767001133588
iter 2    loglik_e = -19.8964626221704    loglik_m = -13.0248631190612

subset 1 / 1
------------
time 0 / 2
time 1 / 2
time 2 / 2
iter 0    bic = -164.516661071526
iter 1    bic = -35.5844946727261    oper = EM
iter 2    bic = -30.603766219939    oper = split 1 + EM

subset 1 / 1
------------
time 1 / 3
time 2 / 3
time 3 / 3
iter 0    bic = -56.3053906684561
iter 1    bic = -16.3201155899577    oper = SMEM
iter 2    bic = -14.1539165522277    oper = add B + SMEM
iter 1    bic_e = -46.2276027144091    bic_m = -37.2487426031483
iter 2    bic_e = -44.1365208662943    bic_m = -32.2712881422674

model b_1
---------
node A    bic_old = -43.0310242469693    bic_new = 0.341277987618937
node B    bic_old = -28.5310242469693    bic_new = 2.0848295508985

model b_2
---------
node A    bic_old = -64.0620484939386    bic_new = -5.30235195881793
node B    bic_old = -78.5620484939386    bic_new = -2.03968658833288
[ FAIL 0 | WARN 9 | SKIP 0 | PASS 416 ]

[ FAIL 0 | WARN 9 | SKIP 0 | PASS 416 ]
> 
> proc.time()
   user  system elapsed 
  47.51    1.20   48.67