# \donttest{
gpx <- (1:25)/25
gpy <- (1:30)/30
data <- fpqr_dgp(n = 10, gpy = gpy, gpx = gpx, err.dist = "normal")
y <- data$y
x <- data$x
data.test <- fpqr_dgp(n = 10, gpy = gpy, gpx = gpx, err.dist = "normal")
x.test <- data.test$x
y.test <- data.test$y.true
fpqr.model.li <- fpqr(y=y, x=x, tau = 0.5, gpx = gpx, gpy = gpy, qc.type = "li")
predictions <- predict_fpqr(object = fpqr.model.li, xnew = x.test)
# }
Run the code above in your browser using DataLab