# NOT RUN {
set.seed(12345)
n <- 100
p=8
Beta=c(5, 0, 0, 0, 0, 0, 0, 0)
x <- matrix(rnorm(n=p*n),n)
y <-x%*%Beta+ rnorm(n)
y=pmax(y,0)
fit=BLTrq(y~0+x,tau=0.5, runs=5000, burn=1000)
# Note: runs =11000 and burn =1000
fit$coef
# }
Run the code above in your browser using DataLab