eCHFao<- -0.141081
#eCHFa1<-0
eCHFb1<- 0.985833
eCHFg1<- 0.199665
meanCHF<- mean(XtCHF)
eVarCHF<- (array,3421)
eVarCHF[1]<- var(XtCHF)
abco<- c(meanCHF, XtCHF1)
for (i in 2:3421) {eVarCHF[i]<- exp(eCHFao + (eCHFb1*log(sqrt(eVarCHF[i-1]))}
由于意外的右括号,此代码无法运行,我不确定为什么括号是意外的或我缺少什么?