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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Adaptive.GBH
> ### Title: Adaptive Group Benjamini-Hochberg Procedure
> ### Aliases: Adaptive.GBH
> ### Keywords: ~htest
> 
> ### ** Examples
> 
> ## These are the unadjusted p-values corresponding to
> ## the outcome of some multiple testing experiment. The
> ## first 500 hypotheses are null and the last 1500 are
> ## true alternatives.
> unadjp <- c(runif(500, 0, 0.01), runif(1500, 0, 1))
> names(unadjp) <- paste("Hyp: ", 1:2000)
> 
> ## Here there are two groups total we have randomly
> ##  assigned hypotheses to these two groups.
> group.index <- c(sample(1:2, 2000, replace = TRUE))
> 
> # Perform the GBH adjustment.
> result <-  Adaptive.GBH(unadjp, group.index, method = "storey")
> 
> # A summary of the GBH adjustment
> summary(result)
GBH adjusted p values: 
                unadjp       adjp group adj.significance
Hyp:  488 1.836858e-05 0.01403427     2                *
Hyp:  463 1.932835e-05 0.01403427     1                *
Hyp:  409 1.114951e-04 0.02580066     1                *
Hyp:  116 1.307758e-04 0.02580066     2                *
Hyp:  27  1.339033e-04 0.02580066     1                *
Hyp:  491 2.274122e-04 0.02580066     2                *
Hyp:  47  2.333120e-04 0.02580066     2                *
Hyp:  281 2.778712e-04 0.02580066     1                *
Hyp:  133 3.554058e-04 0.02580066     1                *
Hyp:  441 4.152843e-04 0.02580066     2                *
[only 10 most significant hypotheses shown] 
--- 
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 '-' 1 

 Estimated proportion of hypotheses that are null, within each group: 
        1         2 
0.7296748 0.7322835 

 Significance across groups: 
     adj.significance
group   *   -   .
    1 251 716  17
    2 283 710  23
> 
> # The estimated proportions of null hypotheses, between groups
> result@pi0
        1         2 
0.7296748 0.7322835 
> 
> # Visualizing the sorted p-values, before and after adjustment
> plot(result, adjust = TRUE)
Error in grid.Call.graphics(C_setviewport, vp, TRUE) : 
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
Calls: <Anonymous> ... push.vp.vpTree -> push.vp -> push.vp.viewport -> grid.Call.graphics
Execution halted