This allows you to remove a burnin and thin the chains after processing. This is mostly redundant as you can now index the cia_chain(s) objects directly.
Examples
data <- bnlearn::learning.test
scorer <- CreateScorer(
scorer = BNLearnScorer,
data = data
)
init_state <- InitPartition(colnames(data), scorer)
results <- SampleChains(100, init_state, PartitionMCMC(), scorer)
thinned_results <- PostProcessChains(results, n_thin = 2)