NeEDS4BigData

Running examples in ‘NeEDS4BigData-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: modelMissLinSub
> ### Title: Subsampling under linear regression for a potentially
> ###   misspecified model
> ### Aliases: modelMissLinSub
> 
> ### ** Examples
> 
> Beta <- c(-1, 0.75, 0.75, 1); Var_Epsilon <- 0.5;
> family <- "linear"; N <- 500
> X_1 <- replicate(2, stats::runif(n = N, min = -1, max = 1))
> 
> Temp <- Rfast::rowprods(X_1)
> Misspecification <- (Temp - mean(Temp)) / sqrt(mean(Temp^2) - mean(Temp)^2)
> X_Data <- cbind(X0 = 1, X_1)
> 
> Full_Data <- GenModelMissGLMdata(N, X_Data, Misspecification, Beta, Var_Epsilon, family)
> r0 <- 40; rf <- rep(10 * c(8, 12), 25)
> Original_Data <- Full_Data$Complete_Data[, -ncol(Full_Data$Complete_Data)]
> 
> Results <- modelMissLinSub(r0 = r0, rf = rf,
+                            Y = as.matrix(Original_Data[, 1]),
+                            X = as.matrix(Original_Data[, -1]),
+                            N = N, Alpha = 10, proportion = 0.5)
50% or >=50% of the big data is used to help find AMSE for the subsamples, 
this could take some time.
Error in a$specials[[i]] : subscript out of bounds
Calls: modelMissLinSub ... predict.glm -> predict.lm -> delete.response -> off
Execution halted
Examples with CPU (user + system) or elapsed time > 5s
                 user system elapsed
ALoptimalGLMSub 3.878  0.551   6.044

Running ‘spelling.R’ [0s/0s]
  Running ‘testthat.R’ [12s/16s]
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/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(NeEDS4BigData)
  > 
  > test_check("NeEDS4BigData")
  Saving _problems/test-modelMissLinSub-15.R
  Saving _problems/test-modelMissLogSub-14.R
  Saving _problems/test-modelMissPoiSub-14.R
  Saving _problems/test-plot_AMSE-15.R
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 283 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-modelMissLinSub.R:12:1'): (code run outside of `test_that()`) ──
  <subscriptOutOfBoundsError/error
...[truncated]...
Gam(...)
    8.       └─stats::predict.glm(...)
    9.         └─stats::predict.lm(...)
   10.           └─stats::delete.response(tt)
   11.             └─stats (local) off(a$specials[[i]])
  ── Error ('test-plot_AMSE.R:12:1'): (code run outside of `test_that()`) ────────
  <subscriptOutOfBoundsError/error/condition>
  Error in `a$specials[[i]]`: subscript out of bounds
  Backtrace:
       ▆
    1. ├─base::suppressMessages(...) at test-plot_AMSE.R:12:1
    2. │ └─base::withCallingHandlers(...)
    3. ├─base::suppressWarnings(...)
    4. │ └─base::withCallingHandlers(...)
    5. └─NeEDS4BigData::modelMissLinSub(...)
    6.   └─gam::predict.Gam(fit_GAM, newdata = data.frame(X))
    7.     └─gam::newdata.predict.Gam(...)
    8.       └─stats::predict.glm(...)
    9.         └─stats::predict.lm(...)
   10.           └─stats::delete.response(tt)
   11.             └─stats (local) off(a$specials[[i]])
  
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 283 ]
  Error:
  ! Test failures.
  Execution halted