# NOT RUN {
# }
# NOT RUN {
set.seed(1)
epsilon<-rnorm(100)
set.seed(2)
x<-matrix(rnorm(1000),100,10)
y<-x[,1]+x[,10]+epsilon
qrssvs<-SSVSquantreg(y~x)
mptable(qrssvs$gamma)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace