結果は一例です。
> Z <- stats::rnorm(10000)
> table(cut(Z, breaks = -6:6))
(-6,-5] (-5,-4] (-4,-3] (-3,-2] (-2,-1] (-1,0] (0,1] (1,2] (2,3] (3,4] (4,5]
0 0 12 211 1371 3474 3346 1368 207 11 0
(5,6]
0
> as.integer(table(cut(Z, breaks = -6:6)))
[1] 0 0 8 210 1395 3433 3353 1391 197 12 1 0