# NOT RUN {
# Use the first 300 samples of the simian_40 dataset.
# Run the function with 1 change-point, a maximum depth of 2 and the ["a", "c", "g", "t"] alphabet.
res <- calculate_exact_changepoint_posterior(substr(simian_40, 1, 300), 2, c("acgt"))
# }
Run the code above in your browser using DataLab