# NOT RUN {
M <- matrix(rbinom(200,1,0.5),10,20) #A random 10x20 binary matrix
fastball(M) #Fast generation of a random matrix
Mlist <- apply(M==1, 1, which) #Converting M to a list
fastball(Mlist, R = 10, C = 20) #Even faster generation of a random matrix
# }
Run the code above in your browser using DataLab