# \donttest{
# Load the datasets
data(cancer_demo)
data(normal_demo)
rst <- mmcmcBayes(cancer_demo, normal_demo,
stage = 1,max_stages = 2,num_splits = 5,
test = "BF", priors_cancer = NULL, priors_normal = NULL,
bf_thresholds = list(stage1 = 10, stage2 = 10.3, stage3 = 10.3),
return_mcmc = TRUE)
traceplot_asgn(rst$mcmc_samples$current_stage$cancer, param = "alpha", main = "Cancer Alpha")
# }
Run the code above in your browser using DataLab