www.crosshyou.infoの続きです。今回は第1四半期、第2四半期、第3四半期、第4四半期で差があるのかどうかを調べようと思います。
R言語のaov関数とsummary関数を使います。
GDPギャップからみていきます。
Pr(>F)が0.997ですから四半期によってGDPギャップに差があるとは言えないです。
潜在成長率はどうでしょうか?
潜在成長率も四半期によっての違いはないです。
TFP(全要素生産性)はどうでしょうか?
TFPの差はないです。
資本投入はどうでしょうか?
資本投入も四半期によっての違いはないです。
労働投入も四半期ごとの違いはないです。
上のように、一つの変数ごとにsummary(aov(~~でANOVAを分析しましたが、lapply関数とfunction関数を使っていちどに実行することもできます。
function(x) summary(aov(x ~ df$Quarter))のsummary(aov(x ~ df$Quarter))にdf$GDP_Gap, df$GDP_Potentialとlapply関数で順番に入って実行されます。
今回は以上です。