# NOT RUN {
data(sicalis)
vm <- vismodel(sicalis, achro='bt.dc')
gr <- gsub("ind..", "", rownames(vm))
bootcoldist(vm, gr, n = c(1, 2, 2, 4), weber = 0.1, weber.achro = 0.1, cores = 1)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab