set.seed(123)
years <- 2000:2010
sectors <- c("Agriculture", "Manufacturing", "Services")
direct <- data.frame(
Year = years,
Agriculture = 100 + cumsum(rnorm(11)),
Manufacturing = 120 + cumsum(rnorm(11)),
Services = 90 + cumsum(rnorm(11))
)
production <- data.frame(
Year = years,
Agriculture = 102 + cumsum(rnorm(11)),
Manufacturing = 118 + cumsum(rnorm(11)),
Services = 92 + cumsum(rnorm(11))
)
panel <- prepare_panel_data(direct, production)
head(panel)
Run the code above in your browser using DataLab