# NOT RUN {
ModeDeltaBerNPP(Data.Cur = c(100, 40), Data.Hist = c(100, 40), npoints = 1000,
prior = list(p.alpha = 1, p.beta = 1, delta.alpha = 1, delta.beta = 1))
ModeDeltaBerNPP(Data.Cur = c(100, 40), Data.Hist = c(100, 35), npoints = 1000,
prior = list(p.alpha = 1, p.beta = 1, delta.alpha = 1, delta.beta = 1))
ModeDeltaBerNPP(Data.Cur = c(100, 40), Data.Hist = c(100, 50), npoints = 1000,
prior = list(p.alpha = 1, p.beta = 1, delta.alpha = 1, delta.beta = 1))
# }
Run the code above in your browser using DataLab