# NOT RUN {
# Data = makeExampleBASiCS_D_Data()
# MCMC_Output <- BASiCS_D_MCMC(Data, N = 50, Thin = 5, Burn = 5,
# StoreChains = TRUE, StoreDir = getwd(), RunName = "Example")
# ChainMuTest = as.matrix(read.table("chain_muTest_Example.txt"))
# ChainMuRef = as.matrix(read.table("chain_muRef_Example.txt"))
# ChainDeltaTest = as.matrix(read.table("chain_deltaTest_Example.txt"))
# ChainDeltaRef = as.matrix(read.table("chain_deltaRef_Example.txt"))
# ChainPhi = as.matrix(read.table("chain_phi_Example.txt"))
# ChainS = as.matrix(read.table("chain_s_Example.txt"))
# ChainNu = as.matrix(read.table("chain_nu_Example.txt"))
# ChainThetaTest = read.table("chain_thetaTest_Example.txt")[,1]
# ChainThetaRef = read.table("chain_thetaRef_Example.txt")[,1]
# MCMC_Output_Load <- newBASiCS_D_Chain(muTest = ChainMuTest,
# muRef = ChainMuRef,
# deltaTest = ChainDeltaTest,
# deltaRef = ChainDeltaRef,
# phi = ChainPhi,
# s = ChainS,
# nu = ChainNu,
# thetaTest = ChainThetaTest,
# thetaRef = ChainThetaRef)
# }
Run the code above in your browser using DataLab