# NOT RUN {
Data <- makeExampleBASiCS_Data()
Chain <- BASiCS_MCMC(Data, N = 50, Thin = 5, Burn = 5)
ChainMu <- displayChainBASiCS(Chain, 'mu')
ChainDelta <- displayChainBASiCS(Chain, 'delta')
ChainPhi <- displayChainBASiCS(Chain, 'phi')
ChainS <- displayChainBASiCS(Chain, 's')
ChainNu <- displayChainBASiCS(Chain, 'nu')
ChainTheta <- displayChainBASiCS(Chain, 'theta')
ChainNew <- newBASiCS_Chain(parameters = list(mu = ChainMu, delta = ChainDelta,
phi = ChainPhi, s = ChainS,
nu = ChainNu, theta = ChainTheta))
# }
Run the code above in your browser using DataLab