tests/testthat/helper_lorenz_curve_1.R

In JosepER/lissyrtools: Tools for LISSY Jobs

set.seed(4)

mock_dataset <- tibble::tibble(pid = 1:501,
                               mock_variable = seq(0, 1000, by = 2),
                               mock_variable_leading_0s = c(rep(0, times = 30), seq(60, 1000, by = 2)),
                               mock_variable_NAs = dplyr::if_else(seq(0, 1000, by = 2) %% 50 == 0,
                                                                  true = NA_real_,
                                                                  false = seq(0, 1000, by = 2)),
                               hwgt = rep(1, 501))


results_mock_dataset_100 <- c(0.0119760479041916, 0.0439121756487026, 0.0958083832335329,
                              0.167664670658683, 0.259481037924152, 0.37125748502994, 0.502994011976048,
                              0.654690618762475, 0.826347305389222, 1.01796407185629, 1.22954091816367,
                              1.46107784431138, 1.7125748502994, 1.98403193612774, 2.27544910179641,
                              2.58682634730539, 2.91816367265469, 3.26946107784431, 3.64071856287425,
                              4.03193612774451, 4.44311377245509, 4.87425149700599, 5.32534930139721,
                              5.79640718562874, 6.2874251497006, 6.79840319361277, 7.32934131736527,
                              7.88023952095808, 8.45109780439122, 9.04191616766467, 9.65269461077844,
                              10.2834331337325, 10.9341317365269, 11.6047904191617, 12.2954091816367,
                              13.0059880239521, 13.7365269461078, 14.4870259481038, 15.2574850299401,
                              16.0479041916168, 16.8582834331337, 17.688622754491, 18.5389221556886,
                              19.4091816367265, 20.2994011976048, 21.2095808383234, 22.1397205588822,
                              23.0898203592814, 24.059880239521, 25.0499001996008, 26.059880239521,
                              27.0898203592814, 28.1397205588822, 29.2095808383234, 30.2994011976048,
                              31.4091816367265, 32.5389221556886, 33.688622754491, 34.8582834331337,
                              36.0479041916168, 37.2574850299401, 38.4870259481038, 39.7365269461078,
                              41.0059880239521, 42.2954091816367, 43.6047904191617, 44.9341317365269,
                              46.2834331337325, 47.6526946107784, 49.0419161676647, 50.4510978043912,
                              51.8802395209581, 53.3293413173653, 54.7984031936128, 56.2874251497006,
                              57.7964071856287, 59.3253493013972, 60.874251497006, 62.4431137724551,
                              64.0319361277445, 65.6407185628743, 67.2694610778443, 68.9181636726547,
                              70.5868263473054, 72.2754491017964, 73.9840319361277, 75.7125748502994,
                              77.4610778443114, 79.2295409181637, 81.0179640718563, 82.8263473053892,
                              84.6546906187625, 86.5029940119761, 88.3712574850299, 90.2594810379241,
                              92.1676646706587, 94.0958083832335, 96.0439121756487, 98.0119760479042,
                              100)


results_mock_dataset_50 <- c(0.0439121756487026, 0.167664670658683, 0.37125748502994, 0.654690618762475,
                             1.01796407185629, 1.46107784431138, 1.98403193612774, 2.58682634730539,
                             3.26946107784431, 4.03193612774451, 4.87425149700599, 5.79640718562874,
                             6.79840319361277, 7.88023952095808, 9.04191616766467, 10.2834331337325,
                             11.6047904191617, 13.0059880239521, 14.4870259481038, 16.0479041916168,
                             17.688622754491, 19.4091816367265, 21.2095808383234, 23.0898203592814,
                             25.0499001996008, 27.0898203592814, 29.2095808383234, 31.4091816367265,
                             33.688622754491, 36.0479041916168, 38.4870259481038, 41.0059880239521,
                             43.6047904191617, 46.2834331337325, 49.0419161676647, 51.8802395209581,
                             54.7984031936128, 57.7964071856287, 60.874251497006, 64.0319361277445,
                             67.2694610778443, 70.5868263473054, 73.9840319361277, 77.4610778443114,
                             81.0179640718563, 84.6546906187625, 88.3712574850299, 92.1676646706587,
                             96.0439121756487, 100)


