Package: VsusP Check: examples New result: ERROR Running examples in ‘VsusP-Ex.R’ failed The error most likely occurred in: > base::assign(".ptime", proc.time(), pos = "CheckExEnv") > ### Name: Sequential2Means > ### Title: Variable selection using shrinkage priors :: Sequential2Means > ### Aliases: Sequential2Means > > ### ** Examples > > # ----------------------------------------------------------------- > # Example 1: Gaussian Model and Horseshoe prior > n <- 10 > p <- 5 > X <- matrix(rnorm(n * p), n, p) > beta <- exp(rnorm(p)) > Y <- as.vector(X %*% beta + rnorm(n, 0, 1)) > b.i <- seq(0, 1, 0.05) > > # Sequential2Means with horseshoe+ using gibbs sampling > # recommended n.samples is 5000 and burning is 2000 > S2M <- Sequential2Means(X, Y, b.i, "horseshoe+", 110, 100) Error in Beta[i, ] : subscript out of bounds Calls: Sequential2Means -> numNoiseCoeff -> -> as.matrix Execution halted Package: VsusP Check: re-building of vignette outputs New result: ERROR Error(s) in re-building vignettes: ... --- re-building ‘VsusPVignette.Rmd’ using rmarkdown Quitting from lines 138-143 [s2m-apply] (VsusPVignette.Rmd) Error: processing vignette 'VsusPVignette.Rmd' failed with diagnostics: subscript out of bounds --- failed re-building ‘VsusPVignette.Rmd’ SUMMARY: processing the following file failed: ‘VsusPVignette.Rmd’ Error: Vignette re-building failed. Execution halted Package: VsusP Check: tests New result: ERROR Running ‘testthat.R’ [1s/2s] Running the tests in ‘tests/testthat.R’ failed. Complete output: > # 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/tests.html > # * https://testthat.r-lib.org/reference/test_package.html#special-files > > library(testthat) > library(VsusP) > > test_check("VsusP") [ FAIL 1 | WARN 0 | SKIP 0 | PASS 28 ] ══ Failed tests ════════════════════════════════════════════════════════════════ ── Error ('test-Sequential2Means.R:58:3'): Sequential2Means works ────────────── Error in `Beta[i, ]`: subscript out of bounds Backtrace: ▆ 1. ├─testthat::expect_length(...) at test-Sequential2Means.R:58:3 2. │ └─testthat::quasi_label(enquo(object), arg = "object") 3. │ └─rlang::eval_bare(expr, quo_get_env(quo)) 4. └─VsusP::Sequential2Means(X, Y, b.i, "ridge", 200, 100) 5. └─VsusP:::numNoiseCoeff(Beta[i, ], b.i[r]) 6. └─stats::kmeans(abs(Beta.i), 2) 7. └─base::as.matrix(x) [ FAIL 1 | WARN 0 | SKIP 0 | PASS 28 ] Error: Test failures Execution halted