R Under development (unstable) (2025-11-09 r88992 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. > 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.1s 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 0.6s 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 20ms 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.6s 2ms All ok, 194 results (1.3s) > > > proc.time() user system elapsed 1.68 0.17 1.81