给定1到10 000之间的整数序列，我想生成一个20个bin的布尔矢量表示（每个间隔500个）。是否有比下面更有效的解决方案？该代码适用于大约3000万行。
> x <- cumsum(c(1038, 1033, 1078, 1070, 1041, 1088, 1086, 1026))
> as.integer(1:20 %in% .bincode(x, seq(0,10000, by = 500)) )
[1] 0 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 0 0