# NOT RUN {
data(LC1980)
data=LC1980[,-1]
# Not run to save time, but loaded object is the output
# bootbbt <- boot_blackbt(data, missing=c(0,8,9), dims=1, minscale=8, iter=10)
data("bootbbt")
plot.boot_blackbt(bootbbt)
# }
Run the code above in your browser using DataLab