2008年07月28日
8月4日最終課題
課題1 横断面データ

x9「第2次産業就業者比率」を目的変数としている。
結果を見るとx3「一人当たりの県民所得」2671千円で2つのグループに分かれる。
「一人当たりの県民所得」2671千円より高い群は携帯電話を所有している人で
さらにx7「携帯電話」を1000世帯当たり1933台所持しているもので2群に分かれる。
その中で「携帯電話」の1000世帯当たり所持数が1933台より多いか少ないかで分かれ
多い方7県で第2次産業就業者数が33%となる。少ない方16県が28%となる。
「一人当たりの県民所得」2671千円より低い群をx8「パソコン所有数量」が
千世帯当たり787台より多いか少ないかで分かれ
多い方17県で第2次就業者数が25%となる。少ない方が7県で21%となる。
これらから情報が多い人の方が所得が多いということがわかる。
今回使用している変数は
x3「一人当たりの県民所得」
x7「携帯電話」
x8「パソコン所有数量」
x9「第2次産業就業者比率」
課題2 時系列データ
東証1部売買高
Call:
arima(x = ty1, order = c(2, 1, 2), seasonal = list(order = c(1, 1, 1), period = 12))
Coefficients:
ar1 ar2 ma1 ma2 sar1 sma1
0.0215 0.3103 -0.1725 -0.6049 -0.0174 -0.9245
s.e. 0.3199 0.2486 0.2984 0.2752 0.0585 0.0377
sigma^2 estimated as 253511512: log likelihood = -4705.1, aic = 9424.2

Posted by トム13ジョンソン at
14:20
│Comments(0)
2008年07月14日
2008年06月30日
2008年06月09日
2008年05月26日
2008年05月12日
5月12日課題
Call:
lm(formula = y ~ x)
Residuals:
Min 1Q Median 3Q Max
-3.2357 -1.1326 -0.2867 0.7787 7.5120
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.2284 0.4045 3.037 0.00306 **
x 0.1727 0.1858 0.930 0.35471
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Residual standard error: 1.716 on 98 degrees of freedom
Multiple R-Squared: 0.008746, Adjusted R-squared: -0.001368
F-statistic: 0.8647 on 1 and 98 DF, p-value: 0.3547

lm(formula = y ~ x)
Residuals:
Min 1Q Median 3Q Max
-3.2357 -1.1326 -0.2867 0.7787 7.5120
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 1.2284 0.4045 3.037 0.00306 **
x 0.1727 0.1858 0.930 0.35471
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Residual standard error: 1.716 on 98 degrees of freedom
Multiple R-Squared: 0.008746, Adjusted R-squared: -0.001368
F-statistic: 0.8647 on 1 and 98 DF, p-value: 0.3547


Posted by トム13ジョンソン at
13:40
│Comments(0)