
# \donttest{
br_fit <- fit_cumhist(br_singleblock, state = "State", duration = "Duration")
predict(br_fit)
# full posterior prediction samples
predictions_samples <- predict(br_fit, summary=FALSE)
# }
Run the code above in your browser using DataLab