exercicio 2 2 econometria

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

#puxar dados
data(ceosal2, package='wooldridge')
attach(ceosal2)
summary(ceosal2)
mean(salary)
mean(ceoten)
max(ceoten)
A=subset(ceosal2,ceosal2$ceoten==0)
nrow(A)
reg=lm(log(salary)~ceoten)
reg
(0.009724*100)*1