# NOT RUN {
##Load the data
data(motorettes)
attach(motorettes)
##Set design matrix
x <- cbind(1,x)
##Fits a right censored normal model
Normal <- Bayes.CR(cc,x,y,cens="right",dist="Normal",n.thin=10,burnin=200,n.iter=800,
n.chains=1,chain="TRUE")
# }
Run the code above in your browser using DataLab