clear
cd D:\teaching\stata\multi_reg		/* ワーキングディレクトリの指定 */

set logtype text
log using wage.txt, replace		/* logファイル名の指定 */

import delimited wage.csv, clear		/* データファイルの読込 */

gen lwage = ln(wage)	/* 変数"ln(wage)"を発生させ"lwage"と定義 */

reg lwage educ		/* 最小2乗推定（単回帰モデル） */
estimates store reg1	/* 結果を"reg1"の名でメモリに記憶 */

correlate lwage educ	/* 相関係数 */

reg lwage educ exper	/* 最小2乗推定（重回帰モデル） */
estimates store reg2	/* 結果を"reg2"の名でメモリに記憶 */ 

estimates table reg1 reg2, b(%9.4f) se stats(N r2 r2_a) stfmt(%9.4f) style(noline)              /* 推定値・標準誤差・サンプルサイズ等を一覧表形式で表示 */

log close