* using log directory ‘/data/gannet/ripley/R/packages/tests-LENGTH1/RSPS.Rcheck’
* using R Under development (unstable) (2022-04-03 r82074)
* using platform: x86_64-pc-linux-gnu (64-bit)
* using session charset: UTF-8
* using option ‘--no-stop-on-test-error’
* checking for file ‘RSPS/DESCRIPTION’ ... OK
* checking extension type ... Package
* this is package ‘RSPS’ version ‘1.0’
* checking package namespace information ... OK
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for executable files ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking for sufficient/correct file permissions ... OK
* checking whether package ‘RSPS’ can be installed ... OK
* checking package directory ... OK
* checking DESCRIPTION meta-information ... OK
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking R files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* checking whether the package can be loaded ... OK
* checking whether the package can be loaded with stated dependencies ... OK
* checking whether the package can be unloaded cleanly ... OK
* checking whether the namespace can be loaded with stated dependencies ... OK
* checking whether the namespace can be unloaded cleanly ... OK
* checking loading without being on the library search path ... OK
* checking use of S3 registration ... OK
* checking dependencies in R code ... OK
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... NOTE
negbin.pow : negbin.disp: no visible global function definition for
  ‘rpois’
negbin.pow : negbin.disp: no visible global function definition for
  ‘rnbinom’
negbin.pow : inner.fcn: no visible global function definition for
  ‘na.omit’
negbin.pow : inner.fcn: no visible global function definition for
  ‘quantile’
negbin.pow: no visible global function definition for ‘txtProgressBar’
negbin.pow: no visible global function definition for
  ‘setTxtProgressBar’
poiss.pow : inner.fcn: no visible global function definition for
  ‘rpois’
poiss.pow : inner.fcn: no visible global function definition for
  ‘quantile’
poiss.pow: no visible global function definition for ‘txtProgressBar’
poiss.pow: no visible global function definition for
  ‘setTxtProgressBar’
Undefined global functions or variables:
  na.omit quantile rnbinom rpois setTxtProgressBar txtProgressBar
Consider adding
  importFrom("stats", "na.omit", "quantile", "rnbinom", "rpois")
  importFrom("utils", "setTxtProgressBar", "txtProgressBar")
to your NAMESPACE file.
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd line widths ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking LazyData ... NOTE
  'LazyData' is specified without a 'data' directory
* checking examples ... ERROR
Running examples in ‘RSPS-Ex.R’ failed
The error most likely occurred in:

> ### Name: RSPS-package
> ### Title: Provides estimates of power or sample size using empirical
> ###   approach.
> ### Aliases: RSPS-package RSPS
> ### Keywords: power sample.size simulation power.plots
> 
> ### ** Examples
> 
> power.poiss <- poiss.pow(n=c(5,10,15),lambda1=c(3),k=c(2,2.5,3),
+ alpha=0.05,seed = 20,numsim=100,monitor=TRUE)
 ----------- FAILURE REPORT -------------- 
 --- failure: length > 1 in coercion to logical ---
 --- srcref --- 
: 
 --- package (from environment) --- 
RSPS
 --- call from context --- 
poiss.pow(n = c(5, 10, 15), lambda1 = c(3), k = c(2, 2.5, 3), 
    alpha = 0.05, seed = 20, numsim = 100, monitor = TRUE)
 --- call from argument --- 
mean(n.integer(n)) != 1 || n <= 0
 --- R stacktrace ---
where 1: poiss.pow(n = c(5, 10, 15), lambda1 = c(3), k = c(2, 2.5, 3), 
    alpha = 0.05, seed = 20, numsim = 100, monitor = TRUE)

 --- value of length: 3 type: logical ---
[1] FALSE FALSE FALSE
 --- function from context --- 
function (n, lambda1, k, alpha = 0.05, seed = 20, numsim = 2000, 
    monitor = TRUE, sig = 3) 
{
    n.integer <- function(x, tol = .Machine$double.eps) {
        abs(x - round(x)) < tol
    }
    if (alpha >= 1 || alpha <= 0) 
        stop("Error: alpha must be between 0 and 1")
    if (any(k <= 0)) 
        stop("Error: k <= 0")
    if (mean(n.integer(n)) != 1 || n <= 0) 
        stop("n must be positive integer")
    l <- list(n = n, lambda1 = lambda1, k = k, alpha = alpha, 
        seed = seed, numsim = numsim)
    store <- expand.grid(l)
    inner.fcn <- function(n, lambda1, k, alpha, seed, numsim) {
        set.seed(seed)
        T <- NULL
        for (i in 1:numsim) {
            x <- rpois(n, lambda = lambda1)
            y <- rpois(n, lambda = lambda1)
            se <- sqrt(mean(x)/n + mean(y)/n)
            t <- (mean(x) - mean(y))/se
            T[i] <- t
        }
        T_crit <- c(quantile(T, alpha/2), quantile(T, 1 - alpha/2))
        T_alt <- NULL
        for (i in 1:numsim) {
            x <- rpois(n, lambda = lambda1)
            y <- rpois(n, lambda = k * lambda1)
            se <- sqrt(mean(x)/n + mean(y)/n)
            t <- (mean(x) - mean(y))/se
            T_alt[i] <- t
        }
        val1 <- length(T_alt[T_alt > T_crit[2]])
        val2 <- length(T_alt[T_alt < T_crit[1]])
        power <- sum(val1, val2)/numsim
    }
    if (monitor == TRUE) {
        pb <- txtProgressBar(min = 0, max = dim(store)[1], style = 3)
        for (i in 1:dim(store)[1]) {
            power <- mapply(inner.fcn, store[, 1], store[, 2], 
                store[, 3], store[, 4], store[, 5], store[, 6])
            Std.Err <- sqrt(power * (1 - power)/store[, 6])
            out <- cbind(store[, 1:4], round(power, sig), round(Std.Err, 
                sig))
            colnames(out) <- c("N", "Mean.Null", "Effect.Size", 
                "Type.I.Error", "Power", "Std.Err")
            setTxtProgressBar(pb, i)
        }
        close(pb)
        return(out)
    }
    if (monitor == FALSE) {
        power <- mapply(inner.fcn, store[, 1], store[, 2], store[, 
            3], store[, 4], store[, 5], store[, 6])
        Std.Err <- sqrt(power * (1 - power)/store[, 6])
        out <- cbind(store[, 1:4], round(power, sig), round(Std.Err, 
            sig))
        colnames(out) <- c("N", "Mean.Null", "Effect.Size", "Type.I.Error", 
            "Power", "Std.Err")
    }
    return(out)
}
<bytecode: 0x3e57df8>
<environment: namespace:RSPS>
 --- function search by body ---
Function poiss.pow in namespace RSPS has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: length > 1 in coercion to logical
* checking PDF version of manual ... OK
* checking for non-standard things in the check directory ... OK
* checking for detritus in the temp directory ... OK
* DONE

Status: 1 ERROR, 2 NOTEs
See
  ‘/data/gannet/ripley/R/packages/tests-LENGTH1/RSPS.Rcheck/00check.log’
for details.

Command exited with non-zero status 1
Time 1:04.39, 36.30 + 6.29