results_mock_apply_jitter_1 <- list()


results_mock_apply_jitter_1[["intervals"]] <-c("[0,9.74933858192526]", "(9.74933858192526,19.5230460255407]",
                                               "(19.5230460255407,30.1692729545757]", "(30.1692729545757,39.8352853325196]",
                                               "(39.8352853325196,50.4060440943576]", "(50.4060440943576,59.8542267533485]",
                                               "(59.8542267533485,70.0788668596651]", "(70.0788668596651,79.8055416482966]",
                                               "(79.8055416482966,89.9090569987893]", "(89.9090569987893,99.9042595266365]",
                                               "(99.9042595266365,110.389924107585]", "(110.389924107585,119.700263875304]",
                                               "(119.700263875304,129.569655505242]", "(129.569655505242,140.090738834115]",
                                               "(140.090738834115,150.126961007016]", "(150.126961007016,160.298387698364]",
                                               "(160.298387698364,170.118874062551]", "(170.118874062551,180.460490948986]",
                                               "(180.460490948986,189.727344562532]", "(189.727344562532,199.500740036368]",
                                               "(199.500740036368,210.425398815423]", "(210.425398815423,219.759874172974]",
                                               "(219.759874172974,230.040987304412]", "(230.040987304412,240.493053989252]",
                                               "(240.493053989252,250.151008076733]", "(250.151008076733,259.938864722615]",
                                               "(259.938864722615,269.603466429049]", "(269.603466429049,279.981295740465]",
                                               "(279.981295740465,289.756925635273]", "(289.756925635273,300.116426810389]",
                                               "(300.116426810389,309.658743150299]", "(309.658743150299,320.179152822122]",
                                               "(320.179152822122,330.303478643298]", "(330.303478643298,339.829778716434]",
                                               "(339.829778716434,349.828325647861]", "(349.828325647861,360.443631790811]",
                                               "(360.443631790811,369.540422828868]", "(369.540422828868,380.317220764933]",
                                               "(380.317220764933,390.363103540614]", "(390.363103540614,399.528521475382]",
                                               "(399.528521475382,410.167468406493]", "(410.167468406493,420.297483467497]",
                                               "(420.297483467497,430.34228353342]", "(430.34228353342,439.571852644905]",
                                               "(439.571852644905,449.609099593945]", "(449.609099593945,460.309155202936]",
                                               "(460.309155202936,470.044298672583]", "(470.044298672583,480.161449559499]",
                                               "(480.161449559499,490.392852180637]", "(490.392852180637,500.261469685705]",
                                               "(500.261469685705,509.549218202708]", "(509.549218202708,519.991143806139]",
                                               "(519.991143806139,530.156631167978]", "(530.156631167978,539.705722437007]",
                                               "(539.705722437007,549.577251147479]", "(549.577251147479,559.818266005488]",
                                               "(559.818266005488,570.383744721767]", "(570.383744721767,579.964475178625]",
                                               "(579.964475178625,589.867404463701]", "(589.867404463701,600.298496818868]",
                                               "(600.298496818868,609.905829149764]", "(609.905829149764,619.571585588623]",
                                               "(619.571585588623,630.378471426899]", "(630.378471426899,639.523549848935]",
                                               "(639.523549848935,649.887868561549]", "(649.887868561549,659.749439062783]",
                                               "(659.749439062783,670.317444114713]", "(670.317444114713,680.435355881928]",
                                               "(680.435355881928,690.06758187362]", "(690.06758187362,699.741201773752]",
                                               "(699.741201773752,709.527994443197]", "(709.527994443197,719.799987171078]",
                                               "(719.799987171078,729.530843221815]", "(729.530843221815,740.382539159618]",
                                               "(740.382539159618,750.139019690221]", "(750.139019690221,759.664449595148]",
                                               "(759.664449595148,770.436395255616]", "(770.436395255616,780.321369642857]",
                                               "(780.321369642857,789.867245354457]", "(789.867245354457,799.605107669951]",
                                               "(799.605107669951,809.731908475515]", "(809.731908475515,819.779858274153]",
                                               "(819.779858274153,830.125085617649]", "(830.125085617649,839.69614094845]",
                                               "(839.69614094845,850.166108831298]", "(850.166108831298,859.752152401488]",
                                               "(859.752152401488,870.420135888038]", "(870.420135888038,879.66509826039]",
                                               "(879.66509826039,889.741951264208]", "(889.741951264208,900.007228627102]",
                                               "(900.007228627102,910.351841132622]", "(910.351841132622,919.671583185671]",
                                               "(919.671583185671,929.52886929037]", "(929.52886929037,940.295580904465]",
                                               "(940.295580904465,950.307312291116]", "(950.307312291116,960.189782714937]",
                                               "(960.189782714937,969.701336574974]", "(969.701336574974,979.872129019583]",
                                               "(979.872129019583,989.931391903199]", "(989.931391903199,999.875374500407]"
)



  results_mock_apply_jitter_1[["x_jit"]] <- c(0, 2.08580030500889, 3.5089457957074, 5.79373961198144, 7.77737495792098,
                                              10.3135742149316, 11.760427771369, 14.224405892659, 16.406092151301,
                                              18.4490402210504, 19.5731444694102, 22.254675026983, 23.7860006208066,
                                              25.6000535215717, 28.4540687750559, 29.9156071185134, 31.955102417618,
                                              34.471055655973, 36.083987979684, 38.4622046244331, 40.2617024031933,
                                              42.2145085353404, 44.4966128568631, 46.0062708943151, 47.9899432382081,
                                              50.1491613686085, 52.3308064122684, 53.9819990023971, 56.3417462236248,
                                              58.0137017350644, 60.0297775354702, 62.067112212535, 63.7389488783665,
                                              66.3779959341045, 68.1545220171101, 69.9823708946351, 72.4710297971033,
                                              73.9600259105209, 76.1220564870164, 77.8884180346504, 79.5065927268006,
                                              82.4383190872613, 83.7421710924245, 86.0655945301987, 87.6808991031721,
                                              90.4044992900454, 91.5842913051601, 94.4011717154644, 96.3916114657186,
                                              98.2233749330044, 100.0648098893, 101.888609998161, 104.245928850491,
                                              106.395420984365, 108.309076749953, 110.318546326132, 111.92119996855,
                                              113.676696498413, 115.673786558909, 118.392545744544, 120.243334062165,
                                              122.060983883915, 123.571233830182, 126.353584753349, 128.413710964844,
                                              129.725361202843, 132.128560133046, 133.569144993555, 136.014853976667,
                                              138.305417287862, 140.471789465519, 141.842915244866, 144.1313634424,
                                              145.910054257372, 147.845694060437, 150.324872852536, 152.18990052864,
                                              153.820645014755, 155.941329659428, 157.761885447893, 159.633204466663,
                                              162.410478687612, 164.209167925874, 166.07202631305, 168.416968236677,
                                              170.401910115499, 171.558621987235, 173.545700949151, 176.488808509195,
                                              177.705824960023, 180.429055972025, 181.694303552154, 183.626800936647,
                                              186.039368811063, 187.772337059258, 189.853586649522, 191.584104856709,
                                              194.265437709168, 195.944485993125, 197.53613749193, 200.201289142948,
                                              201.753427358111, 204.129631243413, 205.766403615009, 208.032445900142,
                                              209.968264800496, 212.074396894779, 214.168445498217, 215.712113675429,
                                              218.475632399088, 220.309382772772, 221.775334256468, 223.899123691488,
                                              225.790300444234, 227.992993233725, 230.256775138667, 232.010697468882,
                                              233.938148951624, 236.290914088022, 238.411315168021, 239.571074143983,
                                              241.642642312916, 243.89307278255, 246.35643772129, 247.764254226116,
                                              249.594638358569, 252.224333662773, 254.480476663914, 255.700600294396,
                                              258.052263837541, 259.845464471029, 261.908390007447, 263.688031216385,
                                              265.845552658895, 267.683656022651, 270.313114545541, 272.381635409081,
                                              274.200614618836, 275.776427360252, 277.932004463626, 279.512815922266,
                                              282.063038276741, 284.170700266724, 285.81360232411, 288.447543668561,
                                              289.668803035514, 291.940414110431, 294.071626756573, 296.474653967191,
                                              298.26477106777, 299.943055097247, 301.855862457072, 303.536456988659,
                                              306.093880393542, 308.461553275352, 309.752730440116, 312.34720625286,
                                              313.712781420909, 315.777890844736, 317.979385086801, 320.279999797698,
                                              322.400940360734, 324.443460653303, 325.915215175599, 327.834110239986,
                                              329.782731729094, 331.572221591836, 333.570682476507, 335.658950168872,
                                              337.650863158982, 340.252092257608, 341.595687062014, 344.111492298078,
                                              345.700944477925, 348.003317515831, 349.629100444727, 351.502922784537,
                                              354.1438422848, 355.741036388325, 357.920035355724, 360.215427673422,
                                              361.600684681907, 364.106836844468, 365.712431624299, 368.394740751013,
                                              370.06319803372, 371.747724784072, 374.230655817781, 375.766332316911,
                                              378.254257221473, 380.457943279762, 381.981236281805, 384.409494666616,
                                              386.490105426637, 387.732417264488, 389.781778582139, 392.203925271053,
                                              394.333597430494, 395.965678904671, 397.890684430953, 399.59388818196,
                                              402.253265541745, 404.292965770932, 405.954177575884, 407.860822065501,
                                              409.860742370365, 411.56116853375, 413.957881778711, 415.987117363606,
                                              418.017899634084, 419.536917640129, 421.542158124736, 424.40133110946,
                                              426.440120626939, 428.128375146771, 430.281247321982, 432.249204465654,
                                              433.635991471121, 435.67623372213, 437.541992342565, 440.164383963449,
                                              442.165542729897, 444.146650761599, 446.271732530324, 447.789874697803,
                                              450.306541189551, 452.047567017609, 454.119942133082, 455.972406398272,
                                              457.954609859269, 460.469472549157, 462.164090270875, 464.341994054848,
                                              465.712519496446, 467.683243501233, 469.772856254596, 472.080793056404,
                                              474.456828356255, 475.751723478315, 477.737011644524, 479.772420490161,
                                              481.947003526846, 483.862594545353, 485.658712107688, 488.119552267715,
                                              490.469518254511, 491.553193956846, 493.867912049405, 496.215821885969,
                                              498.334790505469, 499.770291994559, 502.338381541427, 503.596210818039,
                                              505.673286689213, 507.878294476774, 510.136525011389, 512.107102339389,
                                              513.77611605078, 516.498923882376, 517.508603767492, 520.380331017775,
                                              522.359487358481, 523.610581709072, 526.24801142863, 527.618903852534,
                                              529.667366176145, 531.504861637251, 533.524120609043, 536.054887531791,
                                              537.779349875171, 540.419927866431, 542.333796508377, 544.443518140353,
                                              546.209625954041, 548.078025754541, 549.967261527199, 552.375026802998,
                                              553.546799231786, 556.419092266588, 558.387360026361, 560.109339375515,
                                              562.34146567178, 563.914809228387, 566.264030884486, 567.509477581829,
                                              569.699232980143, 571.602227692958, 574.233024261892, 575.605634269072,
                                              577.734958597692, 579.938285625307, 581.826543216361, 583.512155140983,
                                              585.615944684949, 587.954363343073, 590.151906349696, 592.488259350881,
                                              593.802795691881, 595.792549330508, 598.318554192781, 599.676573242759,
                                              602.309752512956, 604.037767850794, 605.707194081275, 607.699969508452,
                                              610.43813364068, 612.473661103286, 614.415360727115, 616.487781226402,
                                              617.81445957371, 620.357720649336, 622.208960316144, 624.21859073313,
                                              625.695621411549, 628.348587938119, 629.739795242436, 632.249105305877,
                                              633.517993353307, 635.89019341371, 638.364211200736, 639.85183027829,
                                              642.133837386733, 643.677658459637, 646.188226476079, 647.833763631294,
                                              649.675668513868, 652.384520444553, 653.576661479892, 655.583705895115,
                                              658.335409552557, 660.194187384797, 661.561011093901, 664.033603580669,
                                              666.007062298479, 668.020335141104, 669.719253333053, 671.729339828249,
                                              673.90930144093, 676.431250903523, 677.891895498149, 679.728162345244,
                                              682.463757814374, 683.516841521021, 685.816284930566, 687.632699083537,
                                              689.776001002872, 691.743848775048, 693.511974756373, 696.013932673959,
                                              698.453774427297, 699.534466509242, 702.028814713703, 703.539645936573,
                                              705.829959828872, 708.043176348321, 710.234530542046, 712.126379600726,
                                              713.711914482759, 715.973586551612, 717.629662911408, 719.842370785773,
                                              721.652677804697, 723.803306829417, 726.028329665307, 727.915574491723,
                                              730.148662188789, 731.875499370974, 733.552338723093, 735.5534243898,
                                              738.47131903423, 739.810500571271, 741.736940365052, 743.663294865051,
                                              746.148197887931, 747.974967735587, 750.170336615527, 751.847528383136,
                                              754.101536380127, 756.248451185646, 757.9287927642, 759.713335819542,
                                              761.745056944434, 764.430962778162, 765.999831319321, 768.489130817121,
                                              770.214160640258, 772.210492335726, 773.613380027935, 776.205912620993,
                                              777.864607045427, 779.715284388512, 781.757782479981, 783.609762067441,
                                              785.686842585215, 788.439971460961, 790.430166186299, 791.784646669403,
                                              793.615950719221, 795.971923038363, 798.459983518813, 800.160062434385,
                                              802.387765484629, 803.779371149139, 805.560835196404, 808.285094481427,
                                              809.881232259097, 811.960722213145, 814.350645924918, 816.384556270204,
                                              817.721290613059, 819.525402826956, 822.436329609947, 824.1390121812,
                                              825.507715822663, 827.500215857523, 830.211006782949, 831.62487083138,
                                              834.365535846679, 836.082657166291, 838.066093396395, 840.276896721218,
                                              841.910809827736, 844.034460024443, 845.909662853461, 847.754870251287,
                                              849.900060993154, 852.383616687497, 854.480692838086, 855.815199957928,
                                              858.443310894072, 860.478401286993, 861.648568940116, 863.897964396514,
                                              865.996653949376, 868.351547957165, 869.591087522916, 872.366273217136,
                                              874.058250875911, 875.61817978858, 877.715400000336, 879.956668205559,
                                              881.886291605188, 884.423286543693, 886.247562608914, 888.10730082728,
                                              889.945661142934, 892.369689288316, 894.088656094857, 896.000313636148,
                                              898.368047017837, 899.610141726211, 901.575146910036, 904.424745028373,
                                              906.237078914186, 907.651276748395, 909.808821078623, 911.880030486267,
                                              914.369974894216, 915.613246053923, 917.960098852403, 919.991474875482,
                                              921.633533555549, 923.884458898799, 926.244706596946, 928.400798623217,
                                              929.98273278214, 932.026780525688, 934.23512550164, 936.312633853173,
                                              937.67442320683, 940.195636480814, 941.860402399208, 943.682811586885,
                                              945.982024590019, 948.335843143286, 949.863899864256, 951.901159560075,
                                              953.859807310859, 955.530286439229, 958.15380555694, 959.735114260111,
                                              961.662571489112, 963.839076604461, 965.990944556892, 968.416018062737,
                                              969.688199634431, 972.141523331171, 974.186176170129, 976.015853834804,
                                              977.702836972894, 979.500511215534, 982.379632338649, 984.007635545451,
                                              986.02432655287, 988.179534313502, 990.06228048983, 991.984956706641,
                                              994.180431499379, 996.348793394398, 998.207178537501, 999.587616929552
  )