# 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