# NOT RUN {
n <- 100
x <- runif(n, 0, 1)
y <- x^2 + rnorm(n, 0, 0.1)
sample <- data.frame(x, y)
##(Not Run)
fit <- qad(sample)
summary(fit)
coef(fit)
coef(fit, select = c('q(x1,x2)','p.q(x1,x2)'))
# }
Run the code above in your browser using DataLab