I'm using limma_3.14.1

Suppose I set up:

data<-c(2,2,3,3,5,6,7,8)
data<-rbind(data,data) # Two row matrix
...