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