if (x[i-1]<=k*lambda[i-1])
  {eta[i]<-rnorm(1,rho0*sigma0*epsilon[i-1],sigma0*sqrt(1-(rho0)^2))
                   h[i]<-beta0+alpha0*h[i-1]+eta[i]
  }
  else {eta[i]<-rnorm(1,rho1*sigma1*epsilon[i-1],sigma1*sqrt(1-(rho1)^2)
              h[i]<-beta1+alpha1*h[i-1]+eta[i]}


运行时老是出错
> if (x[i-1]<=k*lambda[i-1])
+ {eta[i]<-rnorm(1,rho0*sigma0*epsilon[i-1],sigma0*sqrt(1-(rho0)^2))
+ h[i]<-beta0+alpha0*h[i-1]+eta[i]
+ }
> else {eta[i]<-rnorm(1,rho1*sigma1*epsilon[i-1],sigma1*sqrt(1-(rho1)^2)
Error: unexpected 'else' in "else"
> h[i]<-beta1+alpha1*h[i-1]+eta[i]}
Error: unexpected '}' in "h[i]<-beta1+alpha1*h[i-1]+eta[i]}"