# NOT RUN {
set.seed(1234)
NormalData0 <- rnorm(n = 100, mean= 20, sd = 1)
set.seed(12345)
NormalData1 <- rnorm(n = 50, mean= 30, sd = 1)
NormalNPP_MCMC(Data.Cur = NormalData1, Data.Hist = NormalData0,
CompStat = list(n0 = 100, mean0 = 10, var0 = 1,
n1 = 100, mean1 = 10, var1 = 1),
prior = list(joint.a = 1.5, delta.alpha = 1, delta.beta = 1),
MCMCmethod = 'RW', rw.logit.delta = 1,
ind.delta.alpha= 1, ind.delta.beta= 1, nsample = 10000,
control.mcmc = list(delta.ini = NULL, burnin = 0, thin = 1))
# }
Run the code above in your browser using DataCamp Workspace