if (FALSE) {
gpx <- (1:50)/50
gpy <- (1:60)/60
data <- fpqr_dgp(n = 100, gpy = gpy, gpx = gpx, err.dist = "normal")
y <- data$y
x <- data$x
fpqr.model.dodge <- fpqr(y=y, x=x, tau = 0.5, gpx = gpx, gpy = gpy,
qc.type = "dodge")
fpqr.model.choi <- fpqr(y=y, x=x, tau = 0.5, gpx = gpx, gpy = gpy,
qc.type = "choi")
fpqr.model.li <- fpqr(y=y, x=x, tau = 0.5, gpx = gpx, gpy = gpy,
qc.type = "li")
}
Run the code above in your browser using DataLab