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

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

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

gen ly = ln(vadd)	/* 変数"ln(vadd)"を発生させ"ly"と定義 */
gen lk = ln(cap)	/* 変数"ln(cap)"を発生させ"lk"と定義 */
gen ll = ln(emp)	/* 変数"ln(emp)"を発生させ"ll"と定義 */

reg ly lk ll		/* 最小2乗推定 */


/* OPTION #1 */

mat bhat1 = e(b)
mat list bhat1		/* 最小2乗推定値の表示 */

mat vc1 = e(V)
mat list vc1			/* 分散共分散行列の表示 */

scalar se1 = sqrt(vc1[1,1]+2*vc1[2,1]+vc1[2,2])
scalar tval1 = (bhat1[1,1]+bhat1[1,2]-1)/se1
disp tval1			/* t統計量の表示 */


/* OPTION #2 */

test lk+ll=1		/* F統計量の表示 */


/* OPTION #3 */

gen lk_ll = lk-ll
reg ly lk_ll ll		/* 最小2乗推定（パラメータ表現変更後） */

mat bhat2 = e(b)
mat list bhat2		/* 最小2乗推定値の表示 */

mat vc2 = e(V)
mat list vc2			/* 分散共分散行列の表示 */

scalar tval2 = (bhat2[1,2]-1)/sqrt(vc2[2,2])
disp tval2			/* t統計量の表示 */


log close