Univ. of Michigan Consumer Confidence Index vs. S&P500.

> length(SP5[kikan][,4])
[1] 318
> cor.test((as.vector((SP5[kikan][,4]/as.vector(lag(SP5[kikan],k=2)[,1]) -1 )[seq(3,318,3)])),(quarterlyReturn(UMCSENT[kikan])))

Pearson's product-moment correlation

data:  (as.vector((SP5[kikan][, 4]/as.vector(lag(SP5[kikan], k = 2)[,  and (quarterlyReturn(UMCSENT[kikan]))    1]) - 1)[seq(3, 318, 3)])) and (quarterlyReturn(UMCSENT[kikan]))
t = 4.6777, df = 104, p-value = 8.76e-06
alternative hypothesis: true correlation is not equal to 0
95 percent confidence interval:
 0.2457038 0.5629063
sample estimates:
      cor
0.4169185

> plot.default((as.vector((SP5[kikan][,4]/as.vector(lag(SP5[kikan],k=2)[,1]) -1 )[seq(3,318,3)])),(quarterlyReturn(UMCSENT[kikan])))
> abline(h=0)
> abline(v=0)

> plot.xts(merge((SP5[kikan][,4]/as.vector(lag(SP5[kikan],k=2)[,1]) -1 )[seq(3,318,3)],quarterlyReturn(UMCSENT[kikan])))

cor.test((as.vector((SP5[kikan][,4]/as.vector(lag(SP5[kikan],k=2)[,1]) -1 )[seq(3,length(SP5[kikan][,4]),3)])),(quarterlyReturn(UMCSENT[kikan])))
plot.default((as.vector((SP5[kikan][,4]/as.vector(lag(SP5[kikan],k=2)[,1]) -1 )[seq(3,length(SP5[kikan][,4]),3)])),(quarterlyReturn(UMCSENT[kikan])))
abline(h=0)
abline(v=0)
plot.xts(merge((SP5[kikan][,4]/as.vector(lag(SP5[kikan],k=2)[,1]) -1 )[seq(3,318,3)],quarterlyReturn(UMCSENT[kikan])))