# NOT RUN {
# Number of iterations set to very small for CRAN automatic testing
data(da3)
try4<-PICBayes(formula=Surv(L,R,type='interval2')~x1+x2,data=data.frame(da3),
model='clusterPIC_int_DP',area=da3[,6],IC=da3[,7],scale.designX=TRUE,
scale=c(1,0),binary=c(0,1),I=25,C=C,order=3,
knots=c(0,2,6,max(da3[,1:2],na.rm=TRUE)+1),grids=seq(0.1,10.1,by=0.1),
a_eta=1,b_eta=1,a_ga=1,b_ga=1,a_alpha=1,b_alpha=1,H=5,a_tau_star=1,
b_tau_star=1,beta_iter=11,phi_iter=11,beta_cand=rep(1,2),phi_cand=1,
beta_sig0=10,x_user=NULL,total=60,burnin=10,thin=1,conf.int=0.95,seed=1)
# }
Run the code above in your browser using DataLab