Description Usage Format Details
A dataset for illustrating technical and efficiency changes using smooth non-parametric frontiers.
1 |
A data frame with 200 observations of six variables.
Firm identifier
Year of observation
Input 1
Input 2
Input 3
Output
Generated with the following code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 | set.seed(100)
num.firms <- 20
num.inputs <- 3
num.years <- 10
beta <- runif(num.inputs, 0, 1)
TFP.trend = 0.25
TFP <- cumsum(rnorm(num.years)) + TFP.trend * (1:num.years)
sd.measurement <- 0.05
sd.inefficiency <- 0.01
f <- function(X){
return(TFP + X
}
gen.firm.data <- function(i){
X = matrix(runif(num.years * num.inputs, 1, 10), ncol = num.inputs)
y = f(X) +
rnorm(num.years, sd = sd.measurement) -
abs(rnorm(num.years, sd = sd.inefficiency))
firm.df <- data.frame(Firm = i,
Year = 1:num.years,
X = exp(X),
y = exp(y))
}
panel.production = Reduce(rbind, lapply(1:num.firms, gen.firm.data))
panel.production$Firm = as.factor(panel.production$Firm)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.