R Under development (unstable) (2025-02-03 r87683 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 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(sgdGMF)
Loading required package: ggplot2

Attaching package: 'sgdGMF'

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

    simulate

> 
> test_check("sgdGMF")
[ FAIL 1 | WARN 0 | SKIP 0 | PASS 157 ]

══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-eigengap.R:17:3'): Rank selecion ───────────────────────────────
Error in `while (tol >= 1) {
    j = ju
    yreg = lambdas[j:(j + 4)]
    xreg = (j + (-1:3))^(2/3)
    delta = 2 * abs(stats::cov(yreg, xreg))/stats::var(xreg)
    flag = which(-diff(lambdas) >= delta)
    ncomp = ifelse(length(flag) == 0, 0, utils::tail(flag[flag <= 
        maxcomp], 1))
    ju = ncomp + 1
    tol = abs(ju - j)
    iter = iter + 1
    if (iter > maxiter) 
        break
}`: missing value where TRUE/FALSE needed
Backtrace:
    ▆
 1. └─sgdGMF::sgdgmf.rank(...) at test-eigengap.R:17:3
 2.   └─sgdGMF:::eigengap.onatski(...)

[ FAIL 1 | WARN 0 | SKIP 0 | PASS 157 ]
Error: Test failures
Execution halted