# NOT RUN {
#set.seed(1234)
n <- 200
x=rnorm(n)
ystar <- 1 + x + rnorm(n=n, mean=0, sd=1)
y=as.numeric(ystar>0)
fit = BBrq(y~x,tau=0.5,runs=3000, burn=1000)
# Note: runs =11000 and burn =1000
fit$coef
# }
Run the code above in your browser using DataLab