powered by
imagesort(x, col = c("white", "black"), ...)
x <- replicate(4,sample(0:1,40,TRUE)) imagesort(x)
Run the code above in your browser using DataLab