for循环对正态分布随机数分组

set.seed(123)
x <- rnorm(10000,0,1)    
##设置每次运行保持不变的随机数向量x，10000个

y <- c(1:5)
for(i in 1:5)
{y[i]=0}    
##5个分组，每分组初始个数为0

for(i in 1:10000)
{if(x[i]<=-0.6)y[1] <- y[1]+1
else if(x[i]>-0.6&x[i]<=-0.2)y[2]<- y[2]+1
else if(x[i]>-0.2&x[i]<=0.2)y[3] <- y[3]+1
else if(x[i]>0.2&x[i]<=0.6)y[4] <- y[4]+1
else if(x[i]>0.6)y[5] <- y[5]+1}
##分组求个数

print(y)
##显示向量y
plot(y)
##作图