Skip to main content
Mathematica

Return to Answer

deleted 80 characters in body
Source Link
kglr
kglr
  • 400.5k
  • 18
  • 488
  • 929
MapIndexed[#2[[1]] - 1 &, #, {2}] &@ 
 BinLists[#, {Flatten[{0, Quantile[#, quantiles], 1.1 Max@#}]}] & @ Range[100]

{{10, 20, 30, 40, 50, 60, 70, 80, 90},
   {101, 111, 121, 131, 141, 151, 161, 171, 181, 191},
{202, 212, 222, 232, 242, 252, 262, 272, 282, 292},
   {303, 313, 323, 333, 343, 353, 363, 373, 383, 393},
{404, 414, 424, 434, 444, 454, 464, 474, 484, 494},
   {505, 515, 525, 535, 545, 555, 565, 575, 585, 595},
{606, 616, 626, 636, 646, 656, 666, 676, 686, 696},
   {707, 717, 727, 737, 747, 757, 767, 777, 787, 797},
{808, 818, 828, 838, 848, 858, 868, 878, 888, 898},
   {909, 919, 929, 939, 949, 959, 969, 979, 989, 999, 1009}}

 BinLists[#, {Flatten[{0, Quantile[#, quantiles], 1.1 Max@#}]}] & @ Range[100]

{{1, 2, 3, 4, 5, 6, 7, 8, 9},
 {10, 11, 12, 13, 14, 15, 16, 17, 18, 19},
{20, 21, 22, 23, 24, 25, 26, 27, 28, 29},
 {30, 31, 32, 33, 34, 35, 36, 37, 38, 39},
{40, 41, 42, 43, 44, 45, 46, 47, 48, 49},
 {50, 51, 52, 53, 54, 55, 56, 57, 58, 59},
{60, 61, 62, 63, 64, 65, 66, 67, 68, 69},
 {70, 71, 72, 73, 74, 75, 76, 77, 78, 79},
{80, 81, 82, 83, 84, 85, 86, 87, 88, 89},
 {90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}}

MapIndexed[#2[[1]] - 1 &, #, {2}] &@ 
 BinLists[#, {Flatten[{0, Quantile[#, quantiles], 1.1 Max@#}]}] & @ Range[100]

{{0, 0, 0, 0, 0, 0, 0, 0, 0},  {1, 1, 1, 1, 1, 1, 1, 1, 1, 1},
{2, 2, 2, 2, 2, 2, 2, 2, 2, 2},  {3, 3, 3, 3, 3, 3, 3, 3, 3, 3},
{4, 4, 4, 4, 4, 4, 4, 4, 4, 4},  {5, 5, 5, 5, 5, 5, 5, 5, 5, 5},
{6, 6, 6, 6, 6, 6, 6, 6, 6, 6},  {7, 7, 7, 7, 7, 7, 7, 7, 7, 7},
{8, 8, 8, 8, 8, 8, 8, 8, 8, 8},  {9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9}}

Post Undeleted by kglr
Post Deleted by kglr
Source Link
kglr
kglr
  • 400.5k
  • 18
  • 488
  • 929

 BinLists[#, {Flatten[{0, Quantile[#, quantiles], 1.1 Max@#}]}] & @ Range[100]

{{1, 2, 3, 4, 5, 6, 7, 8, 9},
{10, 11, 12, 13, 14, 15, 16, 17, 18, 19},
{20, 21, 22, 23, 24, 25, 26, 27, 28, 29},
{30, 31, 32, 33, 34, 35, 36, 37, 38, 39},
{40, 41, 42, 43, 44, 45, 46, 47, 48, 49},
{50, 51, 52, 53, 54, 55, 56, 57, 58, 59},
{60, 61, 62, 63, 64, 65, 66, 67, 68, 69},
{70, 71, 72, 73, 74, 75, 76, 77, 78, 79},
{80, 81, 82, 83, 84, 85, 86, 87, 88, 89},
{90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100}}