Nothing

```
Brq.default <-
function(x, y, tau=0.5, method=c("Bqr","BBqr","BLqr","BLBqr","BALqr","Btqr","BLtqr","BALtqr"), left=0, runs=2000, burn=1000, thin=1, ...)
{
x <- as.matrix(x)
y <- as.numeric(y)
method <- match.arg(method,c("Bqr","BBqr","BLqr","BLBqr","BALqr","Btqr","BLtqr","BALtqr"))
est= switch(method,
Bqr = Bqr(x,y,tau=tau, runs=runs, burn=burn, thin=thin),
BBqr = BBqr(x,y,tau=tau, runs=runs, burn=burn, thin=thin),
BLqr = BLqr(x,y,tau=tau, runs=runs, burn=burn, thin=thin),
BLBqr = BLqr(x,y,tau=tau, runs=runs, burn=burn, thin=thin),
BALqr = BALqr(x,y,tau=tau, runs=runs, burn=burn, thin=thin),
Btqr = Btqr(x,y,tau=tau,left = 0,runs=runs, burn=burn, thin=thin),
BLtqr = BLtqr(x,y,tau=tau, left = 0, runs=runs, burn=burn, thin=thin),
BALtqr= BALtqr(x,y,tau=tau, left = 0, runs=runs, burn=burn, thin=thin))
est$tau <- tau
est$fitted.values <- as.vector(x %*% est$coefficients)
est$residuals <- y - est$fitted.values
est$call <- match.call()
class(est) <- "Brq"
est
}
```

**Any scripts or data that you put into this service are public.**

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.