id <- rep(1:50, each = 10)
y <- rnorm(500) + rnorm(50)[id]
m1 <- iqrL(fx = y ~ 1, fu = ~ I(qnorm(u)), id = id) # correct
m2 <- iqrL(fx = y ~ 1, fu = ~ u, id = id) # misspecified
# \donttest{
test.fit(m1, R = 20)
test.fit(m2, R = 20)
# }
# Warning: this procedure may be time-consuming.
Run the code above in your browser using DataLab