# \donttest{
set.seed(42)
n <- 10; tt <- 20
dat <- data.frame(
id = rep(1:n, each = tt),
time = rep(1:tt, times = n),
y = rnorm(n * tt),
x1 = rnorm(n * tt)
)
res <- xtqsh(y ~ x1, data = dat, index = c("id", "time"), tau = 0.5)
print(res)
# }
Run the code above in your browser using DataLab