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