为什么R中有两个不同的直方图

我对代码做了一些小改动，得到了两个不同的直方图。但我不知道原因。请帮忙，提前谢谢

第一:

niter=1e5
W100=rep(0,niter)
for(i in 1:niter)
{
  W=cumsum(sample(c(1,-1),100,replace = TRUE))

  W100[i]=W[100]

}
hist(W100,breaks=100)

直方图：

第二：

niter=1e5
W=rep(0,niter)
for(i in 1:niter)
{
  W=cumsum(sample(c(1,-1),100,replace = TRUE))

  W[i]=W[100]

}
hist(W,breaks=100)

直方图：

---

在W后面加100，就会得到不同的直方图。为什么?

请在

样本之前设置.seed（一些数字）

谢谢您的回复。我试图播下种子。但是在两个for循环中仍然有两个不同的histogramsin，put

set.seed（i）

before

W=…

我再次尝试，仍然存在这个问题：（循环代码的最后一行在第一个实例中是将值保存到一个向量，该向量在每次循环迭代中都没有更改，而在将值赋给W[i]之前更改W）.在第二个循环中，您将使用采样代码擦除所有早期的赋值，并且仅获得W的100个位置中99个位置的最后一个采样结果。