循环只填充我在for中包含的向量中的一个向量

我包括一些上下文。我的问题就在眼前。当我运行它时，只有向量intL被填充，但这不会发生在intU中。另一方面，如果我运行一个单独的for，一个用于intL，一个用于intU，我会得到两个向量。我的问题是，为什么当我用for来填充两个向量时，只填充intL向量，而不填充另一个

X<-replicate(1000,rnorm(n=10,mean=-1.2, sd=0.04))

Xbar<-c()

for(i in 1:1000){
  sumX<-(1/10)*sum(X[,i])
  Xbar[i]<-sumX
}

Xbar

intL<-c()
intU<-c()

for(i in 1:1000){
 intL[i]<-Xbar[i]-1.645*(.04/sqrt(10)) 
 intU[i]<Xbar[i]+1.645*(.04/sqrt(10))
}

---

X问题在于
Side注释：你只有一行
sumX
intU[i]<Xbar[i]+1.645*(.04/sqrt(10))

intU[i]<- Xbar[i]+1.645*(.04/sqrt(10))

intL<-c()
intU<-c()

for(i in 1:1000){
   intL[i] <- Xbar[i]-1.645*(.04/sqrt(10)) 
   intU[i] <- Xbar[i]+1.645*(.04/sqrt(10))

 }

length(intU)
#[1] 1000
length(intL)
#[1] 1000