# generate random 1000 transactions for 200 items with
# a success probability decreasing from 0.2 to 0.0001
trans <- random.transactions(200, 1000, seq(0.2,0.0001, length=200))
# display random data set
image(trans)
Run the code above in your browser using DataLab