When i am trying to apply to 100 ordered gene list, it return a error.

Can any one please advice to solve the issue ?

My code

library(OrderedList)
data(OL.data)
list1 <- as.character(OL.data$map$prostate)[1:100]
list2 <- c(sample(list1[1:50]),sample(list1[51:100]))
y <-  compareLists(list1,list2)

Error in 1:n : result would be too long a vector
In addition: Warning message:
In max(nn) : no non-missing arguments to max; returning -Inf