Last updated on 2020-08-07 01:50:17 CEST.
| Package | ERROR | NOTE | OK |
|---|---|---|---|
| complmrob | 12 | ||
| gaselect | 1 | 11 | |
| pense | 1 | 3 | 8 |
| pyinit | 1 | 11 |
Current CRAN status: OK: 12
Current CRAN status: NOTE: 1, OK: 11
Version: 1.0.9
Check: installed package size
Result: NOTE
installed size is 5.1Mb
sub-directories of 1Mb or more:
libs 4.9Mb
Flavor: r-devel-linux-x86_64-fedora-clang
Current CRAN status: ERROR: 1, NOTE: 3, OK: 8
Version: 1.2.9
Check: installed package size
Result: NOTE
installed size is 8.3Mb
sub-directories of 1Mb or more:
libs 8.0Mb
Flavors: r-devel-linux-x86_64-fedora-clang, r-release-macos-x86_64, r-oldrel-macos-x86_64
Version: 1.2.9
Check: examples
Result: ERROR
Running examples in ‘pense-Ex.R’ failed
The error most likely occurred in:
> ### Name: coef.pense
> ### Title: Extract Model Coefficients
> ### Aliases: coef.pense
>
> ### ** Examples
>
> # Generate data with highly correlated groups of variables and some outliers
> set.seed(12345)
> n <- 50
> n_out <- 3
> p <- 20
> x <- 1 + matrix(rnorm(n * p), ncol = p)
> x[, 2] <- x[, 1] + rnorm(n, sd = 0.01)
> x[, 3] <- x[, 1] + rnorm(n, sd = 0.01)
> x[, 5] <- x[, 4] + rnorm(n, sd = 0.01)
> x[, 6] <- x[, 4] + rnorm(n, sd = 0.01)
>
> y <- x %*% c(rep(c(2, 5), each = 3), numeric(p - 6)) + rnorm(n)
>
> y[seq_len(n_out)] <- rnorm(n_out, -100, sd = 3)
>
> # Compute the PENSE estimator
> set.seed(1234)
> est_en <- pense(x, y, alpha = 0.5, warm_reset = 1, cv_k = 3)
*** caught segfault ***
address 0, cause 'memory not mapped'
Traceback:
1: enpy_exact(x, y, alpha, lambda, options, en_options)
2: enpy(std_data$xs, std_data$yc, alpha, lambda, delta = pense_options$bdp, cc = pense_options$cc, options = initest_options, en_options = en_options)
3: pense_init_cold(x = x_train, y = y_train, lambda = job$lambda, ...)
4: FUN(X[[i]], ...)
5: cluster$lapply(jobs_cold_est, get_cold_est, alpha = alpha, standardize = standardize, pense_options = options, initest_options = init_options, en_options = en_options)
6: doTryCatch(return(expr), name, parentenv, handler)
7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
8: tryCatchList(expr, classes, parentenv, handlers)
9: tryCatch({ cold_inits <- cluster$lapply(jobs_cold_est, get_cold_est, alpha = alpha, standardize = standardize, pense_options = options, initest_options = init_options, en_options = en_options)}, error = function(e) { cluster$stopCluster() stop(e)})
10: pense(x, y, alpha = 0.5, warm_reset = 1, cv_k = 3)
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-patched-solaris-x86
Version: 1.2.9
Check: tests
Result: ERROR
Running ‘testthat.R’ [21s/52s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(pense)
Loading required package: Matrix
>
> test_check("pense")
*** caught segfault ***
address 0, cause 'memory not mapped'
Traceback:
1: enpy_ols(x, y, options)
2: pense::enpy(x, y, alpha = alpha, lambda = lambda, delta = 0.5, options = initest_options(psc_method = "rr", maxit = 5, psc_keep = 0.2, resid_keep_method = "proportion", resid_keep_prop = 0.6), en_options = en_options_aug_lars())
3: eval(code, test_env)
4: eval(code, test_env)
5: withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error)
6: doTryCatch(return(expr), name, parentenv, handler)
7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
8: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
9: doTryCatch(return(expr), name, parentenv, handler)
10: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
11: tryCatchList(expr, classes, parentenv, handlers)
12: tryCatch(withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) { })
13: test_code(desc, code, env = parent.frame())
14: test_that("enpy", { if (requireNamespace("lars", quietly = TRUE) && requireNamespace("robustbase", quietly = TRUE)) { source("enpy.old.R", local = TRUE) n <- 500L p <- 50L set.seed(12345) x <- matrix(rnorm(n * p), ncol = p) y <- 2 + x %*% c(1, 1, 1, rep.int(0, p - 3L)) + rnorm(n) alpha <- 0 lambda <- 0 new <- pense::enpy(x, y, alpha = alpha, lambda = lambda, delta = 0.5, options = initest_options(psc_method = "rr", maxit = 5, psc_keep = 0.2, resid_keep_method = "proportion", resid_keep_prop = 0.6), en_options = en_options_aug_lars()) target <- enpy(x, y, lambda1 = alpha * lambda, lambda2 = 0.5 * (1 - alpha) * lambda, deltaesc = 0.5, cc.scale = 1.54764, psc.method = "rr", prosac = 0.8, clean.method = "proportion", prop = 0.4, py.nit = 5, en.tol = 1e-08) diffs <- apply(new$coeff, 2, function(x) { min(colSums(abs(target$coeff - x))) }) expect_lt(sum(abs(diffs)), 1e-08) }})
15: eval(code, test_env)
16: eval(code, test_env)
17: withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error)
18: doTryCatch(return(expr), name, parentenv, handler)
19: tryCatchOne(expr, names, parentenv, handlers[[1L]])
20: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
21: doTryCatch(return(expr), name, parentenv, handler)
22: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
23: tryCatchList(expr, classes, parentenv, handlers)
24: tryCatch(withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) { })
25: test_code(NULL, exprs, env)
26: source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap)
27: force(code)
28: doWithOneRestart(return(expr), restart)
29: withOneRestart(expr, restarts[[1L]])
30: withRestarts(testthat_abort_reporter = function() NULL, force(code))
31: with_reporter(reporter = reporter, start_end_reporter = start_end_reporter, { reporter$start_file(basename(path)) lister$start_file(basename(path)) source_file(path, new.env(parent = env), chdir = TRUE, wrap = wrap) reporter$.end_context() reporter$end_file() })
32: FUN(X[[i]], ...)
33: lapply(paths, test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap)
34: force(code)
35: doWithOneRestart(return(expr), restart)
36: withOneRestart(expr, restarts[[1L]])
37: withRestarts(testthat_abort_reporter = function() NULL, force(code))
38: with_reporter(reporter = current_reporter, results <- lapply(paths, test_file, env = env, reporter = current_reporter, start_end_reporter = FALSE, load_helpers = FALSE, wrap = wrap))
39: test_files(paths, reporter = reporter, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, wrap = wrap)
40: test_dir(path = test_path, reporter = reporter, env = env, filter = filter, ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, wrap = wrap)
41: test_package_dir(package = package, test_path = test_path, filter = filter, reporter = reporter, ..., stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, wrap = wrap)
42: test_check("pense")
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-patched-solaris-x86
Current CRAN status: ERROR: 1, OK: 11
Version: 1.0.3
Check: examples
Result: ERROR
Running examples in ‘pyinit-Ex.R’ failed
The error most likely occurred in:
> ### Name: pyinit
> ### Title: PY (Pena-Yohai) initial estimates for S-estimates of regression
> ### Aliases: pyinit
>
> ### ** Examples
>
> # generate a simple synthetic data set for a linear regression model
> # with true regression coefficients all equal to one "(1, 1, 1, 1, 1)"
> set.seed(123)
> x <- matrix(rnorm(100*4), 100, 4)
> y <- rnorm(100) + rowSums(x) + 1
> # add masked outliers
> a <- svd(var(x))$v[,4]
> x <- rbind(x, t(outer(a, rnorm(20, mean=4, sd=1))))
> y <- c(y, rnorm(20, mean=-2, sd=.2))
>
> # these outliers are difficult to find
> plot(lm(y~x), ask=FALSE)
>
> # use pyinit to obtain estimated regression coefficients
> tmp <- pyinit(x=x, y=y, resid_keep_method='proportion', psc_keep = .5, resid_keep_prop=.5)
*** caught segfault ***
address 0, cause 'memory not mapped'
Traceback:
1: pyinit(x = x, y = y, resid_keep_method = "proportion", psc_keep = 0.5, resid_keep_prop = 0.5)
An irrecoverable exception occurred. R is aborting now ...
Flavor: r-patched-solaris-x86