*Limpando a memória
clear

*Abrindo o arquivo de log
log using "C:\curso\Cap02.log", replace text

*Abrindo o banco de dados do Exercício 2.3
use "C:\curso\Ex02-03.dta", clear

*************************************
*Estatísticas descritivas
sum salary roe

*Regressão entre salário e rendimento médio da ação
reg salary roe

*Salvando valores preditos
predict salpred1, xb

*Gráfico de dispersão e de ajuste linear
twoway (scatter salary roe) (line salpred1 roe)

*Gerando resíduo da regressão
gen res1 = salary - salpred1

*Gráfico de dispersão entre resíduo e variável independente
twoway scatter res1 roe

*************************************
*Regressão retirando valores outliers
reg salary roe if salary<5000

*Salvando novos valores preditos
predict salpred2, xb

*Gráfico de dispersão e de ajuste linear
twoway (scatter salary roe) (line salpred2 roe) if salary<5000

*Gerando resíduo da regressão
gen res2 = salary - salpred2

*Gráfico de dispersão entre resíduo e variável independente
twoway scatter res2 roe if salary<5000

*************************************
*Histograma do salário
hist salary

*Gerando variável com logaritmo do salário
gen lnsal=ln(salary)

*Histograma do logaritmo do salário
hist lnsal

*Regressão utilizando o logaritmo do salário
reg lnsal roe

*Salvando novos valores preditos
predict lnsalpred1, xb

*Gráfico de dispersão e de ajuste linear
twoway (scatter salary roe) (line lnsalpred1 roe)

*Gerando exponencial do salário predito
gen expsalpred1=exp(lnsalpred1)

*Gráfico de dispersão e de ajuste linear
twoway (scatter salary roe) (line expsalpred1 roe)

*************************************
*Exibindo valores outliers
list salary lnsal if salary>5000

*Regressão utilizando o logaritmo do salário e excluindo outliers
reg lnsal roe if salary<5000

*Salvando novos valores preditos
predict lnsalpred2, xb

*Gráfico de dispersão e de ajuste linear
twoway (scatter salary roe) (line lnsalpred2 roe)

*Gerando exponencial do salário predito
gen expsalpred2=exp(lnsalpred2)

*Gráfico de dispersão e de ajuste linear
twoway (scatter salary roe) (scatter expsalpred2 roe) if salary<5000

*Salvando o arquivo de log
log close