hamori2009_2 - waseda2bun_r @ ウィキ

羽森2009　2-4を別年次で再現

x <- read.table("JPN_C_RGDP_9410.csv",sep=",",skip=1);x y <- x[,3]#RGDP z <- x[,2]#C y <- log(y) z <- log(z) y;z;l=z~y;l#線形の関係 plot(l);ans1=lm(l);print(ans1);abline(ans1) summary(ans1)

 

（参考文献）

羽森（2009）第二章