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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: plot_bulge
> ### Title: plot_bulge
> ### Aliases: plot_bulge
> 
> ### ** Examples
> 
> ###
> col1 <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19)
> col2 <- c("G","C","C","A","C","C","C","U","G","C","A","G","G","G","U","C","G","G","C")
> col3 <- c(0,1,2,3,4,5,6,7,8,0,10,11,12,13,14,15,16,17,18)
> col4 <- c(2,3,4,5,6,7,8,9,0,11,12,13,14,15,16,17,18,19,0)
> col5 <- c(19,18,17,15,14,13,12,11,10,9,8,7,6,5,4,0,3,2,1)
> col6 <- c(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19)
> data <- matrix(c(col1,col2,col3,col4,col5,col6),byrow=FALSE,ncol =6)
> plot_bulge(data)
   pos before after seq pos2 bound
1   20     19    21   A   20     0
2   21     20    22   A   21    -1
3    1      0     2   G    1    19
4    2      1     3   C    2    18
5    3      2     4   C    3    17
6    4      3     5   A    4    15
7    5      4     6   C    5    14
8    6      5     7   C    6    13
9    7      6     8   C    7    12
10   8      7     9   U    8    11
11   9      8    10   G    9    10
12  10      9    11   C   10     9
13  11     10    12   A   11     8
14  12     11    13   G   12     7
15  13     12    14   G   13     6
16  14     13    15   G   14     5
17  15     14    16   U   15     4
18  16     15    17   C   16     0
19  17     16    18   G   17     3
20  18     17    19   G   18     2
21  19     18    20   C   19     1
22   0     -1     1   A    0    20
23  -1     -2     0   A   -1    21
[1] "-1 21 0 0 0 1 -1 0"
$x
[1] -1

$y
[1] 0

[1] 1.047198
[1] "20 21 20"
[1] "19 20 19"
[1] "18 19 18"
[1] "17 18 17"
[1] "15 17 16"
[1] "New LOOPS:  c(3, 17)"
[1] 3
[1] "4 15 4.95105651629515 -0.309016994374947 5.53884176858763 0.5 4 2.44929359829471e-16"
$x
[1] -0.9510565

$y
[1] 0.309017

[1] 1.075232
[1] "14 15 14"
[1] "13 14 13"
[1] "12 13 12"
[1] "11 12 11"
[1] "10 11 10"
[1] "9 10 9"
Warning in output$x[j] <- output$x[output$pos == pbpos] + vect$x[1] :
  number of items to replace is not a multiple of replacement length
Warning in output$y[j] <- output$y[output$pos == pbpos] + vect$y[1] :
  number of items to replace is not a multiple of replacement length
[1] "8 9 8"
Warning in output$x[j] <- output$x[output$pos == prev1] + vect$x[1] :
  number of items to replace is not a multiple of replacement length
Warning in output$y[j] <- output$y[output$pos == prev1] + vect$y[1] :
  number of items to replace is not a multiple of replacement length
Warning in output$x[j] <- output$x[output$pos == pbpos] + vect$x[1] :
  number of items to replace is not a multiple of replacement length
Warning in output$y[j] <- output$y[output$pos == pbpos] + vect$y[1] :
  number of items to replace is not a multiple of replacement length
[1] "7 8 7"
Warning in output$x[j] <- output$x[output$pos == prev1] + vect$x[1] :
  number of items to replace is not a multiple of replacement length
Warning in output$y[j] <- output$y[output$pos == prev1] + vect$y[1] :
  number of items to replace is not a multiple of replacement length
Warning in output$x[j] <- output$x[output$pos == pbpos] + vect$x[1] :
  number of items to replace is not a multiple of replacement length
Warning in output$y[j] <- output$y[output$pos == pbpos] + vect$y[1] :
  number of items to replace is not a multiple of replacement length
[1] "6 7 6"
Warning in output$x[j] <- output$x[output$pos == prev1] + vect$x[1] :
  number of items to replace is not a multiple of replacement length
Warning in output$y[j] <- output$y[output$pos == prev1] + vect$y[1] :
  number of items to replace is not a multiple of replacement length
Warning in output$x[j] <- output$x[output$pos == pbpos] + vect$x[1] :
  number of items to replace is not a multiple of replacement length
Warning in output$y[j] <- output$y[output$pos == pbpos] + vect$y[1] :
  number of items to replace is not a multiple of replacement length
[1] "5 6 5"
Warning in output$x[j] <- output$x[output$pos == prev1] + vect$x[1] :
  number of items to replace is not a multiple of replacement length
Warning in output$y[j] <- output$y[output$pos == prev1] + vect$y[1] :
  number of items to replace is not a multiple of replacement length
Warning in output$x[j] <- output$x[output$pos == pbpos] + vect$x[1] :
  number of items to replace is not a multiple of replacement length
Warning in output$y[j] <- output$y[output$pos == pbpos] + vect$y[1] :
  number of items to replace is not a multiple of replacement length
[1] "4 5 4"
Warning in output$x[j] <- output$x[output$pos == prev1] + vect$x[1] :
  number of items to replace is not a multiple of replacement length
Warning in output$y[j] <- output$y[output$pos == prev1] + vect$y[1] :
  number of items to replace is not a multiple of replacement length
Warning in output$x[j] <- output$x[output$pos == pbpos] + vect$x[1] :
  number of items to replace is not a multiple of replacement length
Warning in output$y[j] <- output$y[output$pos == pbpos] + vect$y[1] :
  number of items to replace is not a multiple of replacement length
[1] "New LOOPS:  c(15, 4)"
[1] 15
Error in if (output$x[output$pos == lps[1]] < output$x[output$pos == pp]) { : 
  the condition has length > 1
Calls: plot_bulge -> ct2coord
Execution halted