# NOT RUN {
x_1 <- rnorm( 10 )
cross_levels <- c( "AT", "DE" )
time <- seq(1:5)
time <- rep(time, 2)
geo_list <- list()
for(i in 1:length(cross_levels))
{
geo <- rep( cross_levels[i],
100 )
geo_list[[i]] <- geo
}
geo <- unlist(geo_list)
geo <- as.data.frame(geo)
example_data <- cbind( time,
x_1 )
example_data <- as.data.frame(example_data)
example_data <- cbind( geo,
example_data)
names(example_data) <- c("geo", "time", "x_1")
test_dummies <- panel_dummify( data = example_data,
cross.section = "geo",
time.variable = "time")
# }
Run the code above in your browser using DataLab