2008年08月04日
課題2(8/4)
データ名:貸出約定平均金利(短期)
地方銀行
Call:
arima(x = ty1, order = c(2, 1, 2))
Coefficients:
ar1 ar2 ma1 ma2
0.5892 0.2347 0.6050 -0.0115
s.e. 0.3302 0.2743 0.3302 0.1465
sigma^2 estimated as 0.001878: log likelihood = 666.35, aic = -1322.69
2008年07月28日
課題1(7/28)
x4:自然公園面積割合を目的変数とした。
結果の出力

n= 47
node), split, n, deviance, yval
* denotes terminal node
1) root 47 3428.8170 15.94681
2) x3>=63.15 29 1543.1600 13.20000
4) x11>=1403.5 22 675.5932 11.64091
8) x7>=33.35 8 196.7150 8.77500 *
9) x7< 33.35 14 375.6236 13.27857 *
5) x11< 1403.5 7 646.0200 18.10000 *
3) x3< 63.15 18 1314.3360 20.37222 *
結果を見ると、x3:「森林面積割合」が63.15%で2つのグループに分かれ、これより低い群は18県で自然公園面積割合が20.37%となっている。
[沖縄県の自然公園面積割合は16.1%である(森林面積割合は46.1%)]
次に「森林面積」が63.15%より高い群はx11:「降水量(年間)」の1404mmで2つに分かれ、低い群は自然公園面積が18.1%で7つの都道府県がこのグループに属す。
1404mmより高い群は、x7:「最高気温(日最高気温の月平均の最高値)の33.35℃より高いか低いかで分かれ、高いほうは8県で自然公園面積8.775%に対し、低いほうは14県で自然公園面積は13.28%となっている。
これより、森林面積割合が低くても自然公園割合は、森林面積が高い他の都道府県よりも高くなっている。また降水量、最高気温についても同様で、それぞれの割合が高ければ自然公園割合も高くなるというものではない。
結果の出力
n= 47
node), split, n, deviance, yval
* denotes terminal node
1) root 47 3428.8170 15.94681
2) x3>=63.15 29 1543.1600 13.20000
4) x11>=1403.5 22 675.5932 11.64091
8) x7>=33.35 8 196.7150 8.77500 *
9) x7< 33.35 14 375.6236 13.27857 *
5) x11< 1403.5 7 646.0200 18.10000 *
3) x3< 63.15 18 1314.3360 20.37222 *
結果を見ると、x3:「森林面積割合」が63.15%で2つのグループに分かれ、これより低い群は18県で自然公園面積割合が20.37%となっている。
[沖縄県の自然公園面積割合は16.1%である(森林面積割合は46.1%)]
次に「森林面積」が63.15%より高い群はx11:「降水量(年間)」の1404mmで2つに分かれ、低い群は自然公園面積が18.1%で7つの都道府県がこのグループに属す。
1404mmより高い群は、x7:「最高気温(日最高気温の月平均の最高値)の33.35℃より高いか低いかで分かれ、高いほうは8県で自然公園面積8.775%に対し、低いほうは14県で自然公園面積は13.28%となっている。
これより、森林面積割合が低くても自然公園割合は、森林面積が高い他の都道府県よりも高くなっている。また降水量、最高気温についても同様で、それぞれの割合が高ければ自然公園割合も高くなるというものではない。
2008年05月12日
課題(5.12)
Call:
lm(formula = log(y) ~ log(x))
Residuals:
Min 1Q Median 3Q Max
-1.10702 -0.28592 -0.03487 0.27647 1.46525
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.57120 0.05210 30.16 <2e-16 ***
log(x) 0.74328 0.06328 11.75 <2e-16 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Residual standard error: 0.4668 on 80 degrees of freedom
(18 observations deleted due to missingness)
Multiple R-Squared: 0.633, Adjusted R-squared: 0.6284
F-statistic: 138 on 1 and 80 DF, p-value: < 2.2e-16

lm(formula = log(y) ~ log(x))
Residuals:
Min 1Q Median 3Q Max
-1.10702 -0.28592 -0.03487 0.27647 1.46525
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.57120 0.05210 30.16 <2e-16 ***
log(x) 0.74328 0.06328 11.75 <2e-16 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Residual standard error: 0.4668 on 80 degrees of freedom
(18 observations deleted due to missingness)
Multiple R-Squared: 0.633, Adjusted R-squared: 0.6284
F-statistic: 138 on 1 and 80 DF, p-value: < 2.2e-16



