# NOT RUN {
# Modelation the coeficient with generated data
library(llbayesireg)
library(llogistic)
# Number of elements to be generated
n=50
# Generated response
bin=2005
set.seed(bin)
y=rllogistic(n,0.5, 2)
fitll = llbayesireg(y, niter=100, jump=10)
llHPD(fitll)
# }
# NOT RUN {
# Modelation the coeficient with real data
library(llbayesireg)
data("Votes","MHDI")
y = Votes[,4]
X = MHDI
fitll = llbayesireg(y,X)
llHPD(fitll)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab