목차
서론 - 미국은 서브 프라임 사태 이후 경기 침체에 들어섰으며, 최근 회복되는 추세임
본론 - 경기 침체의 국면과 경기 회복의 국면에서 미국의 소득과 불확실성의 변화로 인한
소비의 변화
1) 경기 침체의 국면에서
1] 경기침체임을 뒷받침하는 증거
2] 기대효용이론으로 미국의 소비 변화 예상
3] 통계적 의사 결정론(미니맥스이론) 미국의 소비 변화 예상
2) 경기 회복의 국면에서
1] 경기 회복을 뒷받침하는 증거
2] 기대효용이론으로 미국의 소비 변화 예상
3] 통계적 의사 결정론(미니맥스이론) 미국의 소비 변화 예상
결론 - 경기 침체 시 미국 내의 소비 위축으로 한국의 수출이 줄어 총수요 적어 짐
경기 회복 시 여전히 높은 불확실성 때문에 지속적인 소비 위축이 예상됨
본론 - 경기 침체의 국면과 경기 회복의 국면에서 미국의 소득과 불확실성의 변화로 인한
소비의 변화
1) 경기 침체의 국면에서
1] 경기침체임을 뒷받침하는 증거
2] 기대효용이론으로 미국의 소비 변화 예상
3] 통계적 의사 결정론(미니맥스이론) 미국의 소비 변화 예상
2) 경기 회복의 국면에서
1] 경기 회복을 뒷받침하는 증거
2] 기대효용이론으로 미국의 소비 변화 예상
3] 통계적 의사 결정론(미니맥스이론) 미국의 소비 변화 예상
결론 - 경기 침체 시 미국 내의 소비 위축으로 한국의 수출이 줄어 총수요 적어 짐
경기 회복 시 여전히 높은 불확실성 때문에 지속적인 소비 위축이 예상됨
본문내용
들이 소비를 줄일 행동을 취할 것이다.’이다. 그러나 여기서는 불확실성이 높은 상황에서 사람들이 미니맥스 전략을 따를 것이다를 가정한 것이므로 불확실성이 낮다면 사람들이 선택할 행동의 결과는 달라 질 수 있다.(불확실성이 낮다면, 자연상태에 대해 사전확률을 부여할 수 있기 때문에 미니맥스가 아닌 다른 전략을 취할 것이다.)
참고 : 통계 결과 및 보다 나은 그래프를 파워포인트에 넣었습니다.
GDP변화에 관한 통계 프로그램(R) 코드와 Output
gdp1=read.table('g:/gdp.txt', header=T)
attach(gdp1)
x=factor(time)
t=seq(1:12)
plot(t, gdp,ylim=c(13100,14500),xlab='Time quarterly', ylab='GDP $', main='GDP Chage for last 3 years')
x2 <- ifelse((t-10)>=0, t-10, 0)
fit <- lm(gdp~ t + x2)
par(new=T)
plot(t, fit$fitt, ylim=c(13100,14500), xlab='', ylab='', type='l', lwd=2, col=3, main='')
summary(fit)
anova(fit)
OUTPUT
Call:
lm(formula = gdp ~ t + x2)
Residuals:
Min 1Q Median 3Q Max
-174.470 -47.003 -7.803 15.573 269.472
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 12954.07 83.39 155.346 < 2e-16 ***
t 154.25 14.79 10.428 2.52e-06 ***
x2 -100.93 25.65 -3.935 0.00343 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 114.8 on 9 degrees of freedom
Multiple R-squared: 0.9422, Adjusted R-squared: 0.9294
F-statistic: 73.36 on 2 and 9 DF, p-value: 2.683e-06
주가지수- 주가 하락시 오차의 추정량과 주가 상승시의 오차의 추정량 비교
cl1=Close[1:49]
cl2=Close[49:93]
t1=seq(1:49)
t2=seq(49:93)
fit1=lm(cl1~t1)
fit2=lm(cl2~t2)
anova(fit1)
anova(fit2)
OUTPUT
>anova(fit1)
Analysis of Variance Table
Response: cl1
Df Sum Sq Mean Sq F value Pr(>F)
t1 1 127951 127951 267.12 < 2.2e-16 ***
Residuals 47 22513 479
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
> anova(fit2)
Analysis of Variance Table
Response: cl2
Df Sum Sq Mean Sq F value Pr(>F)
t2 1 167324 167324 193.67 < 2.2e-16 ***
Residuals 43 37151 864
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘
주석
미국 지디피 통계
미국 S&P 500지수 http://finance.yahoo.com/q/hp?s=%5EGSPC
참고 : 통계 결과 및 보다 나은 그래프를 파워포인트에 넣었습니다.
GDP변화에 관한 통계 프로그램(R) 코드와 Output
gdp1=read.table('g:/gdp.txt', header=T)
attach(gdp1)
x=factor(time)
t=seq(1:12)
plot(t, gdp,ylim=c(13100,14500),xlab='Time quarterly', ylab='GDP $', main='GDP Chage for last 3 years')
x2 <- ifelse((t-10)>=0, t-10, 0)
fit <- lm(gdp~ t + x2)
par(new=T)
plot(t, fit$fitt, ylim=c(13100,14500), xlab='', ylab='', type='l', lwd=2, col=3, main='')
summary(fit)
anova(fit)
OUTPUT
Call:
lm(formula = gdp ~ t + x2)
Residuals:
Min 1Q Median 3Q Max
-174.470 -47.003 -7.803 15.573 269.472
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 12954.07 83.39 155.346 < 2e-16 ***
t 154.25 14.79 10.428 2.52e-06 ***
x2 -100.93 25.65 -3.935 0.00343 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 114.8 on 9 degrees of freedom
Multiple R-squared: 0.9422, Adjusted R-squared: 0.9294
F-statistic: 73.36 on 2 and 9 DF, p-value: 2.683e-06
주가지수- 주가 하락시 오차의 추정량과 주가 상승시의 오차의 추정량 비교
cl1=Close[1:49]
cl2=Close[49:93]
t1=seq(1:49)
t2=seq(49:93)
fit1=lm(cl1~t1)
fit2=lm(cl2~t2)
anova(fit1)
anova(fit2)
OUTPUT
>anova(fit1)
Analysis of Variance Table
Response: cl1
Df Sum Sq Mean Sq F value Pr(>F)
t1 1 127951 127951 267.12 < 2.2e-16 ***
Residuals 47 22513 479
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
> anova(fit2)
Analysis of Variance Table
Response: cl2
Df Sum Sq Mean Sq F value Pr(>F)
t2 1 167324 167324 193.67 < 2.2e-16 ***
Residuals 43 37151 864
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘
주석
미국 지디피 통계
미국 S&P 500지수 http://finance.yahoo.com/q/hp?s=%5EGSPC