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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: diagnosticPlot2
> ### Title: Diagnostics F Statistiics Visualization
> ### Aliases: diagnosticPlot2
> 
> ### ** Examples
> 
> 
> ## Don't show: 
> test <- matrix(rnorm(5000),100,50)
> roweff <- sample(1:5,10,replace=TRUE)
> coleff <- sample(1:5,10,replace=TRUE)
> test[11:20,11:20] <- test[11:20,11:20] +
+   matrix(coleff,nrow=10,ncol=10,byrow=TRUE) +
+   matrix(roweff,nrow=10,ncol=10) +
+   roweff %*% t(coleff)
> 
> 
> #Apply Plaid Biclustering
> res <- biclust(test, method=BCPlaid())
layer: 0 
 7333.941
layer: 1 
[1] 0 8 8
[1] 30  8  8
[1] 31  8  8
[1] 60  8  8
[1] 1
[1] 15998.50     0.00  2835.42     0.00
back fitting 2 times
layer: 2 
[1]  0 10 10
[1] 30 10 10
[1] 31  5 10
[1] 32  5  2
[1] 33  5  2
[1] 60  5  2
[1] 1
[1] 494.50112  26.10738   0.00000   0.00000
back fitting 2 times
layer: 3 
[1]  0  2 10
[1] 30  2 10
[1] 31  2 10
[1] 32  2  9
[1] 33  2  9
[1] 60  2  9
[1] 1
[1] 703.5979   0.0000   0.0000   0.0000
back fitting 2 times
layer: 4 
[1]  0 49 24
[1]  1 43 21
[1]  2 42 16
[1]  3 41 16
[1] 30 41 16
[1] 31  0 16
[1] 32
[1] 0 0 0 0
     
Layer Rows Cols  Df       SS      MS Convergence Rows Released Cols Released
    0  100   50 149   182.33    1.22          NA            NA            NA
    1    8    8  15 26830.43 1788.70           1             0             0
    2    5    2   6   631.14  105.19           1             5             8
    3    2    9  10  1028.16  102.82           1             0             1
> 
> #Apply default diagnosticTest
> out <- diagnosticTest(BCresult=res, data=test, save_F=TRUE, number=1,
+                       statistics=c("F"),
+                       samplingtypes=c("Permutation"))
BC 1 
- Frow/Fcol

> diagnosticPlot2(out,number=1)
`stat_bin()` using `bins = 30`. Pick better value with `binwidth`.
Error in Summary.unit(c(4.4, 4.4), na.rm = FALSE) : 
  VECTOR_ELT() can only be applied to a 'list', not a 'double'
Calls: <Anonymous> ... render_strips -> build_strip -> ggstrip -> Summary.unit
Execution halted