# NOT RUN {
## Set up the data.
data(breast.17) # the breast cancer dataset
breast.data <- as.matrix(breast.17) # put data in matrix object
## Default values ncycles=2000, burnin=1000, seed=1
## CPU time is given from a run of the R command system.time() on an
## Intel $2.8$ GHz Q$9550$ running Linux
chain1.list <- bf1(breast.data) # 40.5 secs
## Next get a second set of 9 chains, with a different seed
chain2.list <- bf2(breast.data, seed=2) # 40.4 secs
## Perhaps save for another time.
save(chain1.list,chain2.list,file="breast-rdat-2lists-1000",compress=TRUE)
## later session
load("breast-rdat-2lists-1000")
# }
Run the code above in your browser using DataLab