Módelo C-D de producción

Rafael Martínez Martínez

Econometría

La fórmula de Coob-Douglas

\[ Y=AL^\alpha K^\beta\]

setwd("~/Dropbox/UNAM/Econometria")
library(rgl)
cd=read.table("mizon_data.txt", header=TRUE)
dim(cd)

[1] 72  4

cd <- cd[,c("Q","Cap","Emp")]
plot(cd)

plot(log(cd))

# No pude instalar el plot3D 
#plot3D(log(cd))
cd.log<-log(cd)
form<-Q~Emp+Cap 
cd.lm<-lm(data=cd.log,formula=form)
plot(cd.lm)

summary(cd.lm)

Call:
lm(formula = form, data = cd.log)

Residuals:
     Min       1Q   Median       3Q      Max 
-0.44625 -0.14466  0.03981  0.12703  0.45446 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)  0.54032    0.15151   3.566 0.000663 ***
Emp          0.76531    0.02735  27.980  < 2e-16 ***
Cap          0.23234    0.02882   8.061 1.55e-11 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.2173 on 69 degrees of freedom
Multiple R-squared:  0.9496,    Adjusted R-squared:  0.9481 
F-statistic: 649.6 on 2 and 69 DF,  p-value: < 2.2e-16