# Minimal example: create parameters and run a very short MCMC
params <- LinearAbxModel(nstates = 2)
data(simulated.data_sorted, package = "bayestransmission")
results <- runMCMC(
data = simulated.data_sorted,
modelParameters = params,
nsims = 3,
nburn = 0,
outputparam = TRUE,
outputfinal = FALSE,
verbose = FALSE
)
str(results)
Run the code above in your browser using DataLab