# NOT RUN {
# Data = makeExampleBASiCS_Data()
# MCMC_Output <- BASiCS_MCMC(Data, N = 50, Thin = 5, Burn = 5,
# StoreChains = TRUE, StoreDir = getwd(), RunName = "Test")
# ChainMu = as.matrix(read.table("chain_mu_Test.txt"))
# ChainDelta = as.matrix(read.table("chain_delta_Test.txt"))
# ChainPhi = as.matrix(read.table("chain_phi_Test.txt"))
# ChainS = as.matrix(read.table("chain_s_Test.txt"))
# ChainNu = as.matrix(read.table("chain_nu_Test.txt"))#
# ChainTheta = read.table("chain_theta_Test.txt")[,1]
# MCMC_Output_Load <- newBASiCS_Chain(mu = ChainMu, delta = ChainDelta,
# phi = ChainPhi, s = ChainS, nu = ChainNu, theta = ChainTheta)
# }
Run the code above in your browser using DataLab