R version 4.6.0 beta (2026-04-12 r89874 ucrt) -- "Because it was There" 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(mev) > > if ( requireNamespace("tinytest", quietly=TRUE) ){ + tinytest::test_package("mev") + } test-Stein.R.................. 0 tests test-Stein.R.................. 0 tests test-Stein.R.................. 0 tests test-Stein.R.................. 0 tests test-Stein.R.................. 1 tests OK test-Stein.R.................. 1 tests OK test-Stein.R.................. 1 tests OK test-Stein.R.................. 2 tests OK test-Stein.R.................. 3 tests OK test-Stein.R.................. 3 tests OK test-Stein.R.................. 4 tests OK 0.2s test-distribution.R........... 0 tests test-distribution.R........... 0 tests test-distribution.R........... 0 tests test-distribution.R........... 0 tests test-distribution.R........... 0 tests test-distribution.R........... 0 tests test-distribution.R........... 0 tests test-distribution.R........... 0 tests test-distribution.R........... 0 tests test-distribution.R........... 1 tests OK test-distribution.R........... 2 tests OK test-distribution.R........... 3 tests OK test-distribution.R........... 4 tests OK test-distribution.R........... 5 tests OK test-distribution.R........... 6 tests OK test-distribution.R........... 7 tests OK test-distribution.R........... 8 tests OK test-distribution.R........... 9 tests OK test-distribution.R........... 10 tests OK test-distribution.R........... 11 tests OK test-distribution.R........... 12 tests OK test-distribution.R........... 13 tests OK test-distribution.R........... 14 tests OK test-distribution.R........... 15 tests OK test-distribution.R........... 16 tests OK test-distribution.R........... 17 tests OK test-distribution.R........... 18 tests OK test-distribution.R........... 19 tests OK test-distribution.R........... 20 tests OK test-distribution.R........... 20 tests OK test-distribution.R........... 21 tests OK test-distribution.R........... 21 tests OK [1] "Model pt-beta" ----- PASSED : test-distribution.R<190--299> call| expect_true(!isTRUE(all.equal(samp, rep(0, 20)))) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = 0, model = model), kappa = kappa, scale = scale, call| --> shape = 0, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = shape, model = model), kappa = kappa, scale = scale, call| --> shape = shape, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model), 1 - mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model, lower.tail = FALSE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(log(mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model)), mev::pegp(samp, kappa = kappa, call| --> scale = scale, shape = shape, model = model, log.p = TRUE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(numDeriv::grad(func = function(x) { call| --> mev::pegp(x, kappa = kappa, scale = scale, shape = shape, call| --> model = model) call| -->}, x = samp), mev::degp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model)) [1] "Model pt-gamma" ----- PASSED : test-distribution.R<190--299> call| expect_true(!isTRUE(all.equal(samp, rep(0, 20)))) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = 0, model = model), kappa = kappa, scale = scale, call| --> shape = 0, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = shape, model = model), kappa = kappa, scale = scale, call| --> shape = shape, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model), 1 - mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model, lower.tail = FALSE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(log(mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model)), mev::pegp(samp, kappa = kappa, call| --> scale = scale, shape = shape, model = model, log.p = TRUE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(numDeriv::grad(func = function(x) { call| --> mev::pegp(x, kappa = kappa, scale = scale, shape = shape, call| --> model = model) call| -->}, x = samp), mev::degp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model)) [1] "Model pt-power" ----- PASSED : test-distribution.R<190--299> call| expect_true(!isTRUE(all.equal(samp, rep(0, 20)))) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = 0, model = model), kappa = kappa, scale = scale, call| --> shape = 0, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = shape, model = model), kappa = kappa, scale = scale, call| --> shape = shape, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model), 1 - mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model, lower.tail = FALSE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(log(mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model)), mev::pegp(samp, kappa = kappa, call| --> scale = scale, shape = shape, model = model, log.p = TRUE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(numDeriv::grad(func = function(x) { call| --> mev::pegp(x, kappa = kappa, scale = scale, shape = shape, call| --> model = model) call| -->}, x = samp), mev::degp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model)) [1] "Model gj-tnorm" ----- PASSED : test-distribution.R<190--299> call| expect_true(!isTRUE(all.equal(samp, rep(0, 20)))) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = 0, model = model), kappa = kappa, scale = scale, call| --> shape = 0, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = shape, model = model), kappa = kappa, scale = scale, call| --> shape = shape, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model), 1 - mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model, lower.tail = FALSE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(log(mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model)), mev::pegp(samp, kappa = kappa, call| --> scale = scale, shape = shape, model = model, log.p = TRUE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(numDeriv::grad(func = function(x) { call| --> mev::pegp(x, kappa = kappa, scale = scale, shape = shape, call| --> model = model) call| -->}, x = samp), mev::degp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model)) [1] "Model gj-beta" ----- PASSED : test-distribution.R<190--299> call| expect_true(!isTRUE(all.equal(samp, rep(0, 20)))) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = 0, model = model), kappa = kappa, scale = scale, call| --> shape = 0, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = shape, model = model), kappa = kappa, scale = scale, call| --> shape = shape, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model), 1 - mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model, lower.tail = FALSE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(log(mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model)), mev::pegp(samp, kappa = kappa, call| --> scale = scale, shape = shape, model = model, log.p = TRUE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(numDeriv::grad(func = function(x) { call| --> mev::pegp(x, kappa = kappa, scale = scale, shape = shape, call| --> model = model) call| -->}, x = samp), mev::degp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model)) [1] "Model exptilt" ----- PASSED : test-distribution.R<190--299> call| expect_true(!isTRUE(all.equal(samp, rep(0, 20)))) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = 0, model = model), kappa = kappa, scale = scale, call| --> shape = 0, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = shape, model = model), kappa = kappa, scale = scale, call| --> shape = shape, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model), 1 - mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model, lower.tail = FALSE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(log(mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model)), mev::pegp(samp, kappa = kappa, call| --> scale = scale, shape = shape, model = model, log.p = TRUE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(numDeriv::grad(func = function(x) { call| --> mev::pegp(x, kappa = kappa, scale = scale, shape = shape, call| --> model = model) call| -->}, x = samp), mev::degp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model)) [1] "Model logist" ----- PASSED : test-distribution.R<190--299> call| expect_true(!isTRUE(all.equal(samp, rep(0, 20)))) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = 0, model = model), kappa = kappa, scale = scale, call| --> shape = 0, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = shape, model = model), kappa = kappa, scale = scale, call| --> shape = shape, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model), 1 - mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model, lower.tail = FALSE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(log(mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model)), mev::pegp(samp, kappa = kappa, call| --> scale = scale, shape = shape, model = model, log.p = TRUE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(numDeriv::grad(func = function(x) { call| --> mev::pegp(x, kappa = kappa, scale = scale, shape = shape, call| --> model = model) call| -->}, x = samp), mev::degp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model)) [1] "Model pt-beta" ----- PASSED : test-distribution.R<190--299> call| expect_true(!isTRUE(all.equal(samp, rep(0, 20)))) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = 0, model = model), kappa = kappa, scale = scale, call| --> shape = 0, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = shape, model = model), kappa = kappa, scale = scale, call| --> shape = shape, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model), 1 - mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model, lower.tail = FALSE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(log(mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model)), mev::pegp(samp, kappa = kappa, call| --> scale = scale, shape = shape, model = model, log.p = TRUE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(numDeriv::grad(func = function(x) { call| --> mev::pegp(x, kappa = kappa, scale = scale, shape = shape, call| --> model = model) call| -->}, x = samp), mev::degp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model)) [1] "Model pt-gamma" ----- PASSED : test-distribution.R<190--299> call| expect_true(!isTRUE(all.equal(samp, rep(0, 20)))) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = 0, model = model), kappa = kappa, scale = scale, call| --> shape = 0, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = shape, model = model), kappa = kappa, scale = scale, call| --> shape = shape, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model), 1 - mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model, lower.tail = FALSE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(log(mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model)), mev::pegp(samp, kappa = kappa, call| --> scale = scale, shape = shape, model = model, log.p = TRUE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(numDeriv::grad(func = function(x) { call| --> mev::pegp(x, kappa = kappa, scale = scale, shape = shape, call| --> model = model) call| -->}, x = samp), mev::degp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model)) [1] "Model pt-power" ----- PASSED : test-distribution.R<190--299> call| expect_true(!isTRUE(all.equal(samp, rep(0, 20)))) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = 0, model = model), kappa = kappa, scale = scale, call| --> shape = 0, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = shape, model = model), kappa = kappa, scale = scale, call| --> shape = shape, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model), 1 - mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model, lower.tail = FALSE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(log(mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model)), mev::pegp(samp, kappa = kappa, call| --> scale = scale, shape = shape, model = model, log.p = TRUE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(numDeriv::grad(func = function(x) { call| --> mev::pegp(x, kappa = kappa, scale = scale, shape = shape, call| --> model = model) call| -->}, x = samp), mev::degp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model)) [1] "Model gj-tnorm" ----- PASSED : test-distribution.R<190--299> call| expect_true(!isTRUE(all.equal(samp, rep(0, 20)))) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = 0, model = model), kappa = kappa, scale = scale, call| --> shape = 0, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = shape, model = model), kappa = kappa, scale = scale, call| --> shape = shape, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model), 1 - mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model, lower.tail = FALSE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(log(mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model)), mev::pegp(samp, kappa = kappa, call| --> scale = scale, shape = shape, model = model, log.p = TRUE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(numDeriv::grad(func = function(x) { call| --> mev::pegp(x, kappa = kappa, scale = scale, shape = shape, call| --> model = model) call| -->}, x = samp), mev::degp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model)) [1] "Model gj-beta" ----- PASSED : test-distribution.R<190--299> call| expect_true(!isTRUE(all.equal(samp, rep(0, 20)))) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = 0, model = model), kappa = kappa, scale = scale, call| --> shape = 0, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = shape, model = model), kappa = kappa, scale = scale, call| --> shape = shape, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model), 1 - mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model, lower.tail = FALSE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(log(mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model)), mev::pegp(samp, kappa = kappa, call| --> scale = scale, shape = shape, model = model, log.p = TRUE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(numDeriv::grad(func = function(x) { call| --> mev::pegp(x, kappa = kappa, scale = scale, shape = shape, call| --> model = model) call| -->}, x = samp), mev::degp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model)) [1] "Model exptilt" ----- PASSED : test-distribution.R<190--299> call| expect_true(!isTRUE(all.equal(samp, rep(0, 20)))) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = 0, model = model), kappa = kappa, scale = scale, call| --> shape = 0, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = shape, model = model), kappa = kappa, scale = scale, call| --> shape = shape, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model), 1 - mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model, lower.tail = FALSE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(log(mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model)), mev::pegp(samp, kappa = kappa, call| --> scale = scale, shape = shape, model = model, log.p = TRUE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(numDeriv::grad(func = function(x) { call| --> mev::pegp(x, kappa = kappa, scale = scale, shape = shape, call| --> model = model) call| -->}, x = samp), mev::degp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model)) [1] "Model logist" ----- PASSED : test-distribution.R<190--299> call| expect_true(!isTRUE(all.equal(samp, rep(0, 20)))) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = 0, model = model), kappa = kappa, scale = scale, call| --> shape = 0, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(mev::qegp(u, kappa = kappa, scale = scale, call| --> shape = shape, model = model), kappa = kappa, scale = scale, call| --> shape = shape, model = model), u) ----- PASSED : test-distribution.R<190--299> call| expect_equal(mev::pegp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model), 1 - mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model, lower.tail = FALSE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(log(mev::pegp(samp, kappa = kappa, scale = scale, call| --> shape = shape, model = model)), mev::pegp(samp, kappa = kappa, call| --> scale = scale, shape = shape, model = model, log.p = TRUE)) ----- PASSED : test-distribution.R<190--299> call| expect_equal(numDeriv::grad(func = function(x) { call| --> mev::pegp(x, kappa = kappa, scale = scale, shape = shape, call| --> model = model) call| -->}, x = samp), mev::degp(samp, kappa = kappa, scale = scale, shape = shape, call| --> model = model)) test-distribution.R........... 105 tests OK 1.0s test-egp.R.................... 0 tests test-egp.R.................... 0 tests test-egp.R.................... 0 tests test-egp.R.................... 0 tests test-egp.R.................... 0 tests test-egp.R.................... 0 tests test-egp.R.................... 0 tests test-egp.R.................... 0 tests test-egp.R.................... 0 tests test-egp.R.................... 0 tests test-egp.R.................... 1 tests OK test-egp.R.................... 2 tests OK test-egp.R.................... 3 tests OK test-egp.R.................... 4 tests OK test-egp.R.................... 5 tests OK test-egp.R.................... 6 tests OK test-egp.R.................... 7 tests OK test-egp.R.................... 7 tests OK test-egp.R.................... 7 tests OK test-egp.R.................... 7 tests OK test-egp.R.................... 7 tests OK test-egp.R.................... 7 tests OK test-egp.R.................... 7 tests OK test-egp.R.................... 7 tests OK test-egp.R.................... 7 tests OK test-egp.R.................... 8 tests OK test-egp.R.................... 9 tests OK test-egp.R.................... 10 tests OK test-egp.R.................... 11 tests OK test-egp.R.................... 12 tests OK test-egp.R.................... 13 tests OK test-egp.R.................... 14 tests OK test-egp.R.................... 15 tests OK test-egp.R.................... 16 tests OK test-egp.R.................... 17 tests OK test-egp.R.................... 18 tests OK test-egp.R.................... 19 tests OK test-egp.R.................... 20 tests OK test-egp.R.................... 21 tests OK test-egp.R.................... 22 tests OK test-egp.R.................... 23 tests OK test-egp.R.................... 24 tests OK test-egp.R.................... 25 tests OK test-egp.R.................... 26 tests OK test-egp.R.................... 27 tests OK test-egp.R.................... 28 tests OK test-egp.R.................... 29 tests OK test-egp.R.................... 30 tests OK test-egp.R.................... 31 tests OK test-egp.R.................... 32 tests OK test-egp.R.................... 33 tests OK test-egp.R.................... 34 tests OK test-egp.R.................... 35 tests OK test-egp.R.................... 35 tests OK test-egp.R.................... 35 tests OK test-egp.R.................... 35 tests OK test-egp.R.................... 35 tests OK test-egp.R.................... 35 tests OK test-egp.R.................... 35 tests OK test-egp.R.................... 35 tests OK test-egp.R.................... 35 tests OK test-egp.R.................... 36 tests OK test-egp.R.................... 37 tests OK test-egp.R.................... 38 tests OK test-egp.R.................... 39 tests OK test-egp.R.................... 40 tests OK test-egp.R.................... 41 tests OK test-egp.R.................... 42 tests OK test-egp.R.................... 42 tests OK test-egp.R.................... 42 tests OK test-egp.R.................... 42 tests OK test-egp.R.................... 42 tests OK test-egp.R.................... 42 tests OK test-egp.R.................... 42 tests OK test-egp.R.................... 42 tests OK test-egp.R.................... 42 tests OK test-egp.R.................... 43 tests OK test-egp.R.................... 44 tests OK test-egp.R.................... 45 tests OK test-egp.R.................... 46 tests OK test-egp.R.................... 47 tests OK test-egp.R.................... 48 tests OK test-egp.R.................... 49 tests OK test-egp.R.................... 49 tests OK test-egp.R.................... 56 tests OK test-egp.R.................... 57 tests OK test-egp.R.................... 58 tests OK test-egp.R.................... 59 tests OK test-egp.R.................... 60 tests OK test-egp.R.................... 61 tests OK test-egp.R.................... 62 tests OK test-egp.R.................... 63 tests OK 36ms test-mle.R.................... 0 tests test-mle.R.................... 0 tests test-mle.R.................... 0 tests test-mle.R.................... 0 tests test-mle.R.................... 1 tests OK test-mle.R.................... 2 tests OK test-mle.R.................... 3 tests OK test-mle.R.................... 3 tests OK test-mle.R.................... 4 tests OK test-mle.R.................... 5 tests OK test-mle.R.................... 6 tests OK test-mle.R.................... 7 tests OK test-mle.R.................... 8 tests OK test-mle.R.................... 9 tests OK test-mle.R.................... 9 tests OK test-mle.R.................... 9 tests OK test-mle.R.................... 10 tests OK test-mle.R.................... 11 tests OK test-mle.R.................... 12 tests OK test-mle.R.................... 12 tests OK test-mle.R.................... 13 tests OK test-mle.R.................... 14 tests OK test-mle.R.................... 15 tests OK test-mle.R.................... 16 tests OK test-mle.R.................... 16 tests OK test-mle.R.................... 17 tests OK test-mle.R.................... 18 tests OK test-mle.R.................... 19 tests OK test-mle.R.................... 20 tests OK test-mle.R.................... 21 tests OK test-mle.R.................... 22 tests OK 0.7s 2ms You are using 'tinytest::' to express test expectations. The results from these tests are not collected. Found the following occurrences: > tests_rmar1.R#012: tinytest::expect_true > tests_rmar1.R#021: tinytest::expect_equivalent > tests_rmar1.R#027: tinytest::expect_true > tests_rmar1.R#029: tinytest::expect_true > tests_rmar1.R#043: tinytest::expect_true > tests_rmar1.R#053: tinytest::expect_equivalent > tests_rmar1.R#058: tinytest::expect_true > tests_rmar1.R#060: tinytest::expect_true Remove the 'tinytest::' prefix to register the test results.FALSE tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests tests_rmar1.R................. 0 tests 3.5s All ok, 194 results (5.6s) > > > proc.time() user system elapsed 5.60 0.59 6.21