我正在尝试在R中创建一个函数，以便根据聚合的ACS数据计算重新计算的中位数的90％MOE。执行此操作的步骤描述为here，我能够找到可以执行中位数的自定义函数，如here所示。
我希望使用apply函数为我的矩阵的每一列计算MOE，如下所示：
> inc_df[, 1:5]
San Francisco Bayview Hunters Point Bernal Heights Castro/Upper Market Chinatown
2500-9999 22457 1057 287 329 1059
10000-14999 20708 920 288 463 1327
1500-19999 12701 626 145 148 867
20000-24999 12106 491 285 160 689
25000-29999 10129 554 238 328 167
30000-34999 10310 338 257 179 289
35000-39999 9028 383 184 163 326
40000-44999 9532 472 334 173 264
45000-49999 8406 394 345 241 193
50000-59999 17317 727 367 353 251
60000-74999 25947 1037 674 794 236
75000-99999 36378 1185 980 954 289
100000-124999 33890 990 640 1208 199
125000-149999 24935 522 666 957 234
150000-199999 37190 814 1310 1535 150
200000-250001 65763 796 2122 3175 302
前几个和最后几个步骤非常简单，但我对如何编码链接PDF中的步骤C-E感到难过。