# Simulate data from heteroskedastic regression
n <- 200
X <- runif(n=n,min=0,max=10)
X <- cbind(1,X)
y <- 1 + 2*X[,2] + rnorm(n=n, mean=0, sd=.6*X[,2])
# Initialize the inputs for QRc
Data = list(y=y, X=X, p=c(.25,.5,.75))
Mcmc = list(R=5000)
# Analyze 5 quantiles using default prior
out = QRseq(Method="QRc", Data=Data, Mcmc=Mcmc)
# Look at the structure of the output
str(out)Run the code above in your browser using DataLab