# NOT RUN {
Data = makeExampleBASiCS_Data()
MCMC_Output <- BASiCS_MCMC(Data, N = 50, Thin = 5, Burn = 5,
StoreChains = TRUE, StoreDir = getwd(), RunName = "Test")
MCMC_Output_Load <- BASiCS_LoadChain(RunName = "Test", StoreDir = getwd())
# }
Run the code above in your browser using DataLab