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]))}
this code can't run because of an unexpected closing bracket, I am not sure why the bracket is unexpected or what I am missing?