# NOT RUN {
X <- matrix(rnorm(4000),800,5)
tim <- seq(1:400)
geo_AT <- rep(c("AT"), length = 400)
geo_NO <- rep(c("NO"), length = 400)
both_vec_1 <- cbind(tim,geo_NO)
both_vec_2 <- cbind(tim,geo_AT)
both <- rbind(both_vec_1,both_vec_2)
names(both[,"geo_NO"]) <- "geo"
X <- cbind(both,X)
panel_diff(data = X,
cross.section = "geo_NO",
time.variable = "tim",
diff.order = 1,
lags = 1,
variables.selected = c("V3","V4"),
keep.original = TRUE)
# }
Run the code above in your browser using DataLab