# NOT RUN {
n = 5
r = 1000
x = lapply(seq(n), function(i) {
x = rbinom(n = r, size = 1, prob = 0.5)
array(x, dim = c(10,10, 10))
})
staple_out = staple_bin_img(x, set_orient = FALSE)
n = 5
r = 1000
x = lapply(seq(n), function(i) {
x = rbinom(n = r, size = 5, prob = 0.5)
array(x, dim = c(10,10, 10))
})
staple_out = staple_multi_img(x, set_orient = FALSE)
# }
Run the code above in your browser using DataLab