Package: ivgets
Check: tests
New result: ERROR
    Running ‘testthat.R’ [4s/4s]
  Running the tests in ‘tests/testthat.R’ failed.
  Complete output:
    > library(testthat)
    > library(ivgets)
    Loading required package: gets
    Loading required package: zoo
    
    Attaching package: 'zoo'
    
    The following objects are masked from 'package:base':
    
        as.Date, as.Date.numeric
    
    Loading required package: parallel
    Loading required package: ivreg
    > 
    > test_check("ivgets")
    [ FAIL 5 | WARN 0 | SKIP 4 | PASS 550 ]
    
    ══ Skipped tests (4) ═══════════════════════════════════════════════════════════
    • On CRAN (4): 'test-base_iv.R:43:3', 'test-base_iv.R:267:3',
      'test-getsiv.R:49:3', 'test-utility.R:531:3'
    
    ══ Failed tests ════════════════════════════════════════════════════════════════
    ── Error ('test-isativ.R:26:3'): ivisat() works correctly ──────────────────────
    Error in `if (include.gum) {
        out$terminals[[1]] <- gum
        if (is.null(gof.function$envir)) {
            gofValue <- do.call(gof.function$name, c(list(est), gofFunArg))
        }
        else {
            gofValue <- do.call(gof.function$name, c(list(est), gofFunArg), 
                envir = gof.function$envir)
        }
        out$terminals.results <- rbind(out$terminals.results, c(gofValue, 
            est$logl, est$n, est$k))
        row.labels <- c(row.labels, "spec 1 (gum):")
    }`: argument is of length zero
    Backtrace:
        ▆
     1. └─ivgets::ivisat(formula = fml, data = df, iis = TRUE, print.searchinfo = FALSE) at test-isativ.R:26:3
     2.   ├─gets::isat(...)
     3.   └─gets::isat.default(...)
     4.     └─gets:::ISMatricesLoop(...)
     5.       └─base::lapply(...)
     6.         └─gets (local) FUN(X[[i]], ...)
     7.           └─gets::getsFun(...)
    ── Error ('test-isativ.R:155:3'): isat.ivreg() works correctly ─────────────────
    Error in `if (include.gum) {
        out$terminals[[1]] <- gum
        if (is.null(gof.function$envir)) {
            gofValue <- do.call(gof.function$name, c(list(est), gofFunArg))
        }
        else {
            gofValue <- do.call(gof.function$name, c(list(est), gofFunArg), 
                envir = gof.function$envir)
        }
        out$terminals.results <- rbind(out$terminals.results, c(gofValue, 
            est$logl, est$n, est$k))
        row.labels <- c(row.labels, "spec 1 (gum):")
    }`: argument is of length zero
    Backtrace:
        ▆
     1. ├─gets::isat(base, print.searchinfo = FALSE) at test-isativ.R:155:3
     2. └─ivgets:::isat.ivreg(base, print.searchinfo = FALSE)
     3.   └─ivgets::ivisat(...)
     4.     ├─gets::isat(...)
     5.     └─gets::isat.default(...)
     6.       └─gets:::ISMatricesLoop(...)
     7.         └─base::lapply(...)
     8.           └─gets (local) FUN(X[[i]], ...)
     9.             └─gets::getsFun(...)
    ── Error ('test-isativ.R:232:3'): isativ() works correctly with argument 'fast' ──
    Error in `if (include.gum) {
        out$terminals[[1]] <- gum
        if (is.null(gof.function$envir)) {
            gofValue <- do.call(gof.function$name, c(list(est), gofFunArg))
        }
        else {
            gofValue <- do.call(gof.function$name, c(list(est), gofFunArg), 
                envir = gof.function$envir)
        }
        out$terminals.results <- rbind(out$terminals.results, c(gofValue, 
            est$logl, est$n, est$k))
        row.labels <- c(row.labels, "spec 1 (gum):")
    }`: argument is of length zero
    Backtrace:
        ▆
     1. └─ivgets::ivisat(...) at test-isativ.R:232:3
     2.   ├─gets::isat(...)
     3.   └─gets::isat.default(...)
     4.     └─gets:::ISMatricesLoop(...)
     5.       └─base::lapply(...)
     6.         └─gets (local) FUN(X[[i]], ...)
     7.           └─gets::getsFun(...)
    ── Error ('test-isativ_nosnap.R:26:3'): ivisat() works correctly ───────────────
    Error in `if (include.gum) {
        out$terminals[[1]] <- gum
        if (is.null(gof.function$envir)) {
            gofValue <- do.call(gof.function$name, c(list(est), gofFunArg))
        }
        else {
            gofValue <- do.call(gof.function$name, c(list(est), gofFunArg), 
                envir = gof.function$envir)
        }
        out$terminals.results <- rbind(out$terminals.results, c(gofValue, 
            est$logl, est$n, est$k))
        row.labels <- c(row.labels, "spec 1 (gum):")
    }`: argument is of length zero
    Backtrace:
        ▆
     1. └─ivgets::ivisat(formula = fml, data = df, iis = TRUE, print.searchinfo = FALSE) at test-isativ_nosnap.R:26:3
     2.   ├─gets::isat(...)
     3.   └─gets::isat.default(...)
     4.     └─gets:::ISMatricesLoop(...)
     5.       └─base::lapply(...)
     6.         └─gets (local) FUN(X[[i]], ...)
     7.           └─gets::getsFun(...)
    ── Error ('test-isativ_nosnap.R:146:3'): isat.ivreg() works correctly ──────────
    Error in `if (include.gum) {
        out$terminals[[1]] <- gum
        if (is.null(gof.function$envir)) {
            gofValue <- do.call(gof.function$name, c(list(est), gofFunArg))
        }
        else {
            gofValue <- do.call(gof.function$name, c(list(est), gofFunArg), 
                envir = gof.function$envir)
        }
        out$terminals.results <- rbind(out$terminals.results, c(gofValue, 
            est$logl, est$n, est$k))
        row.labels <- c(row.labels, "spec 1 (gum):")
    }`: argument is of length zero
    Backtrace:
        ▆
     1. ├─gets::isat(base, print.searchinfo = FALSE) at test-isativ_nosnap.R:146:3
     2. └─ivgets:::isat.ivreg(base, print.searchinfo = FALSE)
     3.   └─ivgets::ivisat(...)
     4.     ├─gets::isat(...)
     5.     └─gets::isat.default(...)
     6.       └─gets:::ISMatricesLoop(...)
     7.         └─base::lapply(...)
     8.           └─gets (local) FUN(X[[i]], ...)
     9.             └─gets::getsFun(...)
    
    [ FAIL 5 | WARN 0 | SKIP 4 | PASS 550 ]
    Error: Test failures
    Execution halted