set.seed(10)
n <- 5; t <- 10
df <- data.frame(
id = rep(1:n, each = t),
time = rep(1:t, times = n),
y = rnorm(n * t),
x1 = rnorm(n * t)
)
res <- xtpretest(df, y ~ x1, index = c("id", "time"),
tests = c("hsiao", "csd"))
Run the code above in your browser using DataLab