if(require("quantreg", quietly=TRUE)) {
data("stackloss")
res <- global_rq(nsim = 19, # Increase nsim for serious analysis!
formula.full = stack.loss ~ Air.Flow + Water.Temp + Acid.Conc.,
formula.reduced = stack.loss ~ Water.Temp,
taus = seq(0.1, 0.9, length=10), permutationstrategy = "remove quantile",
data = stackloss, GET.args = list(typeone = "fwer"))
plot(res)
}
Run the code above in your browser using DataLab