> n<-1000
> t<-runif(n,0,1)
> x1<-rnorm(n,5,1)
> x2<-rnorm(n,1,1)
> e<-rnorm(n,0,1)
> i<-1
> for(i in 1:n)
+ {
+   y<-1+t[i]*t[i]+x1[i]*sin(t[i])+x2[i]*exp(t[i])+e[i];
+   i<-i+1
+       }
> y
[1] 6.746727
> y[2:9]
[1] NA NA NA NA NA NA NA NA
只出来y[1]的值，为什么只执行一次？？