R Under development (unstable) (2025-02-25 r87824 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(DistributionIV) > > test_check("DistributionIV") OMP: Warning #96: Cannot form a team with 48 threads, using 2 instead. OMP: Hint Consider unsetting KMP_DEVICE_THREAD_LIMIT (KMP_ALL_THREADS), KMP_TEAMS_THREAD_LIMIT, and OMP_THREAD_LIMIT (if any are set). DIV object with noise dimensions (for shared noise eps_H, and for indep. noise eps_X and eps_Y): (50,50,50) hidden dimensions: 100 number of layers: 3 number of epochs: 20 learning rate: 0.001 standardization: TRUE Training loss: epoch Energy loss E(||U-Uhat||) E(||Uhat-Uhat'||) 1 0.894 1.43 1.06 2 0.914 1.51 1.18 4 0.804 1.56 1.52 6 0.858 1.71 1.71 8 0.909 1.76 1.71 10 0.863 1.92 2.11 12 0.911 1.96 2.09 14 0.840 1.86 2.04 16 0.973 2.04 2.14 18 0.942 1.99 2.09 20 0.823 1.91 2.17 Prediction-loss E(||U-Uhat||) and variance-loss E(||Uhat-Uhat'||) should ideally be equally large -- consider training for more epochs if there is a mismatch. [ FAIL 2 | WARN 0 | SKIP 0 | PASS 21 ] ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-predict.DIV.R:20:3'): Vector of mean values of proper length returned ── Error in `expect_vector(predict(div_modelnoW, Xtest = matrix(rnorm(40, mean = 2), ncol = 1)), size = 40)`: The package "vctrs" is required. Backtrace: ▆ 1. └─testthat::expect_vector(...) at test-predict.DIV.R:20:3 2. └─rlang::check_installed("vctrs") ── Error ('test-predict.DIV.R:37:3'): Vector of quantile values of proper length returned ── Error in `expect_vector(predict(div_modelnoW, Xtest = matrix(rnorm(40, mean = 2), ncol = 1), type = "quantile", nsample = 200, quantiles = 0.05), size = 40)`: The package "vctrs" is required. Backtrace: ▆ 1. └─testthat::expect_vector(...) at test-predict.DIV.R:37:3 2. └─rlang::check_installed("vctrs") [ FAIL 2 | WARN 0 | SKIP 0 | PASS 21 ] Error: Test failures Execution halted