From 190b0f1eec955d7519386e2fa130d6a73d8b2f94 Mon Sep 17 00:00:00 2001 From: ShouvikGhosh2048 Date: Wed, 21 Dec 2022 20:58:23 +0530 Subject: [PATCH 1/3] Added numerical tests --- test/numerical/bayesian/LinearRegression.jl | 49 +++++++++++++++++++ test/numerical/bayesian/LogisticRegression.jl | 25 ++++++++++ .../bayesian/NegBinomialRegression.jl | 25 ++++++++++ test/numerical/bayesian/PoissonRegression.jl | 25 ++++++++++ test/runtests.jl | 18 +++++++ 5 files changed, 142 insertions(+) create mode 100644 test/numerical/bayesian/LinearRegression.jl create mode 100644 test/numerical/bayesian/LogisticRegression.jl create mode 100644 test/numerical/bayesian/NegBinomialRegression.jl create mode 100644 test/numerical/bayesian/PoissonRegression.jl diff --git a/test/numerical/bayesian/LinearRegression.jl b/test/numerical/bayesian/LinearRegression.jl new file mode 100644 index 0000000..33376ed --- /dev/null +++ b/test/numerical/bayesian/LinearRegression.jl @@ -0,0 +1,49 @@ +mtcars = dataset("datasets", "mtcars") + +tests = Any[(Prior_Ridge(), Any[[:v, :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [6.607340667183019, 2.699477538245194, 28.394257532027698, -0.039738300575837285, -2.64378747269333, 1.6316385131879014], [3.491059498435052, 0.40768138268871024, 5.365068902763022, 0.009928437804916002, 0.9268396369542333, 0.9821403947803388], [0.11039699462219793, 0.012892017289430641, 0.16965837536471584, 0.00031396477070857055, 0.02930924278498943, 0.03105800629562818], [0.19354267507663853, 0.02085318073331585, 0.4385251011532493, 0.0006471335084166524, 0.07309020857074884, 0.07790312528652366], [368.89025806232695, 315.29708652931345, 128.54634566456218, 266.6067323994925, 149.2843322823497, 137.81454895126734], [1.0013398640961664, 1.0025189660644673, 1.0036731599981588, 1.0010641470993362, 0.9998000296875771, 1.0018877542806597]], Any[[:v, :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [2.4212458634226697, 2.026823862703129, 15.720610006377486, -0.05984492385059591, -4.419730033046315, -0.0825500808646622], [4.4250834097559, 2.438488286693904, 25.024506737082817, -0.046258860075479705, -3.224780457008902, 0.9386373404904507], [5.903138855066658, 2.643749066315433, 28.938984206385413, -0.04015784097403732, -2.714303226586158, 1.5681965630215153], [7.9495324423533535, 2.911378034255043, 32.01010293573062, -0.03291013380284851, -2.064272126221539, 2.2177045092797476], [14.655641098614485, 3.6313006078186847, 37.85299526057768, -0.01830280092513684, -0.5918561698621544, 3.882437389236233]], [23.64682710933115, 22.978085538393668, 25.114650776762073, 20.433970265888107, 17.239817287059495, 19.9917682305048, 14.094488948945079, 24.07501101832066, 22.857836775895713, 20.975546641108245, 20.975546641108245, 15.387317853539544, 16.278973281456235, 16.147847483233182, 11.29117713592764, 10.434230606292255, 10.04046623975584, 26.51105032240928, 28.60610241416577, 27.508331524619415, 22.921674616598743, 18.031587889450673, 18.254501746429835, 13.386409638540638, 16.177698321452844, 27.206017052991427, 27.31928924531768, 28.082223501032413, 17.68722039545056, 22.301822672425917, 13.793749871749785, 23.267287430199303]), (Prior_Laplace(), Any[[:v, :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [4.235723514259716, 2.6639612078951864, 29.301408017856637, -0.039307512833917604, -2.7698905098663205, 1.4781190925131318], [3.20891251839575, 0.38142349330289577, 5.002849404169662, 0.010629597141097694, 0.9211725785793806, 0.9122585073113623], [0.10147472370357534, 0.012061669919351307, 0.15820398907992408, 0.0003361373757588291, 0.02913003466401276, 0.02884814697969273], [0.17659652045754295, 0.02032243226520116, 0.2685620398283256, 0.0005001071263886794, 0.04997091724559722, 0.04742728649269598], [403.6650854968192, 408.9618465724659, 294.611355581558, 415.9218666196696, 307.2041837064655, 307.40993998520383], [1.0000554135678112, 1.0011096863970959, 1.0007068594761066, 0.9990133983023143, 0.9996468036010154, 1.0003684140047449]], Any[[:v, :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [1.2645661289409462, 2.0322753765213943, 18.671257214522225, -0.059211647766535896, -4.4885115851557815, -0.2740292866593391], [2.397496468992026, 2.3897422548178917, 26.20175694528251, -0.04654685895388636, -3.41918592757722, 0.8666119463738915], [3.376719361510677, 2.624386888978689, 29.58466877774019, -0.0395678031370976, -2.8075165491136946, 1.4380167984029608], [5.205021588983238, 2.9037729534870063, 32.72730266469587, -0.03183260317088086, -2.201069745767492, 2.0569756173503317], [11.552432531554901, 3.5061139511018524, 38.3280311105727, -0.018157002215173704, -0.7809609062273537, 3.4048011931840114]], [23.62991629141266, 22.924911198568523, 25.12882269366041, 20.503096531237777, 17.3212236853496, 20.022647122219077, 14.205091370336493, 23.94434343717917, 22.75533686448621, 20.850879185159755, 20.850879185159755, 15.382537971863979, 16.32254476232279, 16.184308469608265, 11.135619337388441, 10.260740188176813, 9.888428254818207, 26.523895292700917, 28.692603508252002, 27.572401914573476, 23.088602827690313, 18.08458774341895, 18.319589441033624, 13.458615389678027, 16.201509714361887, 27.25654764408793, 27.187044594417685, 28.054130633814804, 17.526345449723078, 22.13720576146823, 13.624355468994995, 23.22694183978261]), (Prior_Cauchy(), Any[[:σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [2.600355909747377, 30.548270946626495, -0.039016816965275446, -2.8902387376044243, 1.2357778841250202], [0.3340917189990897, 4.672237217177979, 0.010073346810676174, 0.8736273783371867, 0.8488104650057622], [0.01056490779438073, 0.147749113748892, 0.00031854719582529654, 0.027626523418271542, 0.026841743712048557], [0.013776069654030476, 0.37169820166720147, 0.0006449676668444711, 0.07005969567747433, 0.06163209105292748], [469.9250665390617, 165.5309433906942, 267.1002338617348, 166.8454608267688, 191.33777695493512], [1.0012308035611848, 0.9990690960354791, 0.9992956705473691, 0.9990143396849651, 0.9992008418730554]], Any[[:σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [2.024681373457793, 20.831896047312192, -0.056820885688377905, -4.541446435152564, -0.29034120525794027], [2.3594968282195636, 27.326286165514414, -0.04605071537231306, -3.4974413684025234, 0.6416696386923696], [2.5758161425281267, 30.770181256734375, -0.03924734214023336, -2.9260808143297874, 1.1863942005964803], [2.823106942093609, 33.892861917025805, -0.0325251140259356, -2.327245563100543, 1.8192454925307198], [3.3048356481576584, 39.03853127760354, -0.018363322703892068, -1.1865252002998017, 3.0221966213839804]], [23.62976692630291, 22.89685821621557, 25.15321650073299, 20.649426325976346, 17.474609102087214, 20.13973090838782, 14.378364525146964, 23.858429432651278, 22.689881793411338, 20.76733583322043, 20.76733583322043, 15.469421690944703, 16.446633304394474, 16.30292571418127, 11.105563689632392, 10.216517726778186, 9.860160395946632, 26.548262299307797, 28.77416207327947, 27.636222062755465, 23.310666792760376, 18.217035830026767, 18.46133873338923, 13.602343537995653, 16.310577621360263, 27.309912527437792, 27.018572812072403, 27.964990185738976, 17.329473057498095, 21.940731364522936, 13.418313138515321, 23.20879699251189]), (Prior_TDist(), Any[[:ν, :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [1.040270812419262, 2.6235336125736075, 30.175865641299893, -0.03969385898530461, -2.7827214820937343, 1.268036031355139], [0.5411708292011314, 0.36700477700639694, 4.485941658194438, 0.010527330465684496, 0.8788931011306884, 0.8028299363425789], [0.01711332423517535, 0.011605710075024067, 0.14185793090526969, 0.00033290341952844064, 0.02779304019381684, 0.025387711726105395], [0.02534218738477959, 0.01520534944766011, 0.2534177370344823, 0.0005047399567125213, 0.047577028417198, 0.04462487451913028], [602.398595852702, 476.36511481183464, 271.85395032251796, 462.9108468681422, 300.29224595797666, 298.52729501043575], [0.9990149496249879, 0.9994472834718284, 1.0054715198340691, 1.0039684403499889, 1.0061027527022233, 1.004592991260601]], Any[[:ν, :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [0.3548556031258318, 2.05170328103284, 20.759628451914395, -0.05957721934126292, -4.456015388837275, -0.22996586956801818], [0.6699924161346282, 2.367878544476649, 27.41857797808396, -0.04682854405425855, -3.3526136619116254, 0.7136739267115854], [0.9279692698997398, 2.565255304585415, 30.386971229617615, -0.039648448839578396, -2.826298619939151, 1.2307951378868438], [1.2860575636707143, 2.8284711313966335, 33.27419168929428, -0.03233244126546936, -2.245979502282706, 1.7334705481655053], [2.3207915402042256, 3.5158855091342165, 37.74269546696291, -0.020591257021996934, -1.0229467731040367, 3.0287062633878112]], [23.593876974643088, 22.876145780137215, 25.107985514028975, 20.668690609163946, 17.474708471576772, 20.176081882714364, 14.351140240141577, 23.880507665862453, 22.693050383034453, 20.773740642254854, 20.773740642254854, 15.50451407962381, 16.461489005631645, 16.320757398865783, 11.198367426433816, 10.314669141482339, 9.946096640062976, 26.50941256246397, 28.70750557239333, 27.576148521195368, 23.29180269208001, 18.23441863426708, 18.473662365769048, 13.591189563605937, 16.334782456773297, 27.255290078323043, 26.943890002032763, 27.84196930538285, 17.229444226727473, 21.861472492170222, 13.306530089416032, 23.18293106233302]), (Prior_HorseShoe(), Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [1.52607315433313, 24.205882664738812, 0.344433788637113, 2.1643091175053097, 1.1324127947378992, 2.6140528930591684, 31.825196444419166, -0.03718750165924088, -3.0585437882292315, 0.9625297419261658], [1.653436628885164, 136.84662174860466, 0.5997005115099233, 4.549854958746539, 2.6244962585859613, 0.35173053158260453, 4.8143437819468, 0.010962145990862452, 0.9422651791063842, 0.8549879939853496], [0.05228625714027669, 4.327470148251248, 0.018964195303393806, 0.14387904693050502, 0.0829938588772188, 0.01112269602422819, 0.15224291790020913, 0.000346653493744087, 0.029797041258426755, 0.027037094330920476], [0.08278836050174082, 6.334386700900134, 0.020015964591545473, 0.21823240304279537, 0.12212634748944012, 0.0164685382484837, 0.3049900394294881, 0.000555243288455267, 0.05947152557139189, 0.052262805446505724], [436.8229930227651, 451.4820260345402, 781.1539237432106, 389.8004086335117, 493.6815490484523, 460.62831751040153, 179.83766683208404, 294.1383108546387, 178.2694712808865, 198.7195339053038], [0.9997101926305484, 0.9998782544528467, 0.9993014504451135, 1.0001901554458053, 1.000369973711868, 0.9993143619663889, 1.0103301911665639, 1.0042245045380216, 1.0099104881988727, 1.0077410709523096]], Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [0.2477042645801483, 1.6287675688213055, 0.005922740663151995, 0.21826548671599152, 0.04367624282828437, 2.0417245294556476, 20.92161579135289, -0.059722585054399084, -4.774052298938284, -0.3639668559814557], [0.6709094943237014, 5.351068220543937, 0.041778499463554566, 0.7248208218398899, 0.29316480976656534, 2.373099898238334, 29.15431560825959, -0.04419876436949889, -3.6626332777131108, 0.3356855034316811], [1.0774250598523105, 9.85377853001237, 0.1257474048093926, 1.2996762871206435, 0.6093858024412372, 2.5859178295706, 32.3071856622101, -0.03687215083724006, -3.1250172596388257, 0.8593885012492797], [1.8007559712065662, 20.716613155337875, 0.3737146608282301, 2.4004471925258204, 1.1282492513442852, 2.8043258706747736, 35.17246863144161, -0.030046928633665145, -2.5222082075298955, 1.472765945487665], [5.621232409934779, 83.54871228477566, 2.223143884055017, 8.016843761817922, 4.863432715313981, 3.3936490070925167, 39.460306836994654, -0.017108794888194282, -1.0155483665850953, 2.8540975845378287]], [23.570088498140663, 22.79451075623804, 25.11490471774875, 20.776812560192294, 17.674587015629424, 20.217641342688662, 14.67531048745098, 23.621964559402088, 22.516078520492776, 20.592495350112245, 20.592495350112245, 15.572462059937727, 16.606565715807896, 16.454491648768197, 11.053555522844666, 10.152354347564243, 9.834656240513773, 26.48423771799592, 28.784281093135796, 27.6315767495842, 23.541502014365047, 18.361227063321262, 18.619752977288787, 13.854110525436452, 16.442787072607587, 27.290230273306513, 26.7203625836638, 27.809007855981307, 17.152323602353917, 21.679568594313032, 13.294648769962707, 23.120649825811753])] + +for (prior, test_summaries, test_quantiles, prediction) in tests + CRRao.set_rng(StableRNG(123)) + model = fit(@formula(MPG ~ HP + WT + Gear), mtcars, LinearRegression(), prior) + + #Split summaries and quantiles into symbols and numbers for testing equality/approximate equality. + model_summaries, model_quantiles = describe(model.chain) + (model_summaries_symbols, model_summaries_nums...) = model_summaries.nt + (model_quantiles_symbols, model_quantiles_nums...) = model_quantiles.nt + (test_summaries_symbols, test_summaries_nums...) = test_summaries + (test_quantiles_symbols, test_quantiles_nums...) = test_quantiles + + @test model_summaries_symbols == test_summaries_symbols + for i in eachindex(test_summaries_nums) + @test model_summaries_nums[i] ≈ test_summaries_nums[i] + end + @test model_quantiles_symbols == test_quantiles_symbols + for i in eachindex(test_quantiles_nums) + @test model_quantiles_nums[i] ≈ test_quantiles_nums[i] + end + @test predict(model, mtcars) ≈ prediction +end + +gauss_tests = (Any[[:σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [2.4764436914924737, 30.55213366988879, -0.03797480301227029, -2.9881439649327963, 1.2777860687095592], [0.3154037058595231, 2.224548598697289, 0.00884272074456698, 0.5599631827225042, 0.47523077241931394], [0.009973940929738884, 0.07034640337619309, 0.0002796313826565166, 0.017707590632401595, 0.015028116550461596], [0.013359156295927994, 0.1041296143458426, 0.000394830465226354, 0.025995705664700178, 0.02209530300124711], [704.4834067564985, 370.19716824547663, 423.6585544571588, 360.5083273968527, 420.7095584129223], [0.9990016164057623, 1.0001462331991913, 0.9990089470963095, 0.9991687291385768, 1.0021401722295347]], Any[[:σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [1.9410604068671178, 26.204138838171385, -0.05697730772851603, -4.112948126979683, 0.34008724619538633], [2.259583355892342, 29.178435279511742, -0.043340404993751795, -3.356818867625608, 0.9732485199505923], [2.448784680744309, 30.482232783788163, -0.03751488390109284, -3.0087538817361477, 1.2793687060592247], [2.6725695602240505, 31.951621030761657, -0.032116329709597685, -2.63514094828801, 1.579853172736121], [3.1647848942553343, 35.019481195628394, -0.021599639882778736, -1.820616619681824, 2.247668189263121]], [23.65224810558515, 22.887502619039783, 25.194047663066446, 20.595321513349308, 17.465461729346263, 20.04941868855323, 14.431654483936152, 23.755802387636443, 22.62933502234124, 20.702049670068178, 20.702049670068178, 15.387237884623858, 16.406898533351065, 16.256948437950005, 10.90415241981341, 10.004620802479524, 9.674984025205903, 26.573732162442095, 28.85693567810798, 27.706138387403655, 23.335589815304818, 18.169804790050073, 18.42471995223188, 13.621923968770446, 16.250865956597718, 27.368467668067755, 27.081929520541124, 28.13135208912636, 17.45865611892859, 22.019833921646992, 13.577347829818908, 23.21017832883562]) + +(test_summaries, test_quantiles, prediction) = gauss_tests + +CRRao.set_rng(StableRNG(123)) +model = fit(@formula(MPG ~ HP + WT + Gear), mtcars, LinearRegression(), Prior_Gauss(), 30.0, [0.0,-3.0,1.0], 1000) + +#Split summaries and quantiles into symbols and numbers for testing equality/approximate equality. +model_summaries, model_quantiles = describe(model.chain) +(model_summaries_symbols, model_summaries_nums...) = model_summaries.nt +(model_quantiles_symbols, model_quantiles_nums...) = model_quantiles.nt +(test_summaries_symbols, test_summaries_nums...) = test_summaries +(test_quantiles_symbols, test_quantiles_nums...) = test_quantiles + +@test model_summaries_symbols == test_summaries_symbols +for i in eachindex(test_summaries_nums) + @test model_summaries_nums[i] ≈ test_summaries_nums[i] +end +@test model_quantiles_symbols == test_quantiles_symbols +for i in eachindex(test_quantiles_nums) + @test model_quantiles_nums[i] ≈ test_quantiles_nums[i] +end +@test predict(model, mtcars) ≈ prediction \ No newline at end of file diff --git a/test/numerical/bayesian/LogisticRegression.jl b/test/numerical/bayesian/LogisticRegression.jl new file mode 100644 index 0000000..7e9dde7 --- /dev/null +++ b/test/numerical/bayesian/LogisticRegression.jl @@ -0,0 +1,25 @@ +turnout = dataset("Zelig", "turnout")[1:100,:] # Take a subset of rows to reduce input size + +tests = Any[(Prior_Ridge(), Logit(CRRao.Logit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.20311217515320312, -0.09149928634521838, 0.006458125352234212, -0.07095124107738528, 0.19910288135641876, 0.04094551072239558], [0.18474291793973358, 0.30960087929755364, 0.010592367122595108, 0.2485207688144222, 0.12475247896041136, 0.050919527596166775], [0.005842084022751396, 0.009790439441711407, 0.00033496005920084527, 0.007858916753097179, 0.003945019772671346, 0.001610216845836855], [0.013005943129163392, 0.022088368877808177, 0.0005336196365431863, 0.015064709359910028, 0.0082016628637971, 0.002330356969226311], [170.5941860759734, 194.89833300037057, 376.58116807228504, 267.12681084303426, 162.5217483361964, 474.0979373253548], [1.0140078185682626, 1.0073132013871084, 0.9991283677361763, 0.9990919465357941, 1.0157422660137876, 0.9998430528643688]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.03913958516151699, -0.7339216772704985, -0.013821211236909148, -0.5976025970636484, -0.004774907496720676, -0.05862130199552804], [0.09685767284795563, -0.1670340250989772, -0.00045884848876479907, -0.1482366867271768, 0.10321142122133631, 0.011027043714081215], [0.1539415061819891, -0.03062471257137357, 0.0058261362421789895, -0.0315582832678254, 0.1852485168136005, 0.038822068543668806], [0.24805839572880303, 0.05068159907266643, 0.012907171133720157, 0.054507441522904314, 0.2771830616316776, 0.0708346063582477], [0.6426924034739186, 0.288643026967774, 0.02876097599913926, 0.30127856746675835, 0.4875306035003118, 0.1411127133587714]], [0.8067202213860328, 0.715997242319718, 0.6419766963047161, 0.7454057766645713, 0.7357531538317423, 0.7678530975830844, 0.8042840846702818, 0.8991321983908513, 0.7832924131644144, 0.8105649663713902, 0.9312917928212197, 0.8986514103595546, 0.6888733324090757, 0.6722652086662009, 0.7996650577367227, 0.6417739062428619, 0.7659050878921709, 0.6988988799527475, 0.7249716000134631, 0.6529511075201258, 0.7270155293922062, 0.7941085102834436, 0.8895524851167634, 0.7667642479784814, 0.85560733693981, 0.9211748319109009, 0.8021001056687318, 0.7935147062822016, 0.584266585683834, 0.9150179007915946, 0.7136414584713925, 0.8092319859297883, 0.7778907407897864, 0.7535827959578362, 0.7794034298654535, 0.769047012952013, 0.8343921701230709, 0.7144546985113317, 0.6848244796445023, 0.8617342776296116, 0.7618462713351986, 0.7182717512518715, 0.7684416238284725, 0.836542868211112, 0.794556126592735, 0.7553264160550869, 0.743239563488533, 0.6548229254641936, 0.8310342808709463, 0.6554707664251948, 0.7600650853200763, 0.7861430780009776, 0.7788516444281629, 0.6918997777288584, 0.7281771049354837, 0.7552968771317827, 0.8097795768257517, 0.7629698470073859, 0.9372560292849123, 0.8959367800359208, 0.6686538560459145, 0.7954921149034925, 0.7997784239088823, 0.8765983400455013, 0.7221469992882669, 0.9188967148212522, 0.8180076720820004, 0.6601183168482546, 0.724771704836671, 0.8671527043716455, 0.7528708618084762, 0.8945488065081059, 0.8965806355945941, 0.6948930399183169, 0.8135044425559343, 0.8339814013003289, 0.6833856301388603, 0.6806127759953808, 0.8061739241996472, 0.7120513567680984, 0.6583484911578462, 0.8185113663849696, 0.7079342732722296, 0.8420760501117424, 0.7450502046624458, 0.7621200497250393, 0.7041997986300694, 0.6919739161839535, 0.6523208562278989, 0.8143617221541132, 0.8551943013280018, 0.8124158027059445, 0.8852549196130247, 0.7712763181210016, 0.6961847859235313, 0.6619238651362775, 0.8152499047354334, 0.764489901885485, 0.8012799347210415, 0.8231486463329171]), (Prior_Ridge(), Probit(CRRao.Probit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.11616513048252364, -0.037160930493076214, 0.0045100439990077255, -0.03840825234542073, 0.11140454892908146, 0.021661950524467604], [0.09110792132944777, 0.14818442144805466, 0.0056711213983281225, 0.12752585399944705, 0.0650130693144783, 0.02877770521684079], [0.0028810854428449086, 0.004686002855301593, 0.00017933660506035882, 0.004032721591963458, 0.002055893767121531, 0.0009100309431812665], [0.005937969120443782, 0.007383814348505721, 0.0002932312468859513, 0.00559072567039334, 0.00412646452662701, 0.0014533081552242986], [197.04663877816765, 363.3879009140699, 339.1026713086868, 416.3678986179247, 265.48644649684474, 449.9678796435121], [1.0278294755734465, 1.0047791315413486, 0.9990536769363024, 1.0067617251496983, 1.0112555459579071, 0.9990570381007269]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.025837818609502804, -0.3615241848731437, -0.007039868634510755, -0.3624549010770731, 0.002585109149984229, -0.03532517822330395], [0.06139497668499429, -0.09043994620472824, 0.0006204513752539028, -0.0891996594398045, 0.06488952549727718, 0.0035248454582705695], [0.09372534551638717, -0.016458001438535444, 0.00473978831902027, -0.017985738800244754, 0.10505631482796712, 0.02160942977993184], [0.14202562047255096, 0.03209846106347263, 0.008454094733153693, 0.03121613911246795, 0.15300540259428375, 0.04007432209593401], [0.3433308145667108, 0.19837168414164097, 0.014904465664907824, 0.16874983085341164, 0.2508744997813554, 0.07781826474064567]], [0.8046162506937847, 0.7171375108311612, 0.6457179367863152, 0.7395243133343246, 0.7287719692778671, 0.7694578977404251, 0.7970577215802164, 0.9003977327996175, 0.7748585137460905, 0.8127709034650508, 0.9342415388670975, 0.8989107662769205, 0.6860558949634663, 0.6829973027503338, 0.7899615413741227, 0.6460125797034996, 0.7617650503609501, 0.7075037889760091, 0.7272452431559339, 0.6581699287358721, 0.7366797146976353, 0.784759005807979, 0.8882325327621571, 0.759445193198484, 0.8512143649807262, 0.9221879221155027, 0.7992866817047745, 0.7874343295491184, 0.592720752259484, 0.9150246232488565, 0.723346784825865, 0.8019642889635138, 0.7675716216217658, 0.7549304752487221, 0.7789678520032853, 0.7617337705672645, 0.8303737737882184, 0.7068236334410581, 0.6999190590406599, 0.8560637748109194, 0.764815620136536, 0.7134253036963134, 0.7585580397372774, 0.8332274101850606, 0.7844039038344988, 0.7463952552593612, 0.75028983027976, 0.6634742332417373, 0.8214905708378695, 0.6571951992558477, 0.7600465107916298, 0.7786664923115267, 0.7745033268722279, 0.7064983647061754, 0.7233784352353662, 0.7477062980073856, 0.8020861194791721, 0.766122452864166, 0.9411995108327398, 0.8952930113527544, 0.673317120085625, 0.7930939018581425, 0.7930999322978136, 0.8718253451461954, 0.721341616864105, 0.9194506697726305, 0.8195794064431482, 0.6595540754992926, 0.7359853755139877, 0.8639092822049591, 0.7461028752732274, 0.892511624160932, 0.8980929308025609, 0.6936871440243281, 0.8093505275551256, 0.8280796689232968, 0.6900024786112738, 0.6836962335196833, 0.8031505788366342, 0.7201843682828091, 0.6638154612178834, 0.8114833284158015, 0.719729613065716, 0.8360526635861266, 0.7532030305454028, 0.7610729254226082, 0.7007969822424357, 0.6932125115676918, 0.6681954138884802, 0.8101018455646404, 0.8491948725182793, 0.8047295544092474, 0.8808298284709708, 0.7669783005164563, 0.7075505379836664, 0.6771868355924284, 0.813903553962545, 0.756756129777631, 0.7904014915103681, 0.8180780858685524]), (Prior_Ridge(), Cloglog(CRRao.Cloglog_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.10591680906926117, -0.04592499727868467, 0.001263547485849837, -0.03597755233817218, 0.08608609367098619, 0.010015648717570809], [0.09526917056818608, 0.15465142929287656, 0.004972108315164772, 0.12640646375301556, 0.05286336658635808, 0.025539742895206108], [0.003012675697905457, 0.004890507599659732, 0.00015723187048982998, 0.003997323364270451, 0.001671686431973317, 0.0008076375840395437], [0.007266689583224441, 0.008575134004116034, 0.0002190588172845978, 0.007208883099797897, 0.0028438576897183336, 0.0010384521817808075], [104.36056279560754, 151.17045239990958, 476.9496786039833, 254.34455997911422, 326.53555322350155, 437.45483514657565], [1.0001788547076196, 1.003793395962445, 1.0026667223863912, 0.9991096819074015, 1.0011958946314892, 1.000043213056341]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.023493011884191218, -0.41581758142892283, -0.008779182252725648, -0.33531657020854505, -0.0015356024028561472, -0.0427741670175793], [0.051768931729277864, -0.08011192771710932, -0.0018922825451226154, -0.07513062970735798, 0.0481639201324885, -0.006068526931142514], [0.07869404357554514, -0.01647931812438156, 0.0010782358837901, -0.013990600043518191, 0.07939768159302807, 0.011473387300835827], [0.1255596389144063, 0.026904720292346064, 0.004463480738318798, 0.03069305782310868, 0.11706773381491586, 0.026978961699393844], [0.37249748339471933, 0.16150705339521118, 0.011389359866892006, 0.1473418196328186, 0.20825766851877997, 0.056190431515684015]], [0.7784178578646697, 0.7183544933551324, 0.677356081159808, 0.7526318063413283, 0.7426496511092668, 0.7465309463564521, 0.7912005914419523, 0.890907665196206, 0.7770044959635972, 0.771097930303432, 0.9260357113075902, 0.8876847274480348, 0.7102938446509705, 0.679224772203509, 0.7918970908805266, 0.6778168837547839, 0.7546277688986031, 0.7008793457416702, 0.7188000003056888, 0.6790619886110261, 0.707189476427196, 0.7882987829766066, 0.8755387853874644, 0.7606765870407121, 0.8295163515233693, 0.9141744858039004, 0.7917350024001928, 0.7792504043012286, 0.6492921043964727, 0.9161089020893388, 0.7023668644767057, 0.7958128252518728, 0.7778323763287562, 0.7467438253699054, 0.7771973060596301, 0.7637812034637856, 0.8132686245796705, 0.7398420537877024, 0.688311071416568, 0.8419172148875915, 0.7371905128397116, 0.7273780013384036, 0.7704835128367908, 0.8140544837331556, 0.7929564019565845, 0.7591704856102524, 0.7276695551636639, 0.67952696682013, 0.8257322668082616, 0.6867339563336311, 0.7526872498030496, 0.7737963291450222, 0.7606912497715745, 0.6848336683392668, 0.7333853196177291, 0.755516037903133, 0.7955728734381816, 0.7376669633238974, 0.9355793631299728, 0.8807097160897857, 0.6861262377023314, 0.7736076062838133, 0.7814203201466068, 0.8624001859905404, 0.7290992365587724, 0.9095118132539044, 0.7871356192592724, 0.6945859888066406, 0.7040974282610396, 0.8545278727026157, 0.7508311257872035, 0.878399537347035, 0.8620933295847142, 0.7097165939863079, 0.7982123229846518, 0.8174049984823636, 0.6948235227106458, 0.6937494133920754, 0.7837994562980701, 0.722596987726874, 0.6793887060960265, 0.8095565232954129, 0.7052618319098611, 0.8267032618550736, 0.7232639930774734, 0.7562065883327497, 0.7183519000077448, 0.7089332658957581, 0.6738446323162293, 0.8024983018544538, 0.8352703552492632, 0.7999366042740368, 0.8754093271729309, 0.7565013273277629, 0.6907369662916895, 0.679754077355568, 0.7865760139070608, 0.7617725142288329, 0.799687915433379, 0.8039229829607497]), (Prior_Ridge(), Cauchit(CRRao.Cauchit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.3361916084390649, -0.28025107138510297, 0.0068987507162568485, -0.08346105668614613, 0.3063346721595821, 0.040807963332690995], [0.43475672893489303, 0.776484763797778, 0.015308256894535669, 0.3165922590079126, 0.23091838423599859, 0.07189719002678474], [0.013748214915186917, 0.02455460422018834, 0.00048408958793708714, 0.010011526280429634, 0.007302280477916764, 0.002273588778505822], [0.043403786149450764, 0.07931617340790305, 0.0009658658931271656, 0.013901283163000775, 0.019467223797983355, 0.004701151260671111], [117.89490673715567, 104.03840477861485, 245.55933927258536, 602.4862728180191, 134.79981570362398, 227.5771120620711], [0.9997713347669261, 0.9991360483350261, 1.0006164889746407, 1.0055481910512079, 1.0054825185373961, 1.0043249665036278]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.047132828249202174, -3.053975356867237, -0.017204841699613685, -0.8565746636474362, -0.015208929347470427, -0.08130238083378527], [0.12160818675250684, -0.3123271026056118, -0.002758959223465008, -0.19673761017875874, 0.12661991640909853, -0.004854164004220564], [0.2036475019014469, -0.07436703141211808, 0.005563887847055334, -0.04136991654303378, 0.2581956828617623, 0.03690007933749331], [0.361920230504008, 0.03804013521266607, 0.014782977032279907, 0.0707852905695323, 0.4408840098340702, 0.07852432215189392], [1.7912669630262643, 0.3501476042591449, 0.04137545765334752, 0.5208909358783789, 0.8509435379244598, 0.21686373861316527]], [0.8146242546307606, 0.7340843502100238, 0.6240460271322527, 0.7735010253522417, 0.7538262168809371, 0.7805396886142538, 0.8165810456492261, 0.8814056245009022, 0.7993370573918692, 0.8108268238956977, 0.8982973203179445, 0.8795285412970559, 0.6959866777436046, 0.6494514169086141, 0.8060860771009843, 0.6344473709061057, 0.784702230429123, 0.6991871629285126, 0.7263523520014096, 0.6375025037543155, 0.7126399841290232, 0.8071434571872075, 0.8728679021705397, 0.7795215907493995, 0.8483058807019362, 0.8898103099657141, 0.8185156067322742, 0.8085103573029956, 0.5581812159844051, 0.8872258845304336, 0.7037323462747094, 0.8202110342195885, 0.7935348770317054, 0.7742656961084281, 0.7968041876775278, 0.787652547562114, 0.8383766280232291, 0.7442581799756347, 0.665877968337202, 0.8509820050244808, 0.7677297019528846, 0.7319510572509514, 0.7839544958258782, 0.8398084611287167, 0.8081200885072772, 0.7725934148952319, 0.7495790221433446, 0.6491540269611696, 0.8320577354162221, 0.6519356404161919, 0.7762152557965569, 0.7912570524604682, 0.7894022811508935, 0.6622575237708666, 0.7465178386548452, 0.7743283345787106, 0.8188918312024289, 0.7685400812076724, 0.9049024835462822, 0.876237551605196, 0.6553387029148895, 0.8087591202488827, 0.8050089302654634, 0.8611593136721445, 0.7475362556104128, 0.8895460057798005, 0.8236192531301278, 0.6662029348045408, 0.7053977527758492, 0.8602482583634711, 0.7605232550204525, 0.8729462020786674, 0.8738129019316596, 0.7054485633711195, 0.8256422071786911, 0.8378340265544972, 0.6867407335828947, 0.6692146271255005, 0.8175383885336008, 0.7233347512226842, 0.6241347566357556, 0.8289670613718079, 0.7026116441428104, 0.8433999362529981, 0.7437937227947072, 0.7849612952730454, 0.6920402620049121, 0.7122054702320508, 0.6313676533861453, 0.8271447586446011, 0.8474091821974393, 0.8222932915496621, 0.8654497385891227, 0.7653394115449912, 0.6775131912737177, 0.6444707394900451, 0.8223542847590394, 0.7831700494344638, 0.8096500547801856, 0.8305708315812774]), (Prior_Laplace(), Logit(CRRao.Logit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.18499893177222884, -0.13075610444082336, 0.007880743062093321, -0.08895511694407594, 0.2119912463205693, 0.035290948071021115], [0.1871918515167273, 0.4362655368458815, 0.00961643768381584, 0.25491086461811086, 0.13437419962643005, 0.046778517091285304], [0.005919526102169031, 0.013795927610690959, 0.00030409846057932185, 0.00806098932516058, 0.004249285295816659, 0.0014792665957357625], [0.012284254439487349, 0.030422052544540886, 0.0005506621029180518, 0.01623479919003886, 0.010276207367516903, 0.0021090708662202455], [167.80478708522932, 187.85475403337142, 304.76106635468824, 170.5519443520007, 149.0798550265395, 301.661539996448], [1.0010390165735192, 0.9990154665008257, 0.9993412316836459, 0.9994945236821472, 0.9993461386645943, 0.9993635257375552]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.024284058394606692, -1.4302506879360977, -0.010469182106306612, -0.7629249586676741, 0.004770517603772514, -0.05685683710488217], [0.07396168420090465, -0.15888903056958195, 0.001273331558054846, -0.17512299022523528, 0.11291078272697382, 0.008407071841624918], [0.13148586486467673, -0.019473477733265177, 0.00753512011375757, -0.02555217830703494, 0.20109675381117026, 0.03428750590118122], [0.22222925364522206, 0.041160670017115306, 0.014453501678857983, 0.032487453558499864, 0.29524127001656386, 0.06232977128673712], [0.7291213329390587, 0.34489447298838183, 0.026591052124004953, 0.30890941815139733, 0.5079273434324529, 0.1358652657390487]], [0.8074101220419305, 0.7133316082931334, 0.6244868948156364, 0.7469563457103068, 0.7282178091977228, 0.7690684202331997, 0.8049587438888542, 0.908824725443251, 0.7811367777608431, 0.810382271902138, 0.935618052726527, 0.9058526968533432, 0.6761263518712104, 0.6627702072332088, 0.7957707658430998, 0.6284562549063561, 0.7639745018771065, 0.6996324383738409, 0.7228163037744783, 0.6378144865879212, 0.7217012886555674, 0.7925077538860132, 0.8952484725332422, 0.7602253376845467, 0.856459798464703, 0.9242107859389477, 0.8117372447826599, 0.7938321371436438, 0.5680423090865092, 0.9195404173902604, 0.710494517656983, 0.8103016988306114, 0.7764880988640676, 0.7607825199067471, 0.7974494023147125, 0.7658466555066901, 0.8392688558950632, 0.7124554093187339, 0.6891873107123871, 0.8620733481475544, 0.7589970751014483, 0.7118956958686308, 0.7637234685421925, 0.8420002887012187, 0.7938170056206093, 0.749488568110723, 0.7478726974004342, 0.6504880428614788, 0.8317182060725254, 0.6488533079119987, 0.7701743096072792, 0.779288284057592, 0.7736589192085541, 0.68756197390394, 0.7205789434118893, 0.7501682637113256, 0.8092672749277995, 0.7603606375806156, 0.9435607737680675, 0.9010318218257996, 0.6538989217491833, 0.7980913207483946, 0.7948201633347032, 0.8784177000510256, 0.7235664872273906, 0.92307074224617, 0.8251374177933198, 0.6475713408919246, 0.7197772006028371, 0.8740625129508673, 0.7432922782616417, 0.8971201678864059, 0.8990786226617342, 0.6907761687810386, 0.8198830149893015, 0.8375383891873243, 0.6804682493095362, 0.671965473445855, 0.8095317434098777, 0.7263173297156708, 0.6372443078305349, 0.8230632133773804, 0.7142564941394981, 0.8478260174435555, 0.746122142008166, 0.768934988685221, 0.6897112948851936, 0.6898120116415711, 0.6566335322769046, 0.8221914458008986, 0.856372634023894, 0.8134629845875075, 0.8869827211184781, 0.7600326938142635, 0.6909717310461978, 0.667515595596222, 0.8188102151845346, 0.7604858142087182, 0.799285188903873, 0.8266671663520054]), (Prior_Laplace(), Probit(CRRao.Probit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.12200974078868217, -0.07187694678685533, 0.004287491669694794, -0.0626894208326687, 0.1290476877421716, 0.02293313333429455], [0.09453340843110658, 0.2146753137516631, 0.005830648694816665, 0.18370886233070913, 0.06767053555745557, 0.03079104384254509], [0.0029894088562126145, 0.006788629488665219, 0.0001843813011190866, 0.005809384313233497, 0.002139930228449717, 0.0009736983007654547], [0.006851427331384145, 0.011231297057730147, 0.00025246487913097986, 0.010123408234041413, 0.0048138552721441324, 0.001990813906568882], [167.6636986178247, 351.99399039176916, 387.1502979360681, 335.95297010798396, 165.60277530806758, 197.99747441286186], [1.0038587842038682, 1.0002872262474543, 0.9999731656197076, 0.9990138515327365, 1.0050578902212575, 1.0048796933319508]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.02756848360688853, -0.6639609862395988, -0.007014068368027103, -0.5936382528535331, 0.007363562903901131, -0.032322647543048436], [0.06050750002703054, -0.14490015471192563, 0.0005438628540155333, -0.11045195818242916, 0.08359985091127087, 0.001457308965810225], [0.09448639404281858, -0.02297438964014384, 0.004084532435439013, -0.023150327023919857, 0.12782209598723424, 0.022414916023123534], [0.15352850417970101, 0.038671909205556534, 0.008190222120560618, 0.02645451051048292, 0.1701057203398832, 0.041143429316895214], [0.3938644713554648, 0.2721984903684564, 0.01653250845146961, 0.19691671327570376, 0.2688115050317241, 0.08909637964765364]], [0.8041307103850835, 0.7068725031384616, 0.6221544340356859, 0.7402631084070387, 0.7236206201189616, 0.7636626289578021, 0.8024150767479535, 0.916161260375207, 0.7777477692913105, 0.8076666186899895, 0.9485876749038755, 0.9142381691985675, 0.6720937682256626, 0.6593795861616785, 0.7949670750819505, 0.6247835032057022, 0.7587190190336244, 0.6935050944550155, 0.7179436001158798, 0.6348223147263461, 0.7182568683027378, 0.7902982457873676, 0.9029380502448825, 0.756747205968317, 0.8592564914516009, 0.9376104903549375, 0.8071346888201599, 0.7900769119286815, 0.5660899118074387, 0.9329130135120997, 0.7061227752313105, 0.8082223896690761, 0.7745254741783105, 0.7535454492716576, 0.7893103175779241, 0.761457732934236, 0.8385867260759013, 0.7059309947363561, 0.6837272142031938, 0.8670481645352655, 0.7544430672977124, 0.7080659213358167, 0.7605678366713784, 0.8413185711141506, 0.7919422742494422, 0.7455905836003576, 0.7419230030125631, 0.6447983696392373, 0.8342816708502843, 0.6446995907493647, 0.7627756542877515, 0.7773575473109684, 0.7699516574211113, 0.684442042340284, 0.7155048536026466, 0.745672061749668, 0.8076599058286722, 0.7558364334557961, 0.9547806821438822, 0.9095674383061264, 0.6507578654032509, 0.7936972057425603, 0.7930466956006886, 0.8861294437481537, 0.7160738007529277, 0.9350167323302919, 0.8218221958049516, 0.6433513602018649, 0.7166823209565578, 0.8784567149964321, 0.7401531522376712, 0.9065486214407827, 0.9055240801758971, 0.685735780049791, 0.8168064626937789, 0.8376950706622601, 0.6744125042358566, 0.6687454126251332, 0.805878298949251, 0.7174166286597367, 0.635925174589857, 0.8217412175050102, 0.7080238302197897, 0.8488395108501059, 0.741356263841259, 0.7619527021686495, 0.6891090020297677, 0.682743309033729, 0.6503842918498162, 0.8191786816793326, 0.8603413014661567, 0.8119199595049824, 0.8969192709051992, 0.758099472412712, 0.6871440005555917, 0.6610278927056298, 0.8157553143608509, 0.7561573869075372, 0.7988952465653009, 0.825069389383019]), (Prior_Laplace(), Cloglog(CRRao.Cloglog_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.11410681647752219, -0.0859973208188572, 0.0020532257209599945, -0.0503414789841447, 0.09845870562971507, 0.008897954477897678], [0.1255904459301863, 0.24038335753597684, 0.005207632583926532, 0.15444597601716978, 0.05590068980645724, 0.026822696364705526], [0.00397151861495613, 0.007601589214122878, 0.00016467980182515807, 0.0048840105966199724, 0.0017677350256296196, 0.0008482081349958788], [0.010292808525347693, 0.021683917187611645, 0.0002422340549393649, 0.010044953825945134, 0.0026967242539471356, 0.0017728532324806081], [145.6957935969622, 124.6543686128094, 447.30463356268274, 294.78440155288814, 302.79868716672706, 300.9922785153384], [1.0186015745733434, 1.011548213109439, 1.004117085135012, 1.0007084360974157, 1.0079094235119341, 0.9996165316912051]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.024265540742885075, -0.9188118156329264, -0.007409044434060008, -0.4712533431825194, 0.0029373290707322332, -0.04236713434142661], [0.05055989286170957, -0.10757407597056698, -0.00140133746583264, -0.0911718273590382, 0.05694376057982263, -0.006933307665793501], [0.0786739892558037, -0.020132652226052535, 0.0017957669246342085, -0.014925992721372624, 0.095827118410625, 0.007169977786047174], [0.12814446408333607, 0.023542528196859886, 0.005076669993286737, 0.023610390352864184, 0.13554370152609746, 0.02440185288229074], [0.39233072221255255, 0.15877791301468178, 0.013016721865178583, 0.16640302682565056, 0.21215522693663538, 0.06549669502917001]], [0.7863195325653812, 0.7186402029281576, 0.6581423435977818, 0.7571160559294288, 0.7355559665389375, 0.7542510146905407, 0.7973601372304855, 0.9123606677624071, 0.7782210210362949, 0.779475803482612, 0.9398940885488295, 0.906536257584684, 0.6963629094521742, 0.6727471527070096, 0.79070457936866, 0.6635622946627233, 0.7567171119547886, 0.7058491011105589, 0.7218301414865091, 0.6634952947935217, 0.7081242711973298, 0.7904011600329033, 0.892454527899426, 0.7556295148589318, 0.8384743542622963, 0.9266550202196612, 0.8090727590811424, 0.7848113517241327, 0.6304457025623649, 0.9297789522570428, 0.7048076748711575, 0.8026901794112726, 0.7800717046131361, 0.7595737357498435, 0.8021666379041744, 0.7634085014489206, 0.8270473638886892, 0.738303774153427, 0.6975857140719206, 0.8496946890391105, 0.7404254997922692, 0.7228973198028424, 0.7673198930081324, 0.8288320967324997, 0.7960221838168217, 0.754359481268993, 0.7390101996363123, 0.6766831074144054, 0.8322039780476544, 0.6811608769085024, 0.7694783962641802, 0.7684369165262389, 0.7588718240794772, 0.6862211322460885, 0.7266222246047023, 0.7520340445623598, 0.8002202997794878, 0.7413075258092028, 0.9507667656403617, 0.897044927538296, 0.6714286409719066, 0.7831650576200132, 0.7795056233531953, 0.8728506116847279, 0.7334716910712631, 0.9232370030984002, 0.8041374289297347, 0.680575314341411, 0.7057934263495937, 0.8720650652685694, 0.7412395850258139, 0.8907681172728644, 0.8755617454358482, 0.7081048672315844, 0.8125264585559208, 0.8289752963941966, 0.6945604664593507, 0.6877072914339578, 0.7946252964251385, 0.7409035927333971, 0.6564217181059078, 0.8212437436435723, 0.7170685872804595, 0.8415782164228838, 0.7315605748112081, 0.7685580908126463, 0.7026092073680607, 0.708387510184358, 0.6810263398447189, 0.8183764361454736, 0.8442825835816395, 0.8067978711365634, 0.8856397067915281, 0.74484174504286, 0.6904624051706616, 0.6886019396634872, 0.7986261860762234, 0.7600510867030803, 0.8010529514592885, 0.8151982775792112]), (Prior_Laplace(), Cauchit(CRRao.Cauchit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.2645523483658993, -0.1768855023376911, 0.00478526767528115, -0.11679462427163133, 0.3474868167023366, 0.03302801323946309], [0.3292307312401581, 0.5463956839328078, 0.013347819509772974, 0.3984162779846481, 0.22283330532302872, 0.06707847820305213], [0.010411189864416517, 0.017278548649131406, 0.0004220951144771472, 0.012599028953182876, 0.007046607833644933, 0.0021212077309960328], [0.021310348983693706, 0.03592595340659509, 0.0006136229229305165, 0.03143098497656626, 0.011520928414437777, 0.00415812957044078], [221.53480375519246, 238.83014591661495, 416.9217216388986, 163.1247736957968, 347.6484288804156, 232.1459915386374], [1.0014407292095058, 1.0029602011057808, 1.0003286810906091, 0.9992642486272935, 1.0025304978500547, 0.9991205719113511]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.05343006042745331, -1.4014960080474836, -0.019915488038100917, -1.1328516839637668, 0.011949654789959623, -0.0837650652714736], [0.11235368874942174, -0.23548867351049083, -0.003911380006028864, -0.2128167721641908, 0.183266392158364, -0.009425621929304172], [0.1769910820135568, -0.04819131365874632, 0.0036785155053528553, -0.034857932295885366, 0.3269563118422595, 0.02520874184382725], [0.3017671006541722, 0.049742165970894925, 0.012874796819735588, 0.059753551222951964, 0.47025491470677816, 0.06810433921745612], [1.0175429004731673, 0.3857329715429004, 0.03425604701956239, 0.4429024830093464, 0.8871734560948848, 0.18636838051602514]], [0.8150799687686043, 0.7285860076442893, 0.6110697685424166, 0.7849202124583312, 0.7642816338792103, 0.7744336249407101, 0.8265857189139753, 0.8947956605204146, 0.8108420880664032, 0.8030192064828603, 0.9118269524535833, 0.8924388646155369, 0.6994643053633532, 0.612877489371297, 0.8213431928793381, 0.6231425467109244, 0.7873598268936727, 0.6812331603523555, 0.707859182253087, 0.6172629909911608, 0.6796984638870479, 0.8210408877405166, 0.8853769429816588, 0.7880930910832317, 0.8567664580598827, 0.9042243190616882, 0.8282150457712009, 0.8158878198254879, 0.5438812657831004, 0.9044907479935717, 0.6749691182067229, 0.830663975783721, 0.8053287016381226, 0.7760025754234996, 0.8075097780795112, 0.7966411907214904, 0.8469208563728028, 0.7627731945618587, 0.6392454218731592, 0.8632343788224517, 0.7539537849095928, 0.7295006380690313, 0.8000465881798547, 0.847836862662095, 0.8245270835046045, 0.7868647177658711, 0.7372088623721033, 0.6310380172050883, 0.8498721841891682, 0.6400903006089287, 0.7779383707268896, 0.8004851029035164, 0.7899868388918434, 0.621151310265499, 0.7512205661088247, 0.7845782119477449, 0.8294170453179642, 0.7546273337785299, 0.9188015727095761, 0.8882727663132644, 0.63333550196528, 0.8112051539469803, 0.8118262039692322, 0.8754968385369117, 0.7506548396019528, 0.9023843114090391, 0.824778137504975, 0.6687299029340276, 0.6691557936647048, 0.8732380966457183, 0.7690358531879949, 0.8856540530580199, 0.8793789961655185, 0.6977379149004171, 0.8346869899509931, 0.8487089004739782, 0.670939784306018, 0.6440002844471205, 0.8218537171233834, 0.7249466914575502, 0.597231455375087, 0.8419385405454791, 0.6847118732422149, 0.8537016809807328, 0.7238282383574914, 0.7901065724309914, 0.6847032764738928, 0.7112169357795962, 0.6068006495112165, 0.8377316875836454, 0.8569072837457796, 0.8337442158876421, 0.8818342981059248, 0.7664233161780285, 0.6426317784091706, 0.6222135239674135, 0.8244062195489039, 0.7932842006093958, 0.828315475549933, 0.839115997914193]), (Prior_Cauchy(), Logit(CRRao.Logit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.12004714003665949, -0.22843523252281897, 0.010365790717924284, -0.08841605790373269, 0.21561765605482547, 0.024617592699232114], [0.18846851193867148, 0.745240472850349, 0.00919529284071721, 0.2693550196269864, 0.14141351390603302, 0.057285968532930505], [0.005959897649488383, 0.023566572987479783, 0.00029078069128906265, 0.008517753612206346, 0.004471887958709587, 0.0018115413853279489], [0.018070452398407325, 0.06109141349767335, 0.000731735160234977, 0.016485937020958935, 0.015542800240941016, 0.005143646170652252], [39.67872392730868, 128.03563014523908, 92.34151844479287, 280.32473845974414, 28.948868202723105, 40.956822333921025], [1.0021856824073494, 1.000071875921897, 1.0199096700278212, 1.0035832499939374, 1.016738738222773, 1.0192873600214538]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.01070782013609518, -2.619635202462987, -0.009260796454039785, -0.879228228910564, 0.026470859809193007, -0.040023612628061665], [0.01070782013609518, -0.10947606417931857, 0.004768443156039766, -0.1071002225234477, 0.10865805644586542, -0.008022847943572563], [0.05638142563842035, 0.014718450867131333, 0.013491392462420098, -0.015711404772377775, 0.17609997286720275, 0.004105384727982206], [0.1376478261997446, 0.021712661151245705, 0.013498752395760889, 0.007261179998213663, 0.29799975823254987, 0.04821910717822947], [0.5921305335272525, 0.2797492996218461, 0.0302231831659334, 0.28298644460113087, 0.5430116690725212, 0.19140644137848653]], [0.7869378704658875, 0.6996210745628885, 0.5827984475801122, 0.7246680852488256, 0.6846687368710236, 0.7616849895146651, 0.77354582075409, 0.89429410089918, 0.7433379162579221, 0.7965328588167183, 0.9106820449588817, 0.8846003833608019, 0.6307392946663752, 0.6556230633644454, 0.7468391524808439, 0.5982206752766823, 0.7385268040443207, 0.7065497074375923, 0.7107992650783294, 0.6055309549461215, 0.7207738143947099, 0.752288162288819, 0.8692422727870427, 0.7151385954521237, 0.8204938587807681, 0.8914568238464122, 0.8038227923170126, 0.7658225827740699, 0.5399624620187901, 0.892862073072863, 0.713762933031576, 0.778850032179222, 0.7343553427180967, 0.761882506891481, 0.8067892211643669, 0.7298644481024493, 0.8178349621767139, 0.6801243063864867, 0.7134810155151344, 0.8198010733962218, 0.7472926362730354, 0.6752867809927575, 0.717452664599997, 0.8226131954933986, 0.7536185035971282, 0.7040284528561294, 0.7574922753020987, 0.647685590872579, 0.7896599668490424, 0.627248209551911, 0.7727184248124574, 0.7285526852827348, 0.7379500634616335, 0.6982928954364576, 0.6826599697843244, 0.7099763244768765, 0.7730632407229032, 0.749435425351086, 0.928975971822186, 0.8736462343664874, 0.62124930697937, 0.7821866903428932, 0.7497853029110934, 0.8385652313943264, 0.7124155874918676, 0.8917879274797594, 0.8212272864014776, 0.608549004258895, 0.7226452308638951, 0.8511676995454331, 0.6914785585063757, 0.8605858448685515, 0.8694067599076905, 0.6685764267178804, 0.803838243011837, 0.8097206896066712, 0.6770492258995776, 0.6489757641178371, 0.7922399468490814, 0.7492375499760848, 0.5880624789110303, 0.7971861575377561, 0.7353096354440618, 0.821260619516862, 0.7527143966571634, 0.7642751233934046, 0.6307160004942892, 0.6766507460038315, 0.6812095400434395, 0.8076895906877795, 0.8156602942681795, 0.7804553252611579, 0.8454656884817794, 0.7026661526723469, 0.6938073892325783, 0.6930225282178205, 0.8040160345935812, 0.7219545480968959, 0.7528909274010873, 0.80261797464535]), (Prior_Cauchy(), Probit(CRRao.Probit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.0784680455576405, -0.0955670341529727, 0.0048750413991180686, -0.04675667967775613, 0.13147240272780836, 0.01960005050419522], [0.09350072620022815, 0.3229079179200943, 0.00555829887596169, 0.16579572015534075, 0.07121828043474296, 0.03188636618389909], [0.0029567525767250176, 0.01021124495130199, 0.00017576884363992666, 0.005242921019987624, 0.002252119772143944, 0.0010083354344729253], [0.005054951184127824, 0.01936399997928342, 0.00027719763904930503, 0.011818008120346746, 0.003535480832750833, 0.0017990262794947782], [300.3991031937388, 237.31541712922083, 442.40889781328895, 187.63214858977437, 318.26890163298077, 348.58774915723734], [0.9991367970757935, 0.9997121645844441, 1.000350888233927, 1.002166259955408, 0.999481017934815, 1.000394301069767]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.009096420306202394, -0.8777645988027933, -0.005531150391363014, -0.4791447924318447, 0.010714258873643186, -0.034846754986101576], [0.02695882851888604, -0.10226209317897933, 0.0009547893460191494, -0.0687154682025923, 0.07770331800572088, 0.0005849698181182848], [0.04922634076184616, -0.010152568688747018, 0.0048208152749300275, -0.008612951757884665, 0.12757785508570527, 0.015900564370029627], [0.09397969030051365, 0.01998320775837568, 0.008774347212580191, 0.02272196465605502, 0.18021839640439627, 0.037316243075044254], [0.2914325057705405, 0.20589342968934665, 0.015413411930158827, 0.16593574424958488, 0.27633062081785403, 0.09322313298751883]], [0.8017763011663762, 0.7030663076440022, 0.6122549580578385, 0.7371261184367615, 0.7169174802868827, 0.7620003226655184, 0.7992914277945214, 0.9178437223171897, 0.7732037291583813, 0.8052262576384208, 0.9473206200059154, 0.9144837139660835, 0.6635967677175245, 0.6537476915229018, 0.7895742723259693, 0.6164466258647558, 0.7549217457759898, 0.6919565485434999, 0.7129718325901617, 0.6261165528350395, 0.7144594668141221, 0.7858149669080681, 0.9022965624081973, 0.7506635173949613, 0.8563460453345564, 0.9353198577185795, 0.8082523405601945, 0.7870008379686568, 0.5568646862360387, 0.931204336245499, 0.7032782593847952, 0.8052509470087397, 0.7675311169189556, 0.7540796325160364, 0.793196555387122, 0.7566368695641971, 0.8377510428049494, 0.7009918380452669, 0.6843769302827007, 0.8636218738554359, 0.7511244979043459, 0.6995829380959926, 0.7546689308638176, 0.8408463399387415, 0.7875418521664178, 0.7393594239464278, 0.7422883255337785, 0.6406532015844161, 0.8304576508541422, 0.6361398882837566, 0.7632092771092, 0.7711570089645202, 0.7648450788422553, 0.6814401678220657, 0.7090567482735141, 0.73995184102386, 0.8039932025712345, 0.7526391724623034, 0.9553130389429498, 0.9086424538104677, 0.6423416719423473, 0.7921656204245536, 0.7877048795419607, 0.8832317395636532, 0.7135449920253176, 0.9323776955147581, 0.822840460000835, 0.634891074981535, 0.7131408781303018, 0.8782866006924518, 0.7329174480230093, 0.9041317530588284, 0.9035583896446412, 0.678502995067125, 0.8165230211268132, 0.83594081594168, 0.6709014981065136, 0.6603594276454333, 0.8045930170258873, 0.7214254451947409, 0.6252076626082076, 0.8200666989935527, 0.7093405108346443, 0.8465348117401992, 0.740314372561505, 0.761977049264348, 0.6772915103570081, 0.6787943463780086, 0.6507198895809974, 0.8193811230292037, 0.8559136250015743, 0.8088494255916604, 0.8937688258445682, 0.7504521526508526, 0.6834986616814177, 0.6619206752444027, 0.8147741365159717, 0.7509153449804299, 0.7938940594349564, 0.8235071870831779]), (Prior_Cauchy(), Cloglog(CRRao.Cloglog_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.05951644945064008, -0.19507136813117917, 0.003569894575738503, -0.03646632236010713, 0.07704771219467307, 0.014773753284151822], [0.0975369833778026, 0.483118684584912, 0.005923626582774252, 0.12464735060509838, 0.06280426077452719, 0.033050269882619054], [0.0030843902357583974, 0.015277554234728007, 0.00018732152009886573, 0.003941695322176781, 0.001986045108106766, 0.0010451413011234203], [0.008911863254832788, 0.051538801993475984, 0.0006273579792347692, 0.007522520944839264, 0.008025236809314204, 0.003044250488150954], [62.870958737170845, 64.42244822079871, 9.80977663042554, 290.18964711343347, 9.323751313776363, 87.78871829317166], [0.9998705006662605, 1.0044548321557039, 1.1488300708457309, 1.0042014481082668, 1.134424794804455, 0.9993603603811813]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.003163137248086445, -1.8022197915197786, -0.007080929619812243, -0.4198188244323554, -0.00669287616656912, -0.03577994382252508], [0.008172663894025824, -0.11265908833122423, -0.0008062733164566383, -0.04281223211874632, 0.011327165475163138, -0.0019614717695531454], [0.022008276980726067, -0.007728205662650974, 0.0035688963865054806, -0.011027652140660944, 0.07711381174287255, 0.005709879233465925], [0.07205226161803607, 0.005586310867846785, 0.00783926039818857, 0.011594541694245529, 0.12332440385507734, 0.023746325869885718], [0.3124901357696538, 0.1537196458073125, 0.01538002173284578, 0.15871951421309155, 0.19810098971789256, 0.10456725613535875]], [0.7834333451922593, 0.7189482563899251, 0.6653891217090068, 0.7389314940571884, 0.7254921223714532, 0.7571261848336377, 0.7800225472679646, 0.8777371675536184, 0.7615645389137052, 0.7863688787617978, 0.8986376481067522, 0.8727369405517013, 0.6939961330218323, 0.6913891596713576, 0.7715694773814669, 0.6675812551526642, 0.7510092017471078, 0.7135434625725677, 0.7289271616494207, 0.6738301918535566, 0.728451144159132, 0.7695918273077704, 0.8608751693188945, 0.7470968142149589, 0.8217512004544821, 0.8853858052352723, 0.7890715306525888, 0.7719951479957401, 0.634205180142491, 0.880641280356576, 0.7210946843544209, 0.7841768294316636, 0.7606262316432433, 0.7521186982154751, 0.7828962887132624, 0.7510185814635433, 0.8093251682095532, 0.7153281543017389, 0.7099453997812899, 0.8259421849463784, 0.7504703109769763, 0.7189776588659476, 0.7485088854845194, 0.8119569166435194, 0.7703977081948744, 0.7390232542572822, 0.7450663103578834, 0.6825276335523677, 0.8000536346989984, 0.68189183895362, 0.7609057531358758, 0.7603943387783524, 0.7576875078338257, 0.7085869552590008, 0.7213008958482893, 0.7399911381115531, 0.7829162839316139, 0.7514786814691846, 0.9079470780994824, 0.8660654625002258, 0.6835222696150624, 0.776777780300157, 0.7719118707104833, 0.8412997167702488, 0.7251238838343281, 0.8867386499397246, 0.7995212809948572, 0.6772592423813273, 0.7278254075574689, 0.841279108970264, 0.7359017950727257, 0.859484422757957, 0.8605563623082875, 0.7066806851046665, 0.7940405440778258, 0.8070062435541103, 0.7002752115167883, 0.6970945268387269, 0.7853696766668067, 0.73318173227302, 0.6745261993107251, 0.795251006534129, 0.7248969338773236, 0.8183475730855135, 0.7439875489533785, 0.7568965263345896, 0.706295350104475, 0.7039110958063927, 0.6899765681266861, 0.7963955254967299, 0.8236396903852115, 0.7864799887091811, 0.8486107707516382, 0.7483214697216702, 0.7093310913930195, 0.6965894887423223, 0.7929495808466838, 0.7470777366814446, 0.7739630000830665, 0.7983103452239078]), (Prior_Cauchy(), Cauchit(CRRao.Cauchit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.22113769779702072, -0.816202098056393, 0.010029087588992937, -0.15560420319887677, 0.4703762700147537, 0.05049859162348941], [0.2778711007855549, 1.8276443672090426, 0.017155999356557344, 0.5312270458067184, 0.2956134383970143, 0.11131949364696402], [0.008787055744205564, 0.05779518953157729, 0.0005425203350310438, 0.0167988741943183, 0.009348117722884398, 0.0035202314790105014], [0.025360938894191203, 0.17111571863566014, 0.001459610211167415, 0.05376614476971942, 0.027295929961453712, 0.009776502951340721], [95.470772782068, 99.16303780354586, 134.9198792239559, 76.89148208289124, 96.59656062567232, 134.4724504221614], [1.0080395839986858, 0.999655042988398, 1.0035368031992695, 1.038467216627089, 0.9991114568303994, 1.001355110028292]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.01940406621565604, -6.23116242345987, -0.01586848407000675, -1.9177716558277662, -0.00040638701810110506, -0.1002808432217804], [0.050844347163699254, -0.7243755971969947, -0.0020554709685695945, -0.20705974745331057, 0.2594925761874848, -0.0072814400291820024], [0.12861999592227327, -0.08917015422200959, 0.00776552776427525, -0.03847856720466722, 0.42710405426981934, 0.02274751854433242], [0.26265821895222935, 0.006805973482934519, 0.01848179371860421, 0.030755364290359376, 0.660732098222522, 0.09179043204049514], [1.0038847369613402, 0.23434509574012616, 0.05004363293825136, 0.6343877685195292, 1.0816493544027355, 0.31432453143426337]], [0.8329068093308651, 0.7284915853517281, 0.553731585754317, 0.7852221216477673, 0.7614076888861132, 0.7922387519364281, 0.8400369992314202, 0.9082885914293373, 0.8207322843571332, 0.8224375448865594, 0.922583510587441, 0.9058916073805567, 0.6717442440454189, 0.58613225767648, 0.8318086226152184, 0.5680923798336414, 0.7989671592082871, 0.6825719041233184, 0.7066803126199704, 0.5679071636450558, 0.6817446985334484, 0.8311936385375239, 0.8992631008623065, 0.7955177864411241, 0.8724763261110222, 0.9153578324969014, 0.8453606241039882, 0.8297325426513756, 0.4684068530189585, 0.9141279700647084, 0.6776870960594359, 0.8443111597107504, 0.8115457486093605, 0.7932834252967278, 0.8233847783864469, 0.8052304784105151, 0.8636940030086476, 0.7399907281986884, 0.6413320312082761, 0.8774085931806186, 0.7679332955803808, 0.7153316591260936, 0.8049120863437675, 0.8651556666160296, 0.8332234662162878, 0.7892166484087669, 0.7579993717803037, 0.597229511352686, 0.8609556974540015, 0.589010240855747, 0.7935239461480404, 0.8106149876128571, 0.801978775980354, 0.6149674112722171, 0.7478698864648811, 0.7889656626513714, 0.8427626973962754, 0.7690215277306187, 0.9286563130568138, 0.9021023150632798, 0.5949843984197828, 0.8288756826480976, 0.8245427858106064, 0.8886448610573251, 0.7500198246226998, 0.9144847069831895, 0.8469928461714806, 0.6225115443202646, 0.6708044219078444, 0.8876445098727473, 0.7722623890224296, 0.8990094257124468, 0.8957448407767155, 0.6707867581108659, 0.8512716243237821, 0.8637160309423484, 0.6562070717491506, 0.6068048858982852, 0.8395660251139317, 0.7390017457397408, 0.5507319320677788, 0.8552357073676963, 0.6992177773841605, 0.8690770279593508, 0.7407278920089589, 0.805327492759091, 0.6635749849849665, 0.6939269000206973, 0.5893468963614098, 0.8537697135648755, 0.8722758811155154, 0.8470501083234017, 0.8939449514046233, 0.7727696915832742, 0.635546760725732, 0.611737448583524, 0.8436286456237978, 0.8002027795580509, 0.8371266827558262, 0.8551783837859713]), (Prior_TDist(), Logit(CRRao.Logit_Link), Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.27954949276923285, 0.5905850178329072, -0.08973475164283885, -0.6669645533094363, -1.678105206110153, 6.058735045041184, 1.2925046322421494], [0.0024917148181340287, 0.0015398173029084934, 0.008967538972571671, 0.01336823812273623, 0.007038795513563654, 0.013866531218981648, 0.0254613071847702], [7.879494104895755e-5, 4.869329857728256e-5, 0.00028357848159652697, 0.0004227408077134005, 0.00022258625807035758, 0.0004384982189781307, 0.0008051572290908345], [0.0004340740500264184, 0.00024480205949683066, 0.0015864390570918972, 0.002375741775819175, 0.0012296494838807362, 0.0024494817763775455, 0.004528211791325856], [3.28194075293991, 12.897550092706359, 2.593843027616207, 2.212632656062353, 6.166152733950905, 2.3070498198394382, 2.213626070779932], [1.4099645514670902, 1.0290578678796822, 1.9612095090017407, 2.773534518492595, 1.0303391438686047, 2.520060287029737, 2.745610231801574]], Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.27535443764441997, 0.5872698812287319, -0.10160060684160463, -0.6885418482829786, -1.6887642106782252, 6.032569921613352, 1.2502248309523392], [0.27731213259326426, 0.5896932684858438, -0.09804394433321087, -0.6772465482135323, -1.6845984410383075, 6.0453066019218875, 1.2718246539090912], [0.27982892302909, 0.5908190325861287, -0.09292790369261286, -0.6702481400652374, -1.6785955240962904, 6.064496622415465, 1.2979970796787792], [0.28119561083388234, 0.5916999877100784, -0.08089769291207807, -0.6555975882890459, -1.672322726648146, 6.0695268985989435, 1.312466282491688], [0.2850430843310484, 0.5931187315623115, -0.07481760254031404, -0.6441323974457193, -1.663255872620899, 6.081402757510044, 1.3304967739284486]], [0.03786682720445959, 1.0944703023168398e-5, 0.8262112739300799, 0.9818521813510735, 0.9999991196910409, 9.308426220340889e-8, 0.9999978948325274, 0.9999999999999521, 0.9999998789140271, 5.37174882459503e-7, 1.0, 0.9999999999999913, 0.9999342228354747, 1.9486623526979408e-11, 0.9999999999970718, 0.018311987623466378, 0.6788871569086675, 3.934252514905249e-13, 2.4482588531796122e-8, 0.003935333288502787, 1.4266343001647012e-13, 0.9999999989487076, 0.9999999999998507, 0.9999998855091936, 0.9999999958892605, 1.0, 0.14616644873180157, 0.9994199502092258, 0.008050329650362502, 1.0, 7.357345713855297e-14, 0.9999992576689269, 0.9999999949743524, 5.255638052829404e-8, 2.4869453760106763e-7, 0.9999907726301397, 0.9996106533565003, 0.999993386091869, 3.690728210832267e-19, 0.9999999999998955, 4.311237689568064e-8, 0.9822083937433118, 0.9999999997368505, 0.9971305616492881, 0.9999999999312801, 0.9999999937487466, 1.177758150158598e-13, 3.7316303591425575e-10, 0.9999999999999994, 6.847083468607753e-5, 1.0991696244673046e-8, 0.9999999991831208, 0.9978330059590678, 2.806860490208529e-17, 0.9994735476461186, 0.9999987663664681, 0.9999999540521106, 2.3008685218421938e-8, 1.0, 0.9999999999999649, 0.0031316405170605226, 0.009125682304878103, 0.9999999682568751, 0.9999999999999999, 0.00013949332025855758, 1.0, 4.798700190501367e-7, 0.9949124618071806, 4.2210057392476266e-15, 0.9999999998890602, 0.9999999895762532, 1.0, 0.9999997124925604, 0.0006214787054985503, 0.965163471071343, 0.9999998114777192, 7.18361651148722e-10, 4.387793310068213e-6, 0.14724634508129691, 2.1768074374032663e-14, 0.802563962848363, 0.9999998263469333, 2.4210100885206916e-17, 0.9999998670830189, 3.2926624694492675e-14, 2.920675907113411e-5, 0.9999995089556237, 4.4327661821136845e-5, 2.239830400263444e-18, 0.9904464639707392, 0.9999999999926639, 0.9999999351450936, 1.0, 0.9999999923357442, 3.04497558203566e-14, 1.7476739692978274e-18, 0.0035753623439311426, 0.9999985118564646, 0.9999999999998097, 0.9998098577178949]), (Prior_TDist(), Probit(CRRao.Probit_Link), Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.599076333866328, 1.9787382266737652, -0.8055408289645086, 0.01002230678626819, -0.24180073862782958, 0.1839735499853874, 0.06121397615398301], [0.2856123399948268, 1.7428157065308936, 0.7956444045549765, 0.00761243032109591, 0.3720221918864641, 0.07292281120721503, 0.052830470101931606], [0.009031855222340566, 0.05511267174553215, 0.025160485259621744, 0.00024072618343990001, 0.011764374664894396, 0.002306021767972524, 0.0016706461537953179], [0.014896403216655387, 0.08482691288119937, 0.04250821890564316, 0.00026104599889207995, 0.013374529160680017, 0.0030813728387436715, 0.002609254375684964], [431.44905245335775, 409.3579095242916, 327.53676051731384, 625.0400752132805, 671.7573837873938, 610.8525314786733, 451.62671753748936], [0.9993123393766267, 1.0011223410015366, 0.9990362857955626, 0.9990049193611572, 0.9991578246569383, 1.000876651336263, 0.9999020364507392]], Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.2742630166772164, 0.5187477714436857, -2.6744295887511704, -0.004541123440349259, -0.9713613658882078, 0.04789818287555779, -0.026834177532092694], [0.4191256839411058, 0.9927144910514336, -1.2688697075775894, 0.004910940686006405, -0.48892615526828653, 0.133285126051701, 0.02401308619027333], [0.5302620725302598, 1.5021331315507307, -0.6284544679585757, 0.009516366993248808, -0.23507664694666705, 0.1799343558629096, 0.0577894657873659], [0.70048551033792, 2.3370377658766923, -0.22737752294826297, 0.015117080768477264, 0.011164588728015585, 0.231236176457236, 0.09226478673058389], [1.3200563813167254, 6.35152635354143, 0.36371778175500946, 0.025236165341187222, 0.47770524163283645, 0.33367523149697964, 0.17514352233954192]], [0.839343648769439, 0.6583089434534756, 0.5147357839530853, 0.6703578570478269, 0.6689778057293405, 0.7801641019993146, 0.8054209760895413, 0.9499658063433932, 0.7604010914200402, 0.8627111518895707, 0.9807320168150722, 0.950901166314255, 0.5860965292280924, 0.6219347612439693, 0.7940813875304229, 0.5036060317238809, 0.7489850588348247, 0.6544975079171345, 0.7514871554935121, 0.5475163603814214, 0.7432374434297555, 0.775791487237771, 0.941130897144983, 0.7440808826681855, 0.9036407234144456, 0.9730874957140468, 0.8010205932823554, 0.792035758646571, 0.3907606236111884, 0.9626781926116746, 0.7083611129570034, 0.8136854911743305, 0.789136516485877, 0.7294111842620729, 0.800218162863719, 0.7383256116352549, 0.8669638170387185, 0.5844981957316215, 0.6523400207366342, 0.9072055423097874, 0.7820198304465544, 0.7062638776055155, 0.722216382442747, 0.8726256572826889, 0.7659954541794471, 0.7002907329040482, 0.7481126439418372, 0.5454494466113793, 0.8366630003000709, 0.5926160582955002, 0.7861436644046155, 0.7887851333429904, 0.786012019642692, 0.6852918893687704, 0.6646182974667239, 0.7080703912378847, 0.8172574549315242, 0.7848105737594048, 0.9836374097796606, 0.9498218872722304, 0.5871012757006265, 0.8126359197667965, 0.8161827440109756, 0.9236994040921279, 0.6483128784287707, 0.9757843648646934, 0.8635173806111456, 0.5197269145594734, 0.7452657484936075, 0.9074450422724323, 0.7233895816021536, 0.9484698366998776, 0.9562640197551302, 0.6668833516703949, 0.8255004491356375, 0.8586699575460068, 0.6073222133617757, 0.6689916797792874, 0.8279630527783136, 0.6525731079562513, 0.587334821954496, 0.8192919066519293, 0.6867971127103457, 0.8955266423937325, 0.764960481904518, 0.7339765391010968, 0.7029267890242956, 0.5905075997176727, 0.5697479870475632, 0.8207129627688718, 0.9176870600293491, 0.8169329513649732, 0.9330263212003306, 0.7848797137274017, 0.6788275362135346, 0.5889701514858771, 0.852281613656884, 0.7265874728873692, 0.7800266670506968, 0.8462027650009415]), (Prior_TDist(), Cloglog(CRRao.Cloglog_Link), Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.5885103192108735, 2.1449284285853, -0.832659287888796, 0.008333619227867198, -0.2501168965582646, 0.14415771284012635, 0.046819270022451544], [0.2784081385799435, 2.5156481024862116, 0.7476781325350763, 0.007002083469970085, 0.32570355346497376, 0.05716888627083634, 0.05057335224275345], [0.008804038370404178, 0.0795517779533712, 0.023643658555120843, 0.00022142532131720684, 0.010299650709597439, 0.0018078389191097254, 0.0015992698199708564], [0.01385849712843685, 0.12808988842871913, 0.029219058778015464, 0.00019814016783813174, 0.010208349139657418, 0.002201800221856067, 0.00225742368496782], [475.0963111257973, 333.45582260250575, 461.0532897487925, 830.5738002937888, 720.9479800781676, 736.5061084782752, 534.8033041794229], [1.0016604639581423, 1.005042111471815, 0.9990081279560473, 0.9993044907263039, 1.000612532971151, 0.9990496537760541, 0.9990979556765377]], Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.26161440089218135, 0.5645425517000547, -2.5575583049295276, -0.00551176240187122, -0.9428645433390095, 0.03993729955915587, -0.041550428971545456], [0.40405980783802536, 1.0393523839238847, -1.2624650530027317, 0.003458157466939922, -0.4481375767045678, 0.10406414312002427, 0.010625281399836282], [0.5252021431692523, 1.5382674164309247, -0.6783064902058462, 0.008075432980733429, -0.2243228226235728, 0.1441383010604549, 0.04247200667204208], [0.6963232557092308, 2.4205768865154855, -0.29280646293744417, 0.012924334194373825, -0.035066652054037604, 0.18404474712054988, 0.08103280355049171], [1.2830960046724216, 7.600353847982888, 0.2575068926677904, 0.022189188363706897, 0.3561279432796764, 0.2561682300096439, 0.14977961331219783]], [0.8178675063505255, 0.6603000461613323, 0.551343669682282, 0.6701040814451745, 0.6644517204063249, 0.7640259207062556, 0.7827487851875785, 0.9412307337948038, 0.7407454979640553, 0.8429685442509549, 0.9791890433196347, 0.9430965798000416, 0.6019460852460407, 0.6342883190695621, 0.7699884704370866, 0.5447530730395491, 0.7323421994866831, 0.6619684220741276, 0.7606332156424844, 0.5754895634305498, 0.7346999216946216, 0.7543822286451758, 0.9311711892343157, 0.7256978318731991, 0.8842044700856984, 0.9699492409835416, 0.7841116754776901, 0.7705728905732414, 0.46659559822655794, 0.9569815872837241, 0.7051224352316284, 0.7907002544496746, 0.7869229841058143, 0.721995076515734, 0.8079005301002335, 0.7217160829485041, 0.8463366324464263, 0.6050518764674819, 0.6652094895071726, 0.8879300535131871, 0.7656184386785007, 0.7181916039926018, 0.7073765362838849, 0.8527221745856578, 0.7462803032706957, 0.6893113275097497, 0.7398691794178973, 0.5786185315720329, 0.8129370689691033, 0.6330985991020547, 0.7937631094503488, 0.7651805786890563, 0.7644322230007282, 0.6886001220949084, 0.6615334517209918, 0.6960080512717018, 0.7933702729955802, 0.7683454063229707, 0.9813217475021132, 0.9416205044503857, 0.6043173666460172, 0.7922721121970903, 0.7914460871188271, 0.908504926235029, 0.6540783573198022, 0.9748766147989328, 0.8458555342331405, 0.5553972150547775, 0.737557439105559, 0.8914815049803709, 0.7079408235785656, 0.9387395438305884, 0.944883295923175, 0.6895565489827794, 0.8051548610760331, 0.8366935195889754, 0.6235616335972012, 0.6912406449482446, 0.806927172134462, 0.6676798211805458, 0.6045517807784873, 0.7979146418673233, 0.6918488171274891, 0.890730813850045, 0.7544427314570393, 0.7247215037228603, 0.7128661086923663, 0.6100633971891007, 0.6028389336139132, 0.8012594342484254, 0.9101170179141106, 0.7937010879724273, 0.9199697519055798, 0.762388522417027, 0.68103787716242, 0.617483308989783, 0.8320297730504763, 0.7115231965571148, 0.758056174363283, 0.8241589491889174]), (Prior_TDist(), Cauchit(CRRao.Cauchit_Link), Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.7502813721338026, 1.7268753606626102, -2.110524833858577, 0.01757120775771965, -0.34117027231224156, 0.5852043931818921, 0.1254142136682717], [0.3464931882361981, 1.3489586012564487, 2.1998271754677896, 0.019939280043221687, 0.7439804858016438, 0.267135786328431, 0.12922100523137817], [0.010957076685598465, 0.042657816492452524, 0.06956464333213097, 0.0006305353984052114, 0.023526728698517563, 0.00844757529337911, 0.004086326980676885], [0.020698608005422447, 0.06114423501840871, 0.16146078888539311, 0.0011353679092219802, 0.02853633615848381, 0.014772390854109098, 0.007993179294700323], [283.25837061663856, 440.8563238505498, 170.79585365651855, 321.0907985011204, 438.889521653114, 346.1832138531068, 243.2247993456209], [1.001169213156436, 0.9990827949819434, 1.0020466023929482, 0.9994187439403873, 1.0017226586609576, 1.0034908941471417, 0.9994485616743725]], Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.30381507422273113, 0.48910370119420243, -7.2796084725688734, -0.016498601081874564, -1.996541180160363, 0.17194976515557484, -0.09123425714411301], [0.5167930880648993, 0.933805705774434, -3.376774068893896, 0.004663333644445089, -0.7251940012090379, 0.40070992427682794, 0.0361702451437159], [0.6776650958133821, 1.3406001322129673, -1.5365374318546738, 0.01551368008757849, -0.21621711851307002, 0.540749298244189, 0.11074689371173715], [0.9005610959733523, 2.016927624126062, -0.4756802102152989, 0.029883881014020425, 0.1091136171468545, 0.7386679282696835, 0.19663665386823723], [1.6937823713664946, 5.614602477597119, 0.6170417375528902, 0.06151910145776143, 0.96179364910429, 1.1878402343009602, 0.4249407279741932]], [0.8585130230445192, 0.6984814275951631, 0.46423185317756077, 0.7525788915749827, 0.7455856187101831, 0.8103696697708263, 0.8560630811928868, 0.9302046175377655, 0.8306413508179948, 0.8582529238769706, 0.9462141227359722, 0.928601373545497, 0.6130465773825823, 0.5591108080719657, 0.8516723586465073, 0.45224149484914705, 0.8082456838515457, 0.6448626003194585, 0.7292473037785664, 0.494382065964623, 0.7202597058875103, 0.8434936128919434, 0.922601314617142, 0.8095677866286928, 0.8997374526213462, 0.9404956679044503, 0.8520593206977468, 0.8445622826750007, 0.31666956539944946, 0.9395311963040266, 0.6905144109343645, 0.8611282184683751, 0.8315819089317724, 0.781980540859938, 0.8249688373387241, 0.8111428009056992, 0.884254411147146, 0.6557711392898993, 0.6000324656145923, 0.9047238527022128, 0.79822126075052, 0.7158650982502283, 0.8064814280150439, 0.8860301237274866, 0.8414691638201508, 0.7845628308538114, 0.7641250673480158, 0.48804420722743286, 0.8805661704099982, 0.5218346465546734, 0.7984266030701068, 0.8369361355043138, 0.8270908837099572, 0.6224267857068391, 0.7307902034787751, 0.7870736531869285, 0.8621415165330417, 0.7997948289743289, 0.9515640181900559, 0.9259638646173196, 0.5515789315302401, 0.8471815234264495, 0.8525151258565778, 0.9146917777837023, 0.7033823344430299, 0.941556331762566, 0.8697868437405594, 0.5114638012082402, 0.7122573974954641, 0.9088582528028784, 0.7863672219220335, 0.9249035189634136, 0.9231816623711485, 0.6412785218145222, 0.8652946363686429, 0.8837846005370379, 0.5895951572250072, 0.6036123478830198, 0.8586162842668577, 0.6711104400632598, 0.5379750351604633, 0.8687787024492336, 0.6715213176815757, 0.8959059430052256, 0.7652448331241125, 0.7960437132462491, 0.6924743769078756, 0.6089733544732675, 0.49215047992467637, 0.8654325092353566, 0.9052051775056856, 0.8641562984825265, 0.9205194078888598, 0.813340398068727, 0.6379363691117412, 0.5232110352483729, 0.867085980296144, 0.8033007577367525, 0.8503067041589419, 0.8746194903417255]), (Prior_HorseShoe(), Logit(CRRao.Logit_Link), Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [6.9336810922351315, 14.171914219031612, 1.081044042888556, 0.20061000334911705, 0.9653448394005423, 6.964656681960666, 0.810491104139185, -25.649905696499815, -2.1728864540021386, 0.7887667436052198, -2.1017631778565344, 9.370785251664707], [0.03358221023690358, 0.037964509102276105, 0.0031710140491672525, 0.0007256774558593315, 0.001861539279165776, 0.0303047010202353, 0.004577889822918087, 0.002652782422632593, 0.006358176258025836, 0.0030990083480993925, 0.004875789437204131, 0.013301531347814791], [0.0010619627321123803, 0.0012005431901338682, 0.00010027626887761679, 2.294793607151789e-5, 5.886704076031882e-5, 0.0009583187903437197, 0.00014476558717726044, 8.388834592378402e-5, 0.00020106318740168084, 9.799924867870021e-5, 0.00015418600012955577, 0.0004206313542722411], [0.005856269958245466, 0.0065839150921814405, 0.0005464245983718409, 0.00012820156913809637, 0.00031043245521726137, 0.005389613119184736, 0.0008126500382185469, 0.0004411995847856651, 0.001135731438972912, 0.0005400442839895203, 0.0008435836867896051, 0.002369118041877817], [2.538844007158218, 3.403126498315656, 4.208824528289169, 4.349661305846068, 8.627025727424792, 2.2798078516632723, 3.109935494043027, 4.504341365548664, 2.1492844134440365, 4.427898539398708, 5.809693105005105, 2.161168082906952], [1.9983392410413603, 1.4351924769545032, 1.3412320867723269, 1.2073635999131567, 1.0365491614798976, 2.9494118627814165, 1.4264417421173774, 1.2463492128953753, 3.2924022001686386, 1.3299163718363698, 1.078778349451633, 3.1335868695807765]], Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [6.8592362048653746, 14.100442699537647, 1.0764988675940503, 0.19965449243801633, 0.9619252615627781, 6.9148419358917765, 0.8022789075352156, -25.65319164169214, -2.181638018266752, 0.7824541707696976, -2.109695041595812, 9.351931963373344], [6.913677795343547, 14.149116758361433, 1.0788076430837572, 0.20002337523900324, 0.9639014860680817, 6.935756906400983, 0.8058619313595987, -25.651797410002494, -2.180140499008356, 0.7864946778159201, -2.105132896901869, 9.358490998385324], [6.9413132443840375, 14.180393067322324, 1.0806881604017526, 0.20043669683448762, 0.9654206876970138, 6.976665862974761, 0.811684287300704, -25.650409320476307, -2.1738000831373308, 0.7892006772612792, -2.1028609820839352, 9.373309834727953], [6.957073310140954, 14.192633579461987, 1.0819257103695579, 0.2011044738976826, 0.9667657642051208, 6.990747518537329, 0.8137161217080382, -25.649000260513645, -2.166557946541215, 0.791604274850944, -2.0983026687101116, 9.384930747342686], [6.981303409538443, 14.235173595771943, 1.0891580755506494, 0.20210401180277326, 0.9684636177234122, 7.008722809717525, 0.8170836970757418, -25.643000060879828, -2.1641291647351366, 0.7932496271333795, -2.0914376443357785, 9.388596049685496]], [3.446600571143725e-14, 1.29135153967773e-20, 0.9999999999999999, 6.341974330365796e-18, 0.999999999998751, 4.819626785953505e-28, 0.0002480066249827611, 3.834130022842887e-32, 0.9999505371665879, 1.327305124247975e-19, 0.0003980791240646635, 1.2066243836621567e-19, 0.9999999999999999, 1.7896149326751556e-19, 1.0, 0.8815943651882961, 9.953278472534011e-9, 4.917246408762677e-41, 1.2181998135059625e-20, 0.9999965185687035, 7.070330700409758e-27, 0.9999998088725053, 6.20737269117245e-12, 0.9999999999999999, 0.9999936719856114, 0.9999999955804713, 6.888012320217011e-38, 1.1758700851266842e-7, 0.8674324867733768, 0.03329790445012048, 3.26982837897627e-33, 0.00017272373166096888, 0.9999999988795202, 6.5516246666294716e-43, 3.236757670371242e-61, 0.9986625052824096, 3.815975811484128e-18, 9.689445564074325e-8, 8.199244506403054e-59, 0.9999999999999981, 2.0779510466960943e-19, 0.9999892790936059, 0.9999999999999932, 5.680552907139898e-21, 0.9999933015765154, 0.9999999999999318, 5.256749205321162e-47, 1.1506088756855039e-29, 0.9999999991862043, 1.071811123745166e-11, 6.896591331279803e-46, 1.0, 0.9999999197632607, 2.856565949815012e-38, 0.9999997556301541, 0.9999999835747672, 0.9993790971833268, 2.3487750360090687e-20, 5.4341461244621845e-22, 6.431133998488141e-9, 0.9999997635856104, 1.903434937039377e-21, 1.0, 0.9999999999851616, 1.9546001849057566e-27, 0.999888365166507, 1.0515401069865752e-38, 0.999999984755811, 1.6438021042922532e-30, 2.0201164807092603e-18, 1.0, 0.9999999825020157, 0.005852304185409472, 6.153633604174925e-12, 5.510251673375439e-26, 6.557100739238367e-10, 1.1349986419383778e-29, 7.743451229892868e-7, 7.515147891292813e-21, 3.551742108538617e-69, 1.0, 2.832644910460738e-14, 2.10294551231884e-58, 3.878519230420295e-12, 2.2262888833100303e-40, 1.2904781697478462e-37, 1.0, 4.279330890080256e-23, 2.836067404423096e-59, 2.103397532195943e-29, 0.9999999999965024, 0.008945652596862077, 0.9999999999999999, 1.0, 5.374312423503198e-31, 2.560916888577437e-61, 2.699921769885214e-23, 0.9999981248005133, 0.999999999999993, 4.4160917535099053e-14]), (Prior_HorseShoe(), Probit(CRRao.Probit_Link), Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.1503203849487943, 0.0033356091582737576, 1.40819294490727, 0.25102033893553044, 0.15460115762856727, 2.279259088961983, 1.3881265844040405, -1.7316607289704145e-5, 0.1413997718892134, 0.025368272458845164, 0.0018752457928542582, -0.6267151590835331], [0.0006524208981202922, 6.384824930715226e-6, 0.0037674788700442787, 0.0003740444878872151, 0.0007880200352462772, 0.012727370141420285, 0.0036148932709711284, 0.0006114149862611687, 0.0016138997921971063, 0.004823184736516985, 0.0036499547813109486, 0.028091695496644465], [2.0631360311527904e-5, 2.0190589242486878e-7, 0.00011913814265897431, 1.1828325279548623e-5, 2.491938153224401e-5, 0.00040247478270907436, 0.00011431296234685, 1.9334639521458503e-5, 5.103599258615299e-5, 0.00015252249343152772, 0.00011542170465564375, 0.0008883374110529146], [0.00011086073122140705, 1.0359743906791565e-6, 0.0006536211795537331, 5.741711879791833e-5, 0.0001378296661223338, 0.0022735020835943664, 0.0006082683021211153, 7.778109905106973e-5, 0.00028068224983552497, 0.0008377048335790067, 0.0006369636591137453, 0.004956341555948259], [3.641373308075606, 9.50187179258495, 4.55561361952457, 18.385542658864235, 2.3467564917426085, 2.445049758934162, 8.98402849338773, 34.07560026235551, 2.3627646943420437, 2.628898778216141, 2.935618148220697, 2.3405432518354954], [1.284341936305109, 0.9992756439029266, 1.3399337463069916, 1.0119779325495857, 2.64689241224391, 2.1853672186084294, 1.014262026981332, 1.0235334995107064, 2.189613311553958, 1.7847318264524903, 1.6368816057407076, 2.203647029835029]], Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.1484750438190306, 0.0033241992722209198, 1.4024897600074244, 0.2502484825608311, 0.15357358617589253, 2.263547066573738, 1.3828802894311145, -0.0012152547995550645, 0.13804994060537198, 0.012576905973600757, -0.00477697954119565, -0.6666217516286573], [0.15023838540970613, 0.0033309773858135588, 1.404538248125039, 0.25075693000707566, 0.15390726296834686, 2.2691986392491685, 1.3856452025735126, -0.0003990051825442648, 0.14034505937080133, 0.022061877848073626, -0.00022175813229944068, -0.6482813934226531], [0.15053657541669296, 0.0033355620696791984, 1.408896057657873, 0.251007036570865, 0.15445003610869, 2.273188500456895, 1.3870596079911852, 1.4585020164336103e-5, 0.14163743440736967, 0.026488596877789115, 0.001654530739235162, -0.6305501169030349], [0.15069431591445648, 0.0033401453796662807, 1.4114569056927966, 0.2513018124340968, 0.15529397542797574, 2.2887773979803976, 1.3893636221406593, 0.0003961784532256399, 0.14266154924965307, 0.029115623102271934, 0.0043387084174454985, -0.6098659550345357], [0.15119341368275804, 0.003348202931761655, 1.414303212392493, 0.25169136301931033, 0.15618532866175905, 2.3044285326569574, 1.3975336697278884, 0.0011268617750185008, 0.14380560909848433, 0.0316979975377622, 0.008686617632434208, -0.5683002040140465]], [0.43508300643343073, 0.8454301074457689, 5.541733904053325e-5, 0.669173038624846, 9.983955739445662e-5, 0.9779332349418082, 0.04539800572159702, 0.9583831318775324, 0.002775103876898593, 0.7506869542134652, 0.004953018423049174, 0.4834167230544736, 1.8311879045954437e-5, 0.8499857125138413, 3.40593878300645e-7, 0.029527820368265574, 0.18932094531514254, 0.999983823521334, 0.8447459718346709, 0.005884677756880796, 0.9785930190314934, 0.0007510031347912121, 0.14748767140075467, 8.153345318957304e-6, 0.0011965005142833222, 2.5099268099323447e-5, 0.999406457971693, 0.12510800555145216, 0.03620438098426316, 0.002043584918985265, 0.9985812621697693, 0.045463711625239475, 0.00026459541323153824, 0.9999879229192272, 0.9999999999940052, 0.006103469488648149, 0.5877579202517663, 0.1487214597898676, 0.9999999999973372, 7.008753503289139e-6, 0.784649177800914, 0.0038082080693232446, 1.9279605306200382e-5, 0.7371827082496072, 0.001343498328933603, 3.383766810114779e-5, 0.9999996054879042, 0.9943016891786333, 0.00010678165730867797, 0.4184968884655019, 0.9999980697499659, 1.4399491385697863e-8, 0.001273999255389905, 0.999933980037464, 0.0017780819007878871, 0.0007357623918331472, 0.0037463532686189405, 0.8225739579024214, 0.3819154124192341, 0.06738174190401058, 0.003550755833705214, 0.8176667801154054, 1.8989867464600195e-6, 2.5795523332494588e-5, 0.9757781841873617, 0.0003098450809070373, 0.9996751675906053, 0.001450234092134241, 0.9950559366990214, 0.5027509295600956, 1.584553796992712e-8, 0.00011780226334233362, 0.018204077744310487, 0.39857916592193876, 0.9253485636602305, 0.15660013996861613, 0.9932639287958294, 0.18101795259049083, 0.7791836815267592, 0.9999999999999999, 1.2626150420568309e-8, 0.35978689864139496, 0.9999999999929443, 0.22402681854771786, 0.9999633342138188, 0.9996367506303366, 1.523802291395841e-11, 0.9209472276868576, 0.9999999999988837, 0.9726062991421138, 3.5853971521847336e-5, 0.024969544145289707, 1.2845551346400075e-6, 7.474998800744309e-13, 0.9965834867654987, 0.9999999999998521, 0.8698067181933815, 0.00180515833725974, 1.1005460968199393e-5, 0.37149623024142625]), (Prior_HorseShoe(), Cloglog(CRRao.Cloglog_Link), Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.49938034296556555, 3.1341780654069478, 0.5044753776253187, 2.213113530015676, 2.728438672604241, 0.7819500543724918, 0.5141540697461959, -0.12126938355507182, 0.00220629037370702, -0.041860659065694174, 0.09506447079534726, 0.010913203865338757], [0.9070083153956818, 5.7776181667878355, 0.89312262875339, 3.3568390933114913, 3.068706621959411, 1.0315325614207411, 0.7043213157409096, 0.304157815464478, 0.0043848781539625285, 0.12929990827016546, 0.05222067989237106, 0.024183535982942858], [0.0286821213336272, 0.18270432857816157, 0.028243017366977024, 0.10615257273558806, 0.09704102396233018, 0.032619923747170765, 0.02227259562347878, 0.009618314650089351, 0.00013866202228836067, 0.004088822113845649, 0.0016513628942244909, 0.0007647505558273836], [0.05379890721009647, 0.39690618961630203, 0.07873940282421599, 0.24329828863079941, 0.30284549929619897, 0.04715004455874405, 0.06514337214902108, 0.029455251104716692, 0.00025896517147007284, 0.008209727078060941, 0.004090743321338047, 0.002140737538881104], [281.89386289698433, 192.34430323690322, 137.05987652208097, 80.89431688729647, 107.23386699904952, 395.36155213265323, 126.06691430249137, 90.50400481029259, 273.35931428198086, 204.87081020033148, 97.38185283684591, 103.1685740447791], [1.0094816019633999, 0.9990146101724703, 1.0057740554127057, 1.055337487753451, 1.0106537226264831, 1.0029801855165534, 0.999170650959877, 1.000417490659472, 0.9999490325229533, 0.9991649002214915, 1.0275297633534826, 1.0019974194000472]], Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.020811592351278756, 0.24677602886962846, 0.007366066570468754, 0.13987876045091474, 0.16888340066359386, 0.026562771239417027, 0.013041747959051829, -1.0152788200197067, -0.0053123566381332015, -0.4041702889457368, 0.0020049303983064814, -0.025169800050501394], [0.10323792452359334, 0.8442977810476885, 0.07171603081014814, 0.5054959734123442, 0.8194027611414012, 0.23644407975673074, 0.12655242810004852, -0.1320779865446584, -0.000413375326448082, -0.0812183344454586, 0.05580577763164751, -0.003426403366066902], [0.26420938902021723, 1.5312461604349437, 0.23580865862293243, 1.1004357184563922, 1.7429746505639963, 0.4953394496003891, 0.2749936797732949, -0.018348681560105468, 0.0013962541450318747, -0.007115071945626392, 0.09153800435648846, 0.005561739590034389], [0.5709673125374127, 3.314405381693244, 0.5564104188346592, 2.361222886171013, 3.432953121839273, 0.9381986998814547, 0.5976737898100065, 0.01831970898227568, 0.004633867211962302, 0.01827007001446272, 0.13298104258269877, 0.022941849519477277], [2.4126108166888605, 14.592017495756682, 3.2752274863537454, 11.470063956002303, 12.884939948001287, 3.5292473744255046, 3.019361691148667, 0.20211715523693444, 0.012225219864494064, 0.13607024488595948, 0.20124518313129214, 0.07168452909557607]], [0.7864844936670636, 0.7174977175059318, 0.6626404752479927, 0.7514773288854699, 0.736136989551039, 0.7539560198701463, 0.7946241927994679, 0.9070023387700976, 0.7764932782321157, 0.7822483426309005, 0.9368232089403151, 0.9014344367585, 0.6989982349349745, 0.6765172731287008, 0.7909662898781326, 0.6652339475567419, 0.7560759058234194, 0.7042707342952715, 0.7184991198488198, 0.6677444360122112, 0.7126296708140146, 0.788095890578668, 0.887637951813801, 0.7576741384164282, 0.8378598414348367, 0.9235229062768319, 0.8021310656918645, 0.7826981258661934, 0.6312016411103943, 0.9253491928046879, 0.7070699808211511, 0.7996987604124223, 0.7738861056779355, 0.7544497229603989, 0.7904209700442819, 0.7624370657087001, 0.8231063752128545, 0.7322547602344974, 0.6954336811466933, 0.8487336541729992, 0.7431728828991724, 0.7192081742230888, 0.7662821601054418, 0.8248892662151666, 0.7922689435236614, 0.7539754399833298, 0.7374354820221729, 0.6750800719037556, 0.8281471754374548, 0.6755781864540972, 0.7601867019177091, 0.7722684625213568, 0.7617818373262221, 0.6894091448299099, 0.7276346584459313, 0.7517055616116233, 0.7985283805784884, 0.7440150722995326, 0.9480935088124736, 0.8927916387839366, 0.6765540425289939, 0.781279914119697, 0.7825366698874182, 0.8700221028301667, 0.7290597548122322, 0.9198967005031661, 0.8018833430522093, 0.681390078570611, 0.7104429831960697, 0.8660829839856298, 0.7454039525744935, 0.8879651751863928, 0.8751800659844248, 0.7024904919843252, 0.8071820185329855, 0.8248463226724662, 0.693386781106756, 0.6857657240033943, 0.792169731720637, 0.7328207252734513, 0.6657957961279004, 0.8153430268864029, 0.714177080505613, 0.8342859480835553, 0.732667726606446, 0.7628864352238319, 0.7052422446613478, 0.7051621493082144, 0.6768960450810662, 0.8118878297338984, 0.8409945480721003, 0.8036210219160265, 0.8825909998637432, 0.7533703807314508, 0.6933991943410123, 0.6842276902488605, 0.7971715007010699, 0.7592802427283679, 0.7983930091577666, 0.8116820508200324]), (Prior_HorseShoe(), Cauchit(CRRao.Cauchit_Link), Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.8231447794119616, 4.090592438417472, 0.5139639049003325, 2.087991711473817, 4.143133189087861, 1.0462094970773548, 0.8623258688928956, -0.8090953737093335, 0.00886071620316475, -0.08951340615584857, 0.4589412133357218, 0.04469887717878411], [1.1082630047249804, 6.640729763445663, 1.186906572403712, 6.175995634358217, 5.439568396112675, 2.0736174461880235, 1.4724228097243743, 1.583261036900546, 0.014615878499350398, 0.3425244994885282, 0.2632426511445944, 0.09609939930963292], [0.035046353414328886, 0.20999831378159464, 0.037533281386192816, 0.19530213023828427, 0.17201425619985053, 0.06557354125815792, 0.046562097575137455, 0.050067110072056206, 0.000462194660622311, 0.010831575727929282, 0.008324463549180488, 0.0030389298359245276], [0.06748867428400787, 0.3013171860594603, 0.058363838344083104, 0.4506396504809824, 0.3920371645910448, 0.10703737613195087, 0.07326860918550708, 0.151977903088657, 0.0010333401658810797, 0.02273536143428113, 0.019728412541897503, 0.008933928092755596], [300.7390223390249, 300.3628714774444, 369.2019033828815, 123.8113418163584, 153.93708319436055, 268.0280477854494, 378.66336399489984, 76.18029103672652, 155.22891351606253, 181.79059079670404, 181.01708115990692, 81.41036432901198], [1.0057333058912243, 0.999189131388539, 0.999306576787934, 1.0168739966005047, 0.9992682665295037, 0.9990249936762905, 0.9996693418541719, 0.9990323306483477, 0.9995844485420049, 1.025953625880032, 0.9990523713666738, 1.0021431255175504]], Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.027053761230205215, 0.17966164888925878, 0.008568279932747083, 0.09312105177223173, 0.3283496074347208, 0.019847205600449957, 0.037293119901867115, -5.69906316658667, -0.011889555082369658, -1.1285548797076097, 0.004814776301637772, -0.06940228366493721], [0.18460400576263586, 0.9839612024914759, 0.0777790859508874, 0.3905254436050684, 1.1091424021321425, 0.17722441837392713, 0.19306000581866642, -0.9199420495869294, -0.00037885176391117854, -0.12480733578692196, 0.28384349980363727, -0.006970804149313715], [0.4347153972874934, 2.048464974719556, 0.20491419488554546, 0.8170307116151436, 2.1674568937569085, 0.46225508654142466, 0.44721263801476485, -0.11033068446551865, 0.005450574597031589, -0.011193717235962982, 0.43159127660204955, 0.01521071192727118], [1.0339318116884808, 4.847904508420232, 0.5559788101336605, 1.776460567922432, 4.633504576230793, 1.0273175751426185, 0.9976201766989873, 0.012339549123851492, 0.014258089230739806, 0.04264071571950733, 0.6131020721909968, 0.06885014699747527], [3.839075878416281, 19.182969331304196, 2.686586490753366, 12.246466813651834, 20.768136314590596, 7.012783297403015, 4.286712337041011, 0.4000633427969081, 0.04735977407366918, 0.3740482282532198, 1.0672741527652525, 0.3053871509949981]], [0.8247599515914813, 0.7167430874265438, 0.5421379154277151, 0.7818925021460863, 0.756225211586418, 0.7819160197361195, 0.8364689960863534, 0.9097390856492914, 0.8172221755233559, 0.8115583001304121, 0.9237646705860116, 0.9063229203019124, 0.6644327521634226, 0.5678764145136946, 0.8298571662943138, 0.5560940350944251, 0.7912160267700153, 0.6690776790773642, 0.6901910974877457, 0.5547133361916169, 0.6654138355334631, 0.8290358962862282, 0.8988868758658257, 0.7903672368062629, 0.8685491377095056, 0.916254661200635, 0.8433650423048833, 0.8246755414262166, 0.45961782484577557, 0.9175697231449529, 0.6618314667373162, 0.8410829014479204, 0.8063824122400525, 0.7867550908057869, 0.8218768723493464, 0.800210401240291, 0.8601076594478032, 0.7403289715647515, 0.6286511357817572, 0.8753707295865295, 0.75529352352902, 0.7046655626302916, 0.8026175989449321, 0.861357679214918, 0.8324478615852379, 0.7858288652180333, 0.7476338629572897, 0.5842006970576445, 0.8616281176896167, 0.5716699817193595, 0.7850334726695822, 0.8063895706217127, 0.7938435216375379, 0.5954543790823505, 0.7402668242538594, 0.7840330018909398, 0.8393239971352647, 0.7564125830611216, 0.9312621854694045, 0.9014010942348344, 0.5813006700030064, 0.8217520404550354, 0.8193277211464846, 0.8881787278769325, 0.7426718578806709, 0.9140792254510076, 0.8400660119792583, 0.6137831489121661, 0.6540121542875439, 0.8875534619890054, 0.7673454167094812, 0.8981309771468806, 0.8909799186557442, 0.6569968362589339, 0.8481914244960606, 0.8613094357577644, 0.6425242162822171, 0.5909352502300551, 0.8334266272759051, 0.7362170854411434, 0.5368116770124871, 0.8542605592541, 0.6883862027413744, 0.865123864733196, 0.7284237634325239, 0.8000871863890245, 0.6524542895705653, 0.684739407732161, 0.57959894300765, 0.8519461283213029, 0.8680007427737322, 0.8443788161084101, 0.894591485279941, 0.7674097074191889, 0.6174707464681225, 0.6024878340655145, 0.8364734985370211, 0.7955028655984513, 0.8370081223684753, 0.8513487759286564])] + +for (prior, link, test_summaries, test_quantiles, prediction) in tests + CRRao.set_rng(StableRNG(123)) + model = fit(@formula(Vote ~ Age + Race + Income + Educate), turnout, LogisticRegression(), link, prior) + + #Split summaries and quantiles into symbols and numbers for testing equality/approximate equality. + model_summaries, model_quantiles = describe(model.chain) + (model_summaries_symbols, model_summaries_nums...) = model_summaries.nt + (model_quantiles_symbols, model_quantiles_nums...) = model_quantiles.nt + (test_summaries_symbols, test_summaries_nums...) = test_summaries + (test_quantiles_symbols, test_quantiles_nums...) = test_quantiles + + @test model_summaries_symbols == test_summaries_symbols + for i in eachindex(test_summaries_nums) + @test model_summaries_nums[i] ≈ test_summaries_nums[i] + end + @test model_quantiles_symbols == test_quantiles_symbols + for i in eachindex(test_quantiles_nums) + @test model_quantiles_nums[i] ≈ test_quantiles_nums[i] + end + @test predict(model, turnout) ≈ prediction +end \ No newline at end of file diff --git a/test/numerical/bayesian/NegBinomialRegression.jl b/test/numerical/bayesian/NegBinomialRegression.jl new file mode 100644 index 0000000..def94ae --- /dev/null +++ b/test/numerical/bayesian/NegBinomialRegression.jl @@ -0,0 +1,25 @@ +sanction = dataset("Zelig", "sanction") + +tests = Any[(Prior_Ridge(), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [2.033532670737515, -1.1008734267536047, 0.001094208900534297, 1.060343992060707, -0.15786110457055455, 1.294586610685846, 0.15899662938152478], [0.4163550751663772, 0.5387551190744174, 0.16359849394901196, 0.13063067998997502, 0.544934602163948, 0.32163155599374066, 0.2913315443767893], [0.013166303528963611, 0.017036932773503852, 0.005173438626521523, 0.004130904810649026, 0.01723234518675796, 0.010170882843242014, 0.009212712344850738], [0.014431455186184227, 0.03490924087544598, 0.009539762615352351, 0.0073586244671434336, 0.021416158364498575, 0.01198412587278611, 0.014298748706220573], [602.6988983631668, 216.89217370373092, 304.5593788325469, 370.31036525954903, 884.5494839344138, 734.19899146768, 426.85611276244776], [1.002775324101858, 0.9992263257947018, 0.9994528685133326, 0.9994210232935488, 1.003293315238965, 1.001588120186786, 0.9990330235591159]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [1.3742199064673777, -2.175983136461368, -0.30259410067029413, 0.7923410749555616, -1.15266343803402, 0.672379511751853, -0.4258618187125221], [1.7265399691843968, -1.4541340765262998, -0.10872569260603446, 0.9727621430991229, -0.5149821997350503, 1.0801074847361716, -0.037437662518782916], [2.005693417620672, -1.0943526473814809, -0.000546879754740031, 1.0539332226347504, -0.16705533382365337, 1.2829999691714682, 0.14966780918655453], [2.268622687911495, -0.7251137172909272, 0.11031113525265579, 1.1496722819927512, 0.1969711534261444, 1.5037143547105631, 0.348429895713112], [2.9703506336490832, -0.08494604869249095, 0.3230954997804491, 1.3158628734694895, 1.0098639187508067, 1.93531136556599, 0.7325450182444838]], [22.79273367298059, 10.581746802932752, 0.9868233460913254, 0.9868233460913254, 0.9868233460913254, 0.9868233460913254, 2.7991113722871277, 0.9868233460913254, 3.3499195503093064, 2.826332963271958, 1.1542620442281972, 0.9815462363508761, 8.219200484970807, 7.82639187571211, 30.428512082599703, 1.1542620442281972, 23.938664799345837, 8.233047699978815, 1.161395545692532, 30.41157292698473, 24.39047761169405, 1.1542620442281972, 0.9860663773398379, 1.1542620442281972, 1.161395545692532, 8.117616872689192, 0.9815462363508761, 0.9815462363508761, 1.1542620442281972, 88.52228560524662, 1.1542620442281972, 1.1542620442281972, 1.161395545692532, 1.1542620442281972, 2.8454233856755087, 10.157057954781452, 1.1542620442281972, 1.161395545692532, 1.1542620442281972, 2.826332963271958, 2.7991113722871277, 2.826332963271958, 0.9868233460913254, 2.826332963271958, 1.161395545692532, 1.1542620442281972, 0.9868233460913254, 3.3499195503093064, 1.1775395155173547, 1.1542620442281972, 0.9815462363508761, 0.9868233460913254, 1.161395545692532, 1.161395545692532, 1.1542620442281972, 0.9815462363508761, 2.7991113722871277, 2.826332963271958, 2.826332963271958, 30.428512082599703, 9.856135877709901, 3.7446412244441656, 31.262232059339293, 3.3444210972984827, 8.233047699978815, 3.3499195503093064, 30.41157292698473, 0.9815462363508761, 0.9815462363508761, 8.219200484970807, 10.581746802932752, 3.3444210972984827, 8.219200484970807, 3.3499195503093064, 0.9868233460913254, 24.39047761169405, 1.1542620442281972, 8.219200484970807]), (Prior_Laplace(), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [2.115746221467821, -1.0085304000322868, -0.024793873457989956, 1.052113237721877, -0.15281078410963092, 1.2861727977860324, 0.1315838275502168], [0.444317146572935, 0.5100779372829306, 0.1553736410579891, 0.1304886934336986, 0.5179422166029028, 0.309602715205377, 0.2633892721176925], [0.014050541866373516, 0.01613008066014579, 0.004913345940966994, 0.004126414801499454, 0.016378771008214516, 0.009790497498214368, 0.00832910011145789], [0.015400959156496571, 0.025035928984897454, 0.006364771418099774, 0.0055499273853244074, 0.01830633553491673, 0.011305558519001072, 0.011398283738992612], [961.8068296426745, 289.31286847687977, 476.0465737689456, 342.31076761645255, 630.1413205466191, 576.8927212725212, 491.5701088764228], [0.9990471284728348, 1.0107782460910208, 1.0043226381063586, 1.0074870099846636, 1.0001792540353789, 1.0023363596066366, 1.0014486571509589]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [1.3969677082291738, -2.043238449153774, -0.323027333075843, 0.8076640531959224, -1.188833586544745, 0.6786523733746004, -0.37860471700737597], [1.807381901702506, -1.3326115352982049, -0.12809131953879602, 0.9677356465114804, -0.47381777630050265, 1.0819399486140817, -0.04624922600317495], [2.0634599193289462, -0.9807961456616323, -0.02712304511261301, 1.0496005995125035, -0.1479827274420805, 1.3002939367043198, 0.1338983900276345], [2.3653463693004424, -0.6652948960508089, 0.07414104647607792, 1.1381081154967263, 0.17431616834199476, 1.4829897153823994, 0.3185535020128706], [3.127242300236061, -0.03973942674928191, 0.28483293811265603, 1.3185939448386965, 0.8939989411810966, 1.8837588853277827, 0.6422300764476048]], [21.842690660989987, 10.491546187713833, 1.0011451666062938, 1.0011451666062938, 1.0011451666062938, 1.0011451666062938, 2.890144338154678, 1.0011451666062938, 3.4080264307792745, 2.8284473607497103, 1.1547110091441486, 1.0271423234863155, 8.611185000528977, 7.598607755677235, 30.555180941984126, 1.1547110091441486, 24.03386299433781, 8.126239707409537, 1.1995833289780449, 29.709135849004653, 23.744012407689187, 1.1547110091441486, 1.0027984444927398, 1.1547110091441486, 1.1995833289780449, 8.266130906904573, 1.0271423234863155, 1.0271423234863155, 1.1547110091441486, 87.5462865243563, 1.1547110091441486, 1.1547110091441486, 1.1995833289780449, 1.1547110091441486, 3.022737232740915, 9.48764259140515, 1.1547110091441486, 1.1995833289780449, 1.1547110091441486, 2.8284473607497103, 2.890144338154678, 2.8284473607497103, 1.0011451666062938, 2.8284473607497103, 1.1995833289780449, 1.1547110091441486, 1.0011451666062938, 3.4080264307792745, 1.1373216235463561, 1.1547110091441486, 1.0271423234863155, 1.0011451666062938, 1.1995833289780449, 1.1995833289780449, 1.1547110091441486, 1.0271423234863155, 2.890144338154678, 2.8284473607497103, 2.8284473607497103, 30.555180941984126, 9.544961497151702, 3.765320320205483, 32.175303131378584, 3.29313752935312, 8.126239707409537, 3.4080264307792745, 29.709135849004653, 1.0271423234863155, 1.0271423234863155, 8.611185000528977, 10.491546187713833, 3.29313752935312, 8.611185000528977, 3.4080264307792745, 1.0011451666062938, 23.744012407689187, 1.1547110091441486, 8.611185000528977]), (Prior_Cauchy(), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [2.0094006753134614, -1.0783031426860985, -0.007705360287027346, 1.0620737628858798, -0.1812239028434507, 1.2692785063041105, 0.155129494580377], [0.4379896498266224, 0.5491547015430198, 0.17018886483370643, 0.13403452182255737, 0.5430608937059215, 0.33021531538419435, 0.29505967953267775], [0.013850448850316993, 0.017365796446659254, 0.0053818444527304575, 0.004238543740508243, 0.017173093322773104, 0.010442325148848935, 0.00933060633002628], [0.016872252943793242, 0.025354657993944905, 0.00746806213280935, 0.0051535535028907785, 0.02393001647449409, 0.012757875676477548, 0.010641853088864171], [690.8506091769896, 373.3703249467553, 431.5667749484194, 498.3356369486145, 653.5156470425236, 624.9935891560417, 548.9335531347931], [1.0027797445897022, 0.9999898825167862, 0.9990525312059492, 0.9998523207814394, 1.0022328688644628, 0.9991333381239279, 1.0019497196850409]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [1.3394772056828173, -2.2001256961692923, -0.35580170491940927, 0.7906954835353238, -1.1899147594024528, 0.6384303792826728, -0.4274674043247846], [1.7025225426545096, -1.4241588808445835, -0.12202244637089002, 0.9789277116335982, -0.5662493688105141, 1.0495414572754527, -0.03879200034653152], [1.9367619301819505, -1.065136645302255, -0.002633962413880985, 1.060632718577568, -0.17983002223861852, 1.2672791516544284, 0.16758836074064803], [2.2640235306574343, -0.7256132060985478, 0.09459333651920342, 1.1385680750483327, 0.17779453374201154, 1.4883818477425885, 0.3464778569496805], [3.057737899656964, -0.006623806948886378, 0.32295299904721136, 1.333641513870227, 0.946710195102903, 1.9266408837311144, 0.7206483837080544]], [22.44717103779297, 10.319228041262255, 0.9987792933865607, 0.9987792933865607, 0.9987792933865607, 0.9987792933865607, 2.842170470596133, 0.9987792933865607, 3.3819183857181865, 2.8597528726343566, 1.1608166788581393, 0.9957664631574421, 8.428030099171059, 7.632118386749569, 29.818061558499185, 1.1608166788581393, 24.53994278807742, 8.348811755718236, 1.1689900378544236, 29.711147760604263, 24.860447872502753, 1.1608166788581393, 0.9492660142596131, 1.1608166788581393, 1.1689900378544236, 8.27007414233827, 0.9957664631574421, 0.9957664631574421, 1.1608166788581393, 87.19076679479595, 1.1608166788581393, 1.1608166788581393, 1.1689900378544236, 1.1608166788581393, 2.9063585746581633, 10.270256454457671, 1.1608166788581393, 1.1689900378544236, 1.1608166788581393, 2.8597528726343566, 2.842170470596133, 2.8597528726343566, 0.9987792933865607, 2.8597528726343566, 1.1689900378544236, 1.1608166788581393, 0.9987792933865607, 3.3819183857181865, 1.1865826824678183, 1.1608166788581393, 0.9957664631574421, 0.9987792933865607, 1.1689900378544236, 1.1689900378544236, 1.1608166788581393, 0.9957664631574421, 2.842170470596133, 2.8597528726343566, 2.8597528726343566, 29.818061558499185, 9.973453566855094, 3.6524334697813887, 30.803655610368335, 3.37023484214091, 8.348811755718236, 3.3819183857181865, 29.711147760604263, 0.9957664631574421, 0.9957664631574421, 8.428030099171059, 10.319228041262255, 3.37023484214091, 8.428030099171059, 3.3819183857181865, 0.9987792933865607, 24.860447872502753, 1.1608166788581393, 8.428030099171059]), (Prior_TDist(), Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [2.0087719694553687, 21.723275693420824, -1.0603921001593168, -0.010924319629375132, 1.0600743746499357, -0.1634507701019323, 1.2760358018944278, 0.14557727248579977], [0.4446447126783473, 116.42274238472413, 0.531067626707303, 0.1620199929418242, 0.1326168843545378, 0.5339791617887503, 0.32390556202381326, 0.2862001074655926], [0.014060900416147255, 3.6816103737875143, 0.016793832919751443, 0.005123522041805692, 0.004193714107554884, 0.016885903743200016, 0.010242793227921881, 0.009050442061762328], [0.01605445478715455, 4.961877300696243, 0.02831790516476742, 0.0067552225285367655, 0.007067754891635842, 0.01872517183364512, 0.011873094559665483, 0.0133077673654027], [819.9421245254008, 685.3525710037665, 397.19432125080925, 654.7909396750151, 449.7488717454727, 724.3697728075905, 679.5304341742395, 500.77239239509476], [0.9990368321033383, 0.9995653821717136, 0.9997445947372637, 1.000517502273653, 0.9991786134068427, 0.9996177674531592, 1.000636310505041, 0.9990501701578075]], Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [1.2837905529917615, 0.7203252535266488, -2.149810581006366, -0.319788405453442, 0.8079664719974506, -1.2265146036926224, 0.6212524898928934, -0.408416016229353], [1.6993426359690689, 1.9769876463017635, -1.4146112246971934, -0.12532881163621012, 0.9687717024448896, -0.5193544500929852, 1.04505406362882, -0.045256638937736626], [1.9650987632190473, 4.083024369067694, -1.0534054294621176, -0.002443792483762963, 1.0537583972651654, -0.16215077893969831, 1.2791591389112904, 0.14767021168402764], [2.2593685437401616, 10.19539229783917, -0.6975867389771262, 0.10267802408068039, 1.1518706296379464, 0.2064377554331681, 1.4909090759519856, 0.3432861540904206], [3.0105124565709627, 152.7864572123769, -0.015001656391347972, 0.3045962016975492, 1.3260649089201337, 0.8424151065435916, 1.895481816031963, 0.7080391441764226]], [22.868551319938586, 10.440144030915276, 1.0001050617674667, 1.0001050617674667, 1.0001050617674667, 1.0001050617674667, 2.8504912276208865, 1.0001050617674667, 3.381558276817852, 2.8500393924113503, 1.153067791965224, 1.0038952115282747, 8.431981355434884, 7.80783734785889, 30.12068876394059, 1.153067791965224, 24.216161207667284, 8.265613125155644, 1.1771070811690556, 29.789719201218308, 24.39851693816913, 1.153067791965224, 0.9770233828571585, 1.153067791965224, 1.1771070811690556, 8.235836915150063, 1.0038952115282747, 1.0038952115282747, 1.153067791965224, 87.11980168589733, 1.153067791965224, 1.153067791965224, 1.1771070811690556, 1.153067791965224, 2.9293181072099186, 9.891132830872701, 1.153067791965224, 1.1771070811690556, 1.153067791965224, 2.8500393924113503, 2.8504912276208865, 2.8500393924113503, 1.0001050617674667, 2.8500393924113503, 1.1771070811690556, 1.153067791965224, 1.0001050617674667, 3.381558276817852, 1.1603023629571954, 1.153067791965224, 1.0038952115282747, 1.0001050617674667, 1.1771070811690556, 1.1771070811690556, 1.153067791965224, 1.0038952115282747, 2.8504912276208865, 2.8500393924113503, 2.8500393924113503, 30.12068876394059, 9.755539734710318, 3.722235779454324, 31.31207219583962, 3.3248470138380726, 8.265613125155644, 3.381558276817852, 29.789719201218308, 1.0038952115282747, 1.0038952115282747, 8.431981355434884, 10.440144030915276, 3.3248470138380726, 8.431981355434884, 3.381558276817852, 1.0001050617674667, 24.39851693816913, 1.153067791965224, 8.431981355434884]), (Prior_HorseShoe(), Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), Symbol("λ[6]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.483786620596649, 1.5986905492247214, 0.5508274700957052, 2.0959637999518836, 0.9183200740843477, 2.5238657501534636, 0.7962819546787253, 2.3691793234731193, -0.6990501683431439, -0.0674612135309848, 0.9701272232022963, -0.08384998478488265, 1.2783670836495966, -0.0028303059336937655], [0.41570310079187767, 2.651366645349281, 0.838168013097675, 2.2973650164164487, 1.2789961782913062, 3.4791470759277994, 3.1672086220206244, 0.5404781363671292, 0.4639917239597129, 0.12207610212519049, 0.14174156007880664, 0.3659664397899759, 0.3109690414857972, 0.21097832706147265], [0.013145686288968788, 0.0838435751150361, 0.02650519983286495, 0.07264906068666098, 0.040445410420513306, 0.1100202907464662, 0.10015593070508497, 0.017091419364432116, 0.014672706631808134, 0.003860385305909235, 0.004482261689546243, 0.01157287496919197, 0.009833704528945105, 0.006671720504461928], [0.03076814097992791, 0.1407738213076522, 0.03417388758017726, 0.12749588093226225, 0.06309745518878328, 0.17552486202496853, 0.10307037300119179, 0.03348456496503327, 0.04033620085278141, 0.00839807718114376, 0.012867977700923135, 0.020138089826848768, 0.019261432609853118, 0.01687369599505406], [173.31045963334964, 419.8568476410847, 585.4781942372799, 359.7625661457261, 447.99045071256523, 369.0943640222232, 906.7497800709648, 160.72063130754063, 74.1265473960382, 157.2104857615693, 45.99951512245347, 289.656943741451, 190.03380786044204, 95.88758402073437], [1.008586386643551, 1.001680635939159, 1.0001792710396824, 1.0204726779586601, 1.0009508844051853, 1.0008817663535174, 0.9990107016214629, 1.0115805615849451, 1.0119025875295011, 1.0020719613471838, 1.027906815718671, 1.0191520223492285, 1.0033131747370314, 1.0064571942443485]], Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), Symbol("λ[6]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.0879132559104437, 0.02272992865252697, 0.016235651218988324, 0.28179505227408297, 0.056242892265388506, 0.30471229796552013, 0.024123688404333567, 1.5714668301805017, -1.6117972082419643, -0.2997608425581325, 0.7268232106802072, -0.9418887338243984, 0.6108311837787762, -0.39374551241564903], [0.22948490463004165, 0.4535992517761649, 0.1228906430141093, 0.9144824133802856, 0.2805067284591811, 0.9295863040493483, 0.19819553235635834, 1.9488971458464877, -1.021861515628415, -0.1666349727548549, 0.8656820836285701, -0.2719684482985677, 1.070825543503204, -0.14481934830982918], [0.36785818810953524, 0.9371401740149127, 0.27419384946567404, 1.53194630271277, 0.5363014098422563, 1.5167656554247317, 0.3461811422549832, 2.3024881817435334, -0.7054320836765846, -0.05568721646207244, 0.9770067760725092, -0.023391395633436014, 1.2935670573862423, -0.0028965664930731758], [0.5927359925543, 1.8602866126590303, 0.6572244562232121, 2.351687496915953, 1.02029536613816, 2.8306131662631415, 0.8242037711517243, 2.6799226776591545, -0.3626126522222903, 0.0150106821339136, 1.075483610180145, 0.10723133228500162, 1.5336144841403705, 0.11298798958521726], [1.4404394961243625, 6.611561426483248, 2.559391219680263, 7.902748325606516, 4.5209581237116145, 10.319671223410523, 3.195924619988728, 3.6984732763226225, 0.033226755656417, 0.16380669199911826, 1.2406160762931457, 0.618729765736739, 1.8015883095816219, 0.4377901201309121]], [19.46155820624762, 10.544030922575217, 1.0886040813497553, 1.0886040813497553, 1.0886040813497553, 1.0886040813497553, 3.045675769175994, 1.0886040813497553, 3.283356150048255, 2.8460559906783947, 1.1585753212392926, 1.1712213062933943, 8.734823072901838, 7.230400555060172, 29.605225878317622, 1.1585753212392926, 21.84688514688772, 7.587489486009885, 1.254155430192451, 27.488606803384343, 20.628145554071107, 1.1585753212392926, 1.1470792372546168, 1.1585753212392926, 1.254155430192451, 8.07711979500573, 1.1712213062933943, 1.1712213062933943, 1.1585753212392926, 78.2811001521038, 1.1585753212392926, 1.1585753212392926, 1.254155430192451, 1.1585753212392926, 3.3104687432518154, 7.752897380727241, 1.1585753212392926, 1.254155430192451, 1.1585753212392926, 2.8460559906783947, 3.045675769175994, 2.8460559906783947, 1.0886040813497553, 2.8460559906783947, 1.254155430192451, 1.1585753212392926, 1.0886040813497553, 3.283356150048255, 1.0871253614679324, 1.1585753212392926, 1.1712213062933943, 1.0886040813497553, 1.254155430192451, 1.254155430192451, 1.1585753212392926, 1.1712213062933943, 3.045675769175994, 2.8460559906783947, 2.8460559906783947, 29.605225878317622, 8.178983312111075, 4.122467598628785, 32.385867591624624, 3.0483401828981678, 7.587489486009885, 3.283356150048255, 27.488606803384343, 1.1712213062933943, 1.1712213062933943, 8.734823072901838, 10.544030922575217, 3.0483401828981678, 8.734823072901838, 3.283356150048255, 1.0886040813497553, 20.628145554071107, 1.1585753212392926, 8.734823072901838])] + +for (prior, test_summaries, test_quantiles, prediction) in tests + CRRao.set_rng(StableRNG(123)) + model = fit(@formula(Num ~ Target + Coop + NCost), sanction, NegBinomRegression(), prior) + + #Split summaries and quantiles into symbols and numbers for testing equality/approximate equality. + model_summaries, model_quantiles = describe(model.chain) + (model_summaries_symbols, model_summaries_nums...) = model_summaries.nt + (model_quantiles_symbols, model_quantiles_nums...) = model_quantiles.nt + (test_summaries_symbols, test_summaries_nums...) = test_summaries + (test_quantiles_symbols, test_quantiles_nums...) = test_quantiles + + @test model_summaries_symbols == test_summaries_symbols + for i in eachindex(test_summaries_nums) + @test model_summaries_nums[i] ≈ test_summaries_nums[i] + end + @test model_quantiles_symbols == test_quantiles_symbols + for i in eachindex(test_quantiles_nums) + @test model_quantiles_nums[i] ≈ test_quantiles_nums[i] + end + @test predict(model, sanction) ≈ prediction +end \ No newline at end of file diff --git a/test/numerical/bayesian/PoissonRegression.jl b/test/numerical/bayesian/PoissonRegression.jl new file mode 100644 index 0000000..5201415 --- /dev/null +++ b/test/numerical/bayesian/PoissonRegression.jl @@ -0,0 +1,25 @@ +sanction = dataset("Zelig", "sanction") + +tests = Any[(Prior_Ridge(), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [1.3067355124808628, -1.7954059749747433, 0.13870508581663504, 1.132672650912545, -0.3230226254890309, 1.6961069878731383, 0.4040934806525153], [0.4614039269326491, 0.26419939247668656, 0.0647018311785362, 0.053776834986465266, 0.21787467900038635, 0.09787869641571813, 0.17152327089322514], [0.014590873304530794, 0.008354718366590836, 0.0020460515530787097, 0.0017005728391226043, 0.006889802301192785, 0.0030951961508182825, 0.0054240420774465505], [0.01871690390962484, 0.011620805404522002, 0.0026305344136758114, 0.0017342537293233637, 0.0074605971524898725, 0.0035923042932088766, 0.00679616817854052], [619.3195104907477, 469.7098689166608, 654.1981009374941, 653.9281928445064, 743.3957668492883, 756.8071703770736, 571.0009720394023], [0.9991115724440814, 0.9998897845270931, 0.9993031733036035, 0.999156937816046, 0.9993742025190981, 1.0001716809567045, 0.9999124380372408]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.7430805999719338, -2.3067840819125744, 0.01818168714064058, 1.0273407587119676, -0.7490673060518834, 1.5116259197150497, 0.06650544634166763], [1.017569881068573, -1.98066750880261, 0.09392079052310581, 1.0957473832092117, -0.4673728608720386, 1.6289650440232362, 0.28674251307250215], [1.2106146494360046, -1.7938907557472878, 0.13753095337725246, 1.1308746547270807, -0.330340868422352, 1.6943475333226017, 0.40309588096574855], [1.5134914052709998, -1.6063738466767394, 0.17945040914394927, 1.1686700823778648, -0.17085185388087332, 1.7634477002647562, 0.5241631330970231], [2.5468976201850846, -1.2935674619852482, 0.2708563179367638, 1.2393743511934436, 0.10058179866453396, 1.8955129099794932, 0.7363453461562143]], [17.245248953660397, 13.311751426697569, 0.7896838153702627, 0.7896838153702627, 0.7896838153702627, 0.7896838153702627, 2.12053910182601, 0.7896838153702627, 2.7850411549518532, 2.4383419963049704, 1.0317165509592108, 0.6871403194669483, 5.726972543900231, 5.5635753559745, 35.812094002539254, 1.0317165509592108, 20.372646447765263, 7.550841195909681, 0.8991514152598765, 41.229119045715755, 23.451157821412178, 1.0317165509592108, 0.5097363604555566, 1.0317165509592108, 0.8991514152598765, 6.5631217677795926, 0.6871403194669483, 0.6871403194669483, 1.0317165509592108, 111.18286607951553, 1.0317165509592108, 1.0317165509592108, 0.8991514152598765, 1.0317165509592108, 1.8513268747837672, 11.45915744277437, 1.0317165509592108, 0.8991514152598765, 1.0317165509592108, 2.4383419963049704, 2.12053910182601, 2.4383419963049704, 0.7896838153702627, 2.4383419963049704, 0.8991514152598765, 1.0317165509592108, 0.7896838153702627, 2.7850411549518532, 1.1884452394700504, 1.0317165509592108, 0.6871403194669483, 0.7896838153702627, 0.8991514152598765, 0.8991514152598765, 1.0317165509592108, 0.6871403194669483, 2.12053910182601, 2.4383419963049704, 2.4383419963049704, 35.812094002539254, 9.937429242768149, 4.3105415268705265, 31.22892166356205, 3.1972595300758626, 7.550841195909681, 2.7850411549518532, 41.229119045715755, 0.6871403194669483, 0.6871403194669483, 5.726972543900231, 13.311751426697569, 3.1972595300758626, 5.726972543900231, 2.7850411549518532, 0.7896838153702627, 23.451157821412178, 1.0317165509592108, 5.726972543900231]), (Prior_Laplace(), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [1.0888252727330223, -1.782080185238893, 0.13456105113029324, 1.1312036086482693, -0.30316421714121766, 1.6986047806598152, 0.38367684114091644], [0.5555082890626037, 0.2695428820905915, 0.061288152460673054, 0.05729860959424446, 0.22433602212756018, 0.09865943587804131, 0.1743044803004579], [0.017566714525410303, 0.008523694344924771, 0.0019381015535938008, 0.0018119411307858883, 0.007094127911450228, 0.0031198853004194473, 0.005511991641213973], [0.029931482003684326, 0.013443644126305387, 0.0025277377413849907, 0.0024548679823840616, 0.007950017207285649, 0.003550593880131961, 0.006934713798792591], [479.82536735342677, 462.26933474481797, 677.6547976263736, 539.8119755466021, 665.6348217856375, 701.9176666520717, 605.4188230505955], [1.000074934722703, 0.9996429462777557, 0.9991893260321387, 0.9992658354239561, 1.0004111000100226, 0.9990987140685751, 1.0001144267067672]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.44865453775249403, -2.304353969906118, 0.021589286831732342, 1.0106735073434576, -0.7411507269413906, 1.5121596698382997, 0.04858622605792693], [0.7271218825590415, -1.9713893944056105, 0.09385245665903966, 1.093116567444, -0.44910977368818245, 1.6303044063730556, 0.26717149390086087], [0.9566760169266957, -1.7766733367214107, 0.13023719150783974, 1.1321172031283349, -0.29800014947182, 1.6943709390480433, 0.38967878505539727], [1.2873214792388656, -1.5968341823131058, 0.17501636886428723, 1.1708322791428094, -0.14887705786570657, 1.7690330045519063, 0.4972724210725685], [2.4803736464388297, -1.291158662733538, 0.26121469038699624, 1.2403796364854927, 0.11485651337922298, 1.8982240516812845, 0.7220512385476486]], [17.484678547316634, 13.295098408142184, 0.7896543058939538, 0.7896543058939538, 0.7896543058939538, 0.7896543058939538, 2.129223010979156, 0.7896543058939538, 2.7437050611812768, 2.4318625437465324, 1.0125684553182555, 0.691836402029775, 5.774672537531026, 5.649930537320182, 35.9210519676848, 1.0125684553182555, 20.368339810433362, 7.514104158670199, 0.88808352064814, 41.08142979004255, 23.293830891892487, 1.0125684553182555, 0.5231790965298502, 1.0125684553182555, 0.88808352064814, 6.5746885246409414, 0.691836402029775, 0.691836402029775, 1.0125684553182555, 111.28724937333823, 1.0125684553182555, 1.0125684553182555, 0.88808352064814, 1.0125684553182555, 1.8713722988578738, 11.12750582288208, 1.0125684553182555, 0.88808352064814, 1.0125684553182555, 2.4318625437465324, 2.129223010979156, 2.4318625437465324, 0.7896543058939538, 2.4318625437465324, 0.88808352064814, 1.0125684553182555, 0.7896543058939538, 2.7437050611812768, 1.1589837396262206, 1.0125684553182555, 0.691836402029775, 0.7896543058939538, 0.88808352064814, 0.88808352064814, 1.0125684553182555, 0.691836402029775, 2.129223010979156, 2.4318625437465324, 2.4318625437465324, 35.9210519676848, 9.709023564040207, 4.316965512645076, 31.530308041380966, 3.1303840462813852, 7.514104158670199, 2.7437050611812768, 41.08142979004255, 0.691836402029775, 0.691836402029775, 5.774672537531026, 13.295098408142184, 3.1303840462813852, 5.774672537531026, 2.7437050611812768, 0.7896543058939538, 23.293830891892487, 1.0125684553182555, 5.774672537531026]), (Prior_Cauchy(), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.8432563483359017, -1.7879628364650586, 0.1374106559392725, 1.129915036973116, -0.29650651779982007, 1.7035697023256682, 0.3928245538219577], [0.41909706946215824, 0.25309711177909666, 0.06400646975854091, 0.05578593937969586, 0.22035352337749553, 0.09733114457955845, 0.17054832493252745], [0.013253013002022184, 0.008003633424321765, 0.0020240622942367687, 0.0017641062985191967, 0.006968190243160448, 0.0030778810414255633, 0.005393211579132693], [0.016953171211038787, 0.01174900047684856, 0.002689095185045693, 0.0017734606855979097, 0.010627781162373347, 0.004273005800552253, 0.006843495890128291], [651.9481080312149, 440.1547934717755, 596.1778150025469, 747.2076712139942, 526.3279714466322, 600.4246078288855, 754.6818785327301], [1.0030492250086989, 1.001168570921669, 0.9992004482892144, 1.000861090846347, 1.0032430281496794, 0.9991869974731975, 1.000966324026003]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.31014610589196046, -2.3022676465505696, 0.028171006166323245, 1.013079692367877, -0.7700546499181705, 1.5158774906507357, 0.07382004975923198], [0.5455551489732104, -1.9534912641951072, 0.09202787114767773, 1.092458656679483, -0.4356059996870344, 1.638757409528644, 0.26324600661543407], [0.7597993984189138, -1.7796923976412657, 0.1354607143376792, 1.1302730936840093, -0.2756712804365907, 1.7020382365146145, 0.38810829008278047], [1.0487507199056962, -1.6128705715468121, 0.17935540403160175, 1.168017066966444, -0.1447548608328002, 1.7689163936418177, 0.5176497811230387], [1.8316402545784098, -1.3056162898792056, 0.26702753990894257, 1.2367681630069634, 0.10445248709803956, 1.904594282611776, 0.7229906436586251]], [17.68253269448554, 13.341355721102438, 0.7872935257829465, 0.7872935257829465, 0.7872935257829465, 0.7872935257829465, 2.1154323305296523, 0.7872935257829465, 2.76400165437605, 2.428069089159998, 1.022642112029461, 0.6860523282973718, 5.723512155462378, 5.7091958608314, 35.92148779091325, 1.022642112029461, 20.30806208406103, 7.51241191137519, 0.8931938831184956, 41.27059816089039, 23.31770041392249, 1.022642112029461, 0.5247247463375051, 1.022642112029461, 0.8931938831184956, 6.543925963975693, 0.6860523282973718, 0.6860523282973718, 1.022642112029461, 111.45677741606845, 1.022642112029461, 1.022642112029461, 0.8931938831184956, 1.022642112029461, 1.8505428773380381, 11.302574208415404, 1.022642112029461, 0.8931938831184956, 1.022642112029461, 2.428069089159998, 2.1154323305296523, 2.428069089159998, 0.7872935257829465, 2.428069089159998, 0.8931938831184956, 1.022642112029461, 0.7872935257829465, 2.76400165437605, 1.1756278802050224, 1.022642112029461, 0.6860523282973718, 0.7872935257829465, 0.8931938831184956, 0.8931938831184956, 1.022642112029461, 0.6860523282973718, 2.1154323305296523, 2.428069089159998, 2.428069089159998, 35.92148779091325, 9.82814145292989, 4.32672400932812, 31.39333924959079, 3.1651580170028404, 7.51241191137519, 2.76400165437605, 41.27059816089039, 0.6860523282973718, 0.6860523282973718, 5.723512155462378, 13.341355721102438, 3.1651580170028404, 5.723512155462378, 2.76400165437605, 0.7872935257829465, 23.31770041392249, 1.022642112029461, 5.723512155462378]), (Prior_TDist(), Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.953884798518609, 2.7017760271822078, -1.7913072588057293, 0.1367519414951278, 1.1321623966997703, -0.31482132767086696, 1.7000672944137882, 0.3909028931445429], [0.3967763254286206, 3.430310958175883, 0.25039250919614026, 0.06497253841251495, 0.053588074364339155, 0.23166579743429272, 0.10173252243175632, 0.16814544933847933], [0.012547169099866258, 0.10847595710470383, 0.007918106381044598, 0.0020546120674632793, 0.0016946037041379153, 0.0073259157585155695, 0.003217064829985215, 0.0053172259810204715], [0.013836082701058294, 0.15034943395296224, 0.012969112309019998, 0.003044310483049397, 0.0026297938323265936, 0.00798335475783419, 0.003879000453961539, 0.006822185906328588], [724.4593409228995, 473.2383119410697, 301.78216801210783, 512.6922130491082, 349.4068617451352, 824.9216291870605, 661.7511069257234, 459.09074598655667], [0.9991134489152359, 1.0014123486231028, 0.9992363887579946, 0.9997622068306613, 0.9994534361072958, 0.9993358016930187, 1.0054295895724097, 0.9994185469697733]], Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.3999294904286124, 0.5493636648646881, -2.2816535226348695, 0.01513556352339144, 1.0321570010023957, -0.76799106734349, 1.5029674844008072, 0.07007747410722058], [0.6705373823206295, 1.1002835405475888, -1.9561376780906943, 0.08908579063322142, 1.0932263163354563, -0.46944011125974894, 1.6251677198954313, 0.27097768763341135], [0.8798862641964159, 1.7737103475799714, -1.7940688750430231, 0.13834019132192094, 1.131029283143731, -0.3019818928371608, 1.7036802156131379, 0.39107462129460946], [1.1535299107039862, 2.937170581265078, -1.62615703649288, 0.17947999772424264, 1.1688369055596206, -0.151918833702819, 1.7682412718932539, 0.5023002384796291], [1.8897657432468875, 9.819382753544879, -1.2766422555543115, 0.261411551277462, 1.2361706358747815, 0.11277013184520428, 1.8936288571171855, 0.7236380302283951]], [17.29131446465525, 13.2837536210769, 0.7865957359744394, 0.7865957359744394, 0.7865957359744394, 0.7865957359744394, 2.1181296567977603, 0.7865957359744394, 2.74793196065243, 2.4306796970083075, 1.0151942958564975, 0.6855574027448028, 5.742012937992229, 5.571607267973855, 35.841480762083386, 1.0151942958564975, 20.38512335200348, 7.531505984564301, 0.8865616533795929, 41.16010853706391, 23.400311679140863, 1.0151942958564975, 0.5095220025905733, 1.0151942958564975, 0.8865616533795929, 6.562052614829212, 0.6855574027448028, 0.6855574027448028, 1.0151942958564975, 111.34401566064489, 1.0151942958564975, 1.0151942958564975, 0.8865616533795929, 1.0151942958564975, 1.8537718622567192, 11.25193982913317, 1.0151942958564975, 0.8865616533795929, 1.0151942958564975, 2.4306796970083075, 2.1181296567977603, 2.4306796970083075, 0.7865957359744394, 2.4306796970083075, 0.8865616533795929, 1.0151942958564975, 0.7865957359744394, 2.74793196065243, 1.16748837444347, 1.0151942958564975, 0.6855574027448028, 0.7865957359744394, 0.8865616533795929, 0.8865616533795929, 1.0151942958564975, 0.6855574027448028, 2.1181296567977603, 2.4306796970083075, 2.4306796970083075, 35.841480762083386, 9.78222529616277, 4.2987405424526175, 31.343113530609187, 3.1470441203863144, 7.531505984564301, 2.74793196065243, 41.16010853706391, 0.6855574027448028, 0.6855574027448028, 5.742012937992229, 13.2837536210769, 3.1470441203863144, 5.742012937992229, 2.74793196065243, 0.7865957359744394, 23.400311679140863, 1.0151942958564975, 5.742012937992229]), (Prior_HorseShoe(), Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), Symbol("λ[6]"), Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [1.0967789917748096, 3.1027062788233373, 0.7000564198111766, 2.3943662808683324, 0.9351511329511009, 3.3768027424899207, 1.2450525250035676, -1.7489545553432402, 0.11836132446199116, 1.1296756345880907, -0.22024254534114884, 1.705931821441597, 0.37234655970410785], [0.7202169350247432, 3.885771758149708, 1.3790725152602659, 3.2503526210348106, 1.76519557588437, 6.501365653681186, 2.221816105400464, 0.2760668974306259, 0.07058902334118759, 0.05709199451357014, 0.21173388147742786, 0.1020964849792928, 0.17509124450835925], [0.022775259241036863, 0.12287889223310028, 0.04361010206759755, 0.1027851748116812, 0.05582038535447201, 0.2055912336722201, 0.070259994351102, 0.008730001824568635, 0.0022322209156494183, 0.0018054073882471855, 0.006695613232968095, 0.0032285743363173413, 0.005536871309998639], [0.030872518053353292, 0.1974350435445019, 0.04925919432622714, 0.14367441259655633, 0.0790525628097405, 0.25441246578986465, 0.1224034022084378, 0.012796092170722062, 0.003409000974270503, 0.002481579790034839, 0.006335637686401703, 0.003543927833093899, 0.006338828921011985], [495.78689700653797, 409.1762548330001, 705.5282532838253, 501.7930683500228, 582.3219003864343, 610.2202479297812, 350.12331581099613, 431.89564692265446, 468.3049396731213, 564.1506533540419, 733.3562965807295, 909.1701810116541, 559.1850672892917], [1.0051761262777352, 1.0057825196918535, 0.9990181388731773, 1.0042009796266582, 1.0033681943909318, 1.0001135524347562, 1.0003967028755374, 0.9998141019328814, 0.9991008735684026, 1.0001408225884332, 0.9996589358024219, 0.9993545691655834, 0.9990148551643833]], Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), Symbol("λ[6]"), Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.27124050790205306, 0.5268777557066741, 0.025867639874893746, 0.34680976381740053, 0.037408541524227186, 0.4982056010651022, 0.10475327965187459, -2.30068761753827, -0.003999363280164138, 1.0234549719666384, -0.6740939511193187, 1.4991970875116136, 0.03045970588698374], [0.624504186619325, 1.2258390157125636, 0.16879143104311756, 0.8695507121495772, 0.20913050189820462, 1.2213508017743038, 0.36581320616382795, -1.941677584711995, 0.06775426239306573, 1.0904876350928427, -0.3592192031235818, 1.6387447229004901, 0.2485370953390308], [0.8979380245803201, 2.0465221661388098, 0.35839479560272625, 1.4059023440647107, 0.5065221282765369, 1.9924996501870589, 0.6567422968701214, -1.7413899187278088, 0.11520335329286369, 1.1298643642720716, -0.20243004789244728, 1.7050547252918116, 0.37630954017452134], [1.3761893945966346, 3.3299851187351277, 0.7633461678259685, 2.5461572771259506, 0.9705942190034706, 3.403298085354283, 1.2086865350338694, -1.5682587577805607, 0.16841629569969546, 1.166538926535685, -0.05169886323431806, 1.7717660230153416, 0.4911252550411219], [2.9053107557786166, 14.044699394423336, 3.2174383804282214, 12.172115264873115, 4.2828176719793225, 14.6181446899156, 7.285044659230114, -1.2302526249412318, 0.2634386395466623, 1.2456320546742885, 0.13798520861385155, 1.910206508853714, 0.7002336465166198]], [18.609889135251244, 13.142091036898423, 0.7775026323470104, 0.7775026323470104, 0.7775026323470104, 0.7775026323470104, 2.124729594039022, 0.7775026323470104, 2.7452501199379165, 2.3940856401888624, 0.9985156322879616, 0.6903737988094005, 5.849307198698012, 6.010399199367853, 36.00773964289551, 0.9985156322879616, 20.32714133523802, 7.3962267817958764, 0.8886409378063862, 40.60166467065963, 22.92534997806272, 0.9985156322879616, 0.5637138574067625, 0.9985156322879616, 0.8886409378063862, 6.560952872827374, 0.6903737988094005, 0.6903737988094005, 0.9985156322879616, 111.56503763132126, 0.9985156322879616, 0.9985156322879616, 0.8886409378063862, 0.9985156322879616, 1.895138816158316, 10.816857110687872, 0.9985156322879616, 0.8886409378063862, 0.9985156322879616, 2.3940856401888624, 2.124729594039022, 2.3940856401888624, 0.7775026323470104, 2.3940856401888624, 0.8886409378063862, 0.9985156322879616, 0.7775026323470104, 2.7452501199379165, 1.1276668945994828, 0.9985156322879616, 0.6903737988094005, 0.7775026323470104, 0.8886409378063862, 0.8886409378063862, 0.9985156322879616, 0.6903737988094005, 2.124729594039022, 2.3940856401888624, 2.3940856401888624, 36.00773964289551, 9.569598661126454, 4.2680551014469765, 32.093966561018526, 3.086011702493202, 7.3962267817958764, 2.7452501199379165, 40.60166467065963, 0.6903737988094005, 0.6903737988094005, 5.849307198698012, 13.142091036898423, 3.086011702493202, 5.849307198698012, 2.7452501199379165, 0.7775026323470104, 22.92534997806272, 0.9985156322879616, 5.849307198698012])] + +for (prior, test_summaries, test_quantiles, prediction) in tests + CRRao.set_rng(StableRNG(123)) + model = fit(@formula(Num ~ Target + Coop + NCost), sanction, PoissonRegression(), prior) + + #Split summaries and quantiles into symbols and numbers for testing equality/approximate equality. + model_summaries, model_quantiles = describe(model.chain) + (model_summaries_symbols, model_summaries_nums...) = model_summaries.nt + (model_quantiles_symbols, model_quantiles_nums...) = model_quantiles.nt + (test_summaries_symbols, test_summaries_nums...) = test_summaries + (test_quantiles_symbols, test_quantiles_nums...) = test_quantiles + + @test model_summaries_symbols == test_summaries_symbols + for i in eachindex(test_summaries_nums) + @test model_summaries_nums[i] ≈ test_summaries_nums[i] + end + @test model_quantiles_symbols == test_quantiles_symbols + for i in eachindex(test_quantiles_nums) + @test model_quantiles_nums[i] ≈ test_quantiles_nums[i] + end + @test predict(model, sanction) ≈ prediction +end \ No newline at end of file diff --git a/test/runtests.jl b/test/runtests.jl index 5d0e2be..1c01757 100644 --- a/test/runtests.jl +++ b/test/runtests.jl @@ -23,4 +23,22 @@ CRRao.set_rng(StableRNG(123)) include("basic/NegBinomialRegression.jl") end end + + @testset "Numerical Tests" begin + @testset "Linear Regression" begin + include("numerical/bayesian/LinearRegression.jl") + end + + @testset "Logistic Regression" begin + include("numerical/bayesian/LogisticRegression.jl") + end + + @testset "Poisson Regression" begin + include("numerical/bayesian/PoissonRegression.jl") + end + + @testset "Negative Binomial Regression" begin + include("numerical/bayesian/NegBinomialRegression.jl") + end + end end From 88f2735f929085b60b977b36f89ea9121b1ec4e8 Mon Sep 17 00:00:00 2001 From: ShouvikGhosh2048 Date: Thu, 22 Dec 2022 15:44:26 +0530 Subject: [PATCH 2/3] Use mean of predictions instead of summary and quantiles --- test/Project.toml | 1 + test/numerical/bayesian/LinearRegression.jl | 50 ++++--------- test/numerical/bayesian/LogisticRegression.jl | 71 ++++++++++++++----- .../bayesian/NegBinomialRegression.jl | 27 +++---- test/numerical/bayesian/PoissonRegression.jl | 27 +++---- test/runtests.jl | 2 +- 6 files changed, 84 insertions(+), 94 deletions(-) diff --git a/test/Project.toml b/test/Project.toml index 3d6ce17..e277abd 100644 --- a/test/Project.toml +++ b/test/Project.toml @@ -2,5 +2,6 @@ Logging = "56ddb016-857b-54e1-b83d-db4d58db5568" RDatasets = "ce6b1742-4840-55fa-b093-852dadbb1d8b" StableRNGs = "860ef19b-820b-49d6-a774-d7a799459cd3" +Statistics = "10745b16-79ce-11e8-11f9-7d13ad32a3b2" StatsModels = "3eaba693-59b7-5ba5-a881-562e759f1c8d" Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40" diff --git a/test/numerical/bayesian/LinearRegression.jl b/test/numerical/bayesian/LinearRegression.jl index 33376ed..659725c 100644 --- a/test/numerical/bayesian/LinearRegression.jl +++ b/test/numerical/bayesian/LinearRegression.jl @@ -1,49 +1,23 @@ mtcars = dataset("datasets", "mtcars") -tests = Any[(Prior_Ridge(), Any[[:v, :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [6.607340667183019, 2.699477538245194, 28.394257532027698, -0.039738300575837285, -2.64378747269333, 1.6316385131879014], [3.491059498435052, 0.40768138268871024, 5.365068902763022, 0.009928437804916002, 0.9268396369542333, 0.9821403947803388], [0.11039699462219793, 0.012892017289430641, 0.16965837536471584, 0.00031396477070857055, 0.02930924278498943, 0.03105800629562818], [0.19354267507663853, 0.02085318073331585, 0.4385251011532493, 0.0006471335084166524, 0.07309020857074884, 0.07790312528652366], [368.89025806232695, 315.29708652931345, 128.54634566456218, 266.6067323994925, 149.2843322823497, 137.81454895126734], [1.0013398640961664, 1.0025189660644673, 1.0036731599981588, 1.0010641470993362, 0.9998000296875771, 1.0018877542806597]], Any[[:v, :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [2.4212458634226697, 2.026823862703129, 15.720610006377486, -0.05984492385059591, -4.419730033046315, -0.0825500808646622], [4.4250834097559, 2.438488286693904, 25.024506737082817, -0.046258860075479705, -3.224780457008902, 0.9386373404904507], [5.903138855066658, 2.643749066315433, 28.938984206385413, -0.04015784097403732, -2.714303226586158, 1.5681965630215153], [7.9495324423533535, 2.911378034255043, 32.01010293573062, -0.03291013380284851, -2.064272126221539, 2.2177045092797476], [14.655641098614485, 3.6313006078186847, 37.85299526057768, -0.01830280092513684, -0.5918561698621544, 3.882437389236233]], [23.64682710933115, 22.978085538393668, 25.114650776762073, 20.433970265888107, 17.239817287059495, 19.9917682305048, 14.094488948945079, 24.07501101832066, 22.857836775895713, 20.975546641108245, 20.975546641108245, 15.387317853539544, 16.278973281456235, 16.147847483233182, 11.29117713592764, 10.434230606292255, 10.04046623975584, 26.51105032240928, 28.60610241416577, 27.508331524619415, 22.921674616598743, 18.031587889450673, 18.254501746429835, 13.386409638540638, 16.177698321452844, 27.206017052991427, 27.31928924531768, 28.082223501032413, 17.68722039545056, 22.301822672425917, 13.793749871749785, 23.267287430199303]), (Prior_Laplace(), Any[[:v, :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [4.235723514259716, 2.6639612078951864, 29.301408017856637, -0.039307512833917604, -2.7698905098663205, 1.4781190925131318], [3.20891251839575, 0.38142349330289577, 5.002849404169662, 0.010629597141097694, 0.9211725785793806, 0.9122585073113623], [0.10147472370357534, 0.012061669919351307, 0.15820398907992408, 0.0003361373757588291, 0.02913003466401276, 0.02884814697969273], [0.17659652045754295, 0.02032243226520116, 0.2685620398283256, 0.0005001071263886794, 0.04997091724559722, 0.04742728649269598], [403.6650854968192, 408.9618465724659, 294.611355581558, 415.9218666196696, 307.2041837064655, 307.40993998520383], [1.0000554135678112, 1.0011096863970959, 1.0007068594761066, 0.9990133983023143, 0.9996468036010154, 1.0003684140047449]], Any[[:v, :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [1.2645661289409462, 2.0322753765213943, 18.671257214522225, -0.059211647766535896, -4.4885115851557815, -0.2740292866593391], [2.397496468992026, 2.3897422548178917, 26.20175694528251, -0.04654685895388636, -3.41918592757722, 0.8666119463738915], [3.376719361510677, 2.624386888978689, 29.58466877774019, -0.0395678031370976, -2.8075165491136946, 1.4380167984029608], [5.205021588983238, 2.9037729534870063, 32.72730266469587, -0.03183260317088086, -2.201069745767492, 2.0569756173503317], [11.552432531554901, 3.5061139511018524, 38.3280311105727, -0.018157002215173704, -0.7809609062273537, 3.4048011931840114]], [23.62991629141266, 22.924911198568523, 25.12882269366041, 20.503096531237777, 17.3212236853496, 20.022647122219077, 14.205091370336493, 23.94434343717917, 22.75533686448621, 20.850879185159755, 20.850879185159755, 15.382537971863979, 16.32254476232279, 16.184308469608265, 11.135619337388441, 10.260740188176813, 9.888428254818207, 26.523895292700917, 28.692603508252002, 27.572401914573476, 23.088602827690313, 18.08458774341895, 18.319589441033624, 13.458615389678027, 16.201509714361887, 27.25654764408793, 27.187044594417685, 28.054130633814804, 17.526345449723078, 22.13720576146823, 13.624355468994995, 23.22694183978261]), (Prior_Cauchy(), Any[[:σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [2.600355909747377, 30.548270946626495, -0.039016816965275446, -2.8902387376044243, 1.2357778841250202], [0.3340917189990897, 4.672237217177979, 0.010073346810676174, 0.8736273783371867, 0.8488104650057622], [0.01056490779438073, 0.147749113748892, 0.00031854719582529654, 0.027626523418271542, 0.026841743712048557], [0.013776069654030476, 0.37169820166720147, 0.0006449676668444711, 0.07005969567747433, 0.06163209105292748], [469.9250665390617, 165.5309433906942, 267.1002338617348, 166.8454608267688, 191.33777695493512], [1.0012308035611848, 0.9990690960354791, 0.9992956705473691, 0.9990143396849651, 0.9992008418730554]], Any[[:σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [2.024681373457793, 20.831896047312192, -0.056820885688377905, -4.541446435152564, -0.29034120525794027], [2.3594968282195636, 27.326286165514414, -0.04605071537231306, -3.4974413684025234, 0.6416696386923696], [2.5758161425281267, 30.770181256734375, -0.03924734214023336, -2.9260808143297874, 1.1863942005964803], [2.823106942093609, 33.892861917025805, -0.0325251140259356, -2.327245563100543, 1.8192454925307198], [3.3048356481576584, 39.03853127760354, -0.018363322703892068, -1.1865252002998017, 3.0221966213839804]], [23.62976692630291, 22.89685821621557, 25.15321650073299, 20.649426325976346, 17.474609102087214, 20.13973090838782, 14.378364525146964, 23.858429432651278, 22.689881793411338, 20.76733583322043, 20.76733583322043, 15.469421690944703, 16.446633304394474, 16.30292571418127, 11.105563689632392, 10.216517726778186, 9.860160395946632, 26.548262299307797, 28.77416207327947, 27.636222062755465, 23.310666792760376, 18.217035830026767, 18.46133873338923, 13.602343537995653, 16.310577621360263, 27.309912527437792, 27.018572812072403, 27.964990185738976, 17.329473057498095, 21.940731364522936, 13.418313138515321, 23.20879699251189]), (Prior_TDist(), Any[[:ν, :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [1.040270812419262, 2.6235336125736075, 30.175865641299893, -0.03969385898530461, -2.7827214820937343, 1.268036031355139], [0.5411708292011314, 0.36700477700639694, 4.485941658194438, 0.010527330465684496, 0.8788931011306884, 0.8028299363425789], [0.01711332423517535, 0.011605710075024067, 0.14185793090526969, 0.00033290341952844064, 0.02779304019381684, 0.025387711726105395], [0.02534218738477959, 0.01520534944766011, 0.2534177370344823, 0.0005047399567125213, 0.047577028417198, 0.04462487451913028], [602.398595852702, 476.36511481183464, 271.85395032251796, 462.9108468681422, 300.29224595797666, 298.52729501043575], [0.9990149496249879, 0.9994472834718284, 1.0054715198340691, 1.0039684403499889, 1.0061027527022233, 1.004592991260601]], Any[[:ν, :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [0.3548556031258318, 2.05170328103284, 20.759628451914395, -0.05957721934126292, -4.456015388837275, -0.22996586956801818], [0.6699924161346282, 2.367878544476649, 27.41857797808396, -0.04682854405425855, -3.3526136619116254, 0.7136739267115854], [0.9279692698997398, 2.565255304585415, 30.386971229617615, -0.039648448839578396, -2.826298619939151, 1.2307951378868438], [1.2860575636707143, 2.8284711313966335, 33.27419168929428, -0.03233244126546936, -2.245979502282706, 1.7334705481655053], [2.3207915402042256, 3.5158855091342165, 37.74269546696291, -0.020591257021996934, -1.0229467731040367, 3.0287062633878112]], [23.593876974643088, 22.876145780137215, 25.107985514028975, 20.668690609163946, 17.474708471576772, 20.176081882714364, 14.351140240141577, 23.880507665862453, 22.693050383034453, 20.773740642254854, 20.773740642254854, 15.50451407962381, 16.461489005631645, 16.320757398865783, 11.198367426433816, 10.314669141482339, 9.946096640062976, 26.50941256246397, 28.70750557239333, 27.576148521195368, 23.29180269208001, 18.23441863426708, 18.473662365769048, 13.591189563605937, 16.334782456773297, 27.255290078323043, 26.943890002032763, 27.84196930538285, 17.229444226727473, 21.861472492170222, 13.306530089416032, 23.18293106233302]), (Prior_HorseShoe(), Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [1.52607315433313, 24.205882664738812, 0.344433788637113, 2.1643091175053097, 1.1324127947378992, 2.6140528930591684, 31.825196444419166, -0.03718750165924088, -3.0585437882292315, 0.9625297419261658], [1.653436628885164, 136.84662174860466, 0.5997005115099233, 4.549854958746539, 2.6244962585859613, 0.35173053158260453, 4.8143437819468, 0.010962145990862452, 0.9422651791063842, 0.8549879939853496], [0.05228625714027669, 4.327470148251248, 0.018964195303393806, 0.14387904693050502, 0.0829938588772188, 0.01112269602422819, 0.15224291790020913, 0.000346653493744087, 0.029797041258426755, 0.027037094330920476], [0.08278836050174082, 6.334386700900134, 0.020015964591545473, 0.21823240304279537, 0.12212634748944012, 0.0164685382484837, 0.3049900394294881, 0.000555243288455267, 0.05947152557139189, 0.052262805446505724], [436.8229930227651, 451.4820260345402, 781.1539237432106, 389.8004086335117, 493.6815490484523, 460.62831751040153, 179.83766683208404, 294.1383108546387, 178.2694712808865, 198.7195339053038], [0.9997101926305484, 0.9998782544528467, 0.9993014504451135, 1.0001901554458053, 1.000369973711868, 0.9993143619663889, 1.0103301911665639, 1.0042245045380216, 1.0099104881988727, 1.0077410709523096]], Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [0.2477042645801483, 1.6287675688213055, 0.005922740663151995, 0.21826548671599152, 0.04367624282828437, 2.0417245294556476, 20.92161579135289, -0.059722585054399084, -4.774052298938284, -0.3639668559814557], [0.6709094943237014, 5.351068220543937, 0.041778499463554566, 0.7248208218398899, 0.29316480976656534, 2.373099898238334, 29.15431560825959, -0.04419876436949889, -3.6626332777131108, 0.3356855034316811], [1.0774250598523105, 9.85377853001237, 0.1257474048093926, 1.2996762871206435, 0.6093858024412372, 2.5859178295706, 32.3071856622101, -0.03687215083724006, -3.1250172596388257, 0.8593885012492797], [1.8007559712065662, 20.716613155337875, 0.3737146608282301, 2.4004471925258204, 1.1282492513442852, 2.8043258706747736, 35.17246863144161, -0.030046928633665145, -2.5222082075298955, 1.472765945487665], [5.621232409934779, 83.54871228477566, 2.223143884055017, 8.016843761817922, 4.863432715313981, 3.3936490070925167, 39.460306836994654, -0.017108794888194282, -1.0155483665850953, 2.8540975845378287]], [23.570088498140663, 22.79451075623804, 25.11490471774875, 20.776812560192294, 17.674587015629424, 20.217641342688662, 14.67531048745098, 23.621964559402088, 22.516078520492776, 20.592495350112245, 20.592495350112245, 15.572462059937727, 16.606565715807896, 16.454491648768197, 11.053555522844666, 10.152354347564243, 9.834656240513773, 26.48423771799592, 28.784281093135796, 27.6315767495842, 23.541502014365047, 18.361227063321262, 18.619752977288787, 13.854110525436452, 16.442787072607587, 27.290230273306513, 26.7203625836638, 27.809007855981307, 17.152323602353917, 21.679568594313032, 13.294648769962707, 23.120649825811753])] - -for (prior, test_summaries, test_quantiles, prediction) in tests +tests = [ + (Prior_Ridge(), 20.094329014886135), + (Prior_Laplace(), 20.070803242904567), + (Prior_Cauchy(), 20.089299279637608), + (Prior_TDist(), 20.07675037883895), + (Prior_HorseShoe(), 20.08147629414915), +] + +for (prior, test_mean) in tests CRRao.set_rng(StableRNG(123)) model = fit(@formula(MPG ~ HP + WT + Gear), mtcars, LinearRegression(), prior) - #Split summaries and quantiles into symbols and numbers for testing equality/approximate equality. - model_summaries, model_quantiles = describe(model.chain) - (model_summaries_symbols, model_summaries_nums...) = model_summaries.nt - (model_quantiles_symbols, model_quantiles_nums...) = model_quantiles.nt - (test_summaries_symbols, test_summaries_nums...) = test_summaries - (test_quantiles_symbols, test_quantiles_nums...) = test_quantiles - - @test model_summaries_symbols == test_summaries_symbols - for i in eachindex(test_summaries_nums) - @test model_summaries_nums[i] ≈ test_summaries_nums[i] - end - @test model_quantiles_symbols == test_quantiles_symbols - for i in eachindex(test_quantiles_nums) - @test model_quantiles_nums[i] ≈ test_quantiles_nums[i] - end - @test predict(model, mtcars) ≈ prediction + @test mean(predict(model, mtcars)) ≈ test_mean end -gauss_tests = (Any[[:σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [2.4764436914924737, 30.55213366988879, -0.03797480301227029, -2.9881439649327963, 1.2777860687095592], [0.3154037058595231, 2.224548598697289, 0.00884272074456698, 0.5599631827225042, 0.47523077241931394], [0.009973940929738884, 0.07034640337619309, 0.0002796313826565166, 0.017707590632401595, 0.015028116550461596], [0.013359156295927994, 0.1041296143458426, 0.000394830465226354, 0.025995705664700178, 0.02209530300124711], [704.4834067564985, 370.19716824547663, 423.6585544571588, 360.5083273968527, 420.7095584129223], [0.9990016164057623, 1.0001462331991913, 0.9990089470963095, 0.9991687291385768, 1.0021401722295347]], Any[[:σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]")], [1.9410604068671178, 26.204138838171385, -0.05697730772851603, -4.112948126979683, 0.34008724619538633], [2.259583355892342, 29.178435279511742, -0.043340404993751795, -3.356818867625608, 0.9732485199505923], [2.448784680744309, 30.482232783788163, -0.03751488390109284, -3.0087538817361477, 1.2793687060592247], [2.6725695602240505, 31.951621030761657, -0.032116329709597685, -2.63514094828801, 1.579853172736121], [3.1647848942553343, 35.019481195628394, -0.021599639882778736, -1.820616619681824, 2.247668189263121]], [23.65224810558515, 22.887502619039783, 25.194047663066446, 20.595321513349308, 17.465461729346263, 20.04941868855323, 14.431654483936152, 23.755802387636443, 22.62933502234124, 20.702049670068178, 20.702049670068178, 15.387237884623858, 16.406898533351065, 16.256948437950005, 10.90415241981341, 10.004620802479524, 9.674984025205903, 26.573732162442095, 28.85693567810798, 27.706138387403655, 23.335589815304818, 18.169804790050073, 18.42471995223188, 13.621923968770446, 16.250865956597718, 27.368467668067755, 27.081929520541124, 28.13135208912636, 17.45865611892859, 22.019833921646992, 13.577347829818908, 23.21017832883562]) - -(test_summaries, test_quantiles, prediction) = gauss_tests +gauss_test = 20.077725307634 CRRao.set_rng(StableRNG(123)) model = fit(@formula(MPG ~ HP + WT + Gear), mtcars, LinearRegression(), Prior_Gauss(), 30.0, [0.0,-3.0,1.0], 1000) -#Split summaries and quantiles into symbols and numbers for testing equality/approximate equality. -model_summaries, model_quantiles = describe(model.chain) -(model_summaries_symbols, model_summaries_nums...) = model_summaries.nt -(model_quantiles_symbols, model_quantiles_nums...) = model_quantiles.nt -(test_summaries_symbols, test_summaries_nums...) = test_summaries -(test_quantiles_symbols, test_quantiles_nums...) = test_quantiles - -@test model_summaries_symbols == test_summaries_symbols -for i in eachindex(test_summaries_nums) - @test model_summaries_nums[i] ≈ test_summaries_nums[i] -end -@test model_quantiles_symbols == test_quantiles_symbols -for i in eachindex(test_quantiles_nums) - @test model_quantiles_nums[i] ≈ test_quantiles_nums[i] -end -@test predict(model, mtcars) ≈ prediction \ No newline at end of file +@test mean(predict(model, mtcars)) ≈ gauss_test \ No newline at end of file diff --git a/test/numerical/bayesian/LogisticRegression.jl b/test/numerical/bayesian/LogisticRegression.jl index 7e9dde7..7bf3efd 100644 --- a/test/numerical/bayesian/LogisticRegression.jl +++ b/test/numerical/bayesian/LogisticRegression.jl @@ -1,25 +1,58 @@ turnout = dataset("Zelig", "turnout")[1:100,:] # Take a subset of rows to reduce input size -tests = Any[(Prior_Ridge(), Logit(CRRao.Logit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.20311217515320312, -0.09149928634521838, 0.006458125352234212, -0.07095124107738528, 0.19910288135641876, 0.04094551072239558], [0.18474291793973358, 0.30960087929755364, 0.010592367122595108, 0.2485207688144222, 0.12475247896041136, 0.050919527596166775], [0.005842084022751396, 0.009790439441711407, 0.00033496005920084527, 0.007858916753097179, 0.003945019772671346, 0.001610216845836855], [0.013005943129163392, 0.022088368877808177, 0.0005336196365431863, 0.015064709359910028, 0.0082016628637971, 0.002330356969226311], [170.5941860759734, 194.89833300037057, 376.58116807228504, 267.12681084303426, 162.5217483361964, 474.0979373253548], [1.0140078185682626, 1.0073132013871084, 0.9991283677361763, 0.9990919465357941, 1.0157422660137876, 0.9998430528643688]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.03913958516151699, -0.7339216772704985, -0.013821211236909148, -0.5976025970636484, -0.004774907496720676, -0.05862130199552804], [0.09685767284795563, -0.1670340250989772, -0.00045884848876479907, -0.1482366867271768, 0.10321142122133631, 0.011027043714081215], [0.1539415061819891, -0.03062471257137357, 0.0058261362421789895, -0.0315582832678254, 0.1852485168136005, 0.038822068543668806], [0.24805839572880303, 0.05068159907266643, 0.012907171133720157, 0.054507441522904314, 0.2771830616316776, 0.0708346063582477], [0.6426924034739186, 0.288643026967774, 0.02876097599913926, 0.30127856746675835, 0.4875306035003118, 0.1411127133587714]], [0.8067202213860328, 0.715997242319718, 0.6419766963047161, 0.7454057766645713, 0.7357531538317423, 0.7678530975830844, 0.8042840846702818, 0.8991321983908513, 0.7832924131644144, 0.8105649663713902, 0.9312917928212197, 0.8986514103595546, 0.6888733324090757, 0.6722652086662009, 0.7996650577367227, 0.6417739062428619, 0.7659050878921709, 0.6988988799527475, 0.7249716000134631, 0.6529511075201258, 0.7270155293922062, 0.7941085102834436, 0.8895524851167634, 0.7667642479784814, 0.85560733693981, 0.9211748319109009, 0.8021001056687318, 0.7935147062822016, 0.584266585683834, 0.9150179007915946, 0.7136414584713925, 0.8092319859297883, 0.7778907407897864, 0.7535827959578362, 0.7794034298654535, 0.769047012952013, 0.8343921701230709, 0.7144546985113317, 0.6848244796445023, 0.8617342776296116, 0.7618462713351986, 0.7182717512518715, 0.7684416238284725, 0.836542868211112, 0.794556126592735, 0.7553264160550869, 0.743239563488533, 0.6548229254641936, 0.8310342808709463, 0.6554707664251948, 0.7600650853200763, 0.7861430780009776, 0.7788516444281629, 0.6918997777288584, 0.7281771049354837, 0.7552968771317827, 0.8097795768257517, 0.7629698470073859, 0.9372560292849123, 0.8959367800359208, 0.6686538560459145, 0.7954921149034925, 0.7997784239088823, 0.8765983400455013, 0.7221469992882669, 0.9188967148212522, 0.8180076720820004, 0.6601183168482546, 0.724771704836671, 0.8671527043716455, 0.7528708618084762, 0.8945488065081059, 0.8965806355945941, 0.6948930399183169, 0.8135044425559343, 0.8339814013003289, 0.6833856301388603, 0.6806127759953808, 0.8061739241996472, 0.7120513567680984, 0.6583484911578462, 0.8185113663849696, 0.7079342732722296, 0.8420760501117424, 0.7450502046624458, 0.7621200497250393, 0.7041997986300694, 0.6919739161839535, 0.6523208562278989, 0.8143617221541132, 0.8551943013280018, 0.8124158027059445, 0.8852549196130247, 0.7712763181210016, 0.6961847859235313, 0.6619238651362775, 0.8152499047354334, 0.764489901885485, 0.8012799347210415, 0.8231486463329171]), (Prior_Ridge(), Probit(CRRao.Probit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.11616513048252364, -0.037160930493076214, 0.0045100439990077255, -0.03840825234542073, 0.11140454892908146, 0.021661950524467604], [0.09110792132944777, 0.14818442144805466, 0.0056711213983281225, 0.12752585399944705, 0.0650130693144783, 0.02877770521684079], [0.0028810854428449086, 0.004686002855301593, 0.00017933660506035882, 0.004032721591963458, 0.002055893767121531, 0.0009100309431812665], [0.005937969120443782, 0.007383814348505721, 0.0002932312468859513, 0.00559072567039334, 0.00412646452662701, 0.0014533081552242986], [197.04663877816765, 363.3879009140699, 339.1026713086868, 416.3678986179247, 265.48644649684474, 449.9678796435121], [1.0278294755734465, 1.0047791315413486, 0.9990536769363024, 1.0067617251496983, 1.0112555459579071, 0.9990570381007269]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.025837818609502804, -0.3615241848731437, -0.007039868634510755, -0.3624549010770731, 0.002585109149984229, -0.03532517822330395], [0.06139497668499429, -0.09043994620472824, 0.0006204513752539028, -0.0891996594398045, 0.06488952549727718, 0.0035248454582705695], [0.09372534551638717, -0.016458001438535444, 0.00473978831902027, -0.017985738800244754, 0.10505631482796712, 0.02160942977993184], [0.14202562047255096, 0.03209846106347263, 0.008454094733153693, 0.03121613911246795, 0.15300540259428375, 0.04007432209593401], [0.3433308145667108, 0.19837168414164097, 0.014904465664907824, 0.16874983085341164, 0.2508744997813554, 0.07781826474064567]], [0.8046162506937847, 0.7171375108311612, 0.6457179367863152, 0.7395243133343246, 0.7287719692778671, 0.7694578977404251, 0.7970577215802164, 0.9003977327996175, 0.7748585137460905, 0.8127709034650508, 0.9342415388670975, 0.8989107662769205, 0.6860558949634663, 0.6829973027503338, 0.7899615413741227, 0.6460125797034996, 0.7617650503609501, 0.7075037889760091, 0.7272452431559339, 0.6581699287358721, 0.7366797146976353, 0.784759005807979, 0.8882325327621571, 0.759445193198484, 0.8512143649807262, 0.9221879221155027, 0.7992866817047745, 0.7874343295491184, 0.592720752259484, 0.9150246232488565, 0.723346784825865, 0.8019642889635138, 0.7675716216217658, 0.7549304752487221, 0.7789678520032853, 0.7617337705672645, 0.8303737737882184, 0.7068236334410581, 0.6999190590406599, 0.8560637748109194, 0.764815620136536, 0.7134253036963134, 0.7585580397372774, 0.8332274101850606, 0.7844039038344988, 0.7463952552593612, 0.75028983027976, 0.6634742332417373, 0.8214905708378695, 0.6571951992558477, 0.7600465107916298, 0.7786664923115267, 0.7745033268722279, 0.7064983647061754, 0.7233784352353662, 0.7477062980073856, 0.8020861194791721, 0.766122452864166, 0.9411995108327398, 0.8952930113527544, 0.673317120085625, 0.7930939018581425, 0.7930999322978136, 0.8718253451461954, 0.721341616864105, 0.9194506697726305, 0.8195794064431482, 0.6595540754992926, 0.7359853755139877, 0.8639092822049591, 0.7461028752732274, 0.892511624160932, 0.8980929308025609, 0.6936871440243281, 0.8093505275551256, 0.8280796689232968, 0.6900024786112738, 0.6836962335196833, 0.8031505788366342, 0.7201843682828091, 0.6638154612178834, 0.8114833284158015, 0.719729613065716, 0.8360526635861266, 0.7532030305454028, 0.7610729254226082, 0.7007969822424357, 0.6932125115676918, 0.6681954138884802, 0.8101018455646404, 0.8491948725182793, 0.8047295544092474, 0.8808298284709708, 0.7669783005164563, 0.7075505379836664, 0.6771868355924284, 0.813903553962545, 0.756756129777631, 0.7904014915103681, 0.8180780858685524]), (Prior_Ridge(), Cloglog(CRRao.Cloglog_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.10591680906926117, -0.04592499727868467, 0.001263547485849837, -0.03597755233817218, 0.08608609367098619, 0.010015648717570809], [0.09526917056818608, 0.15465142929287656, 0.004972108315164772, 0.12640646375301556, 0.05286336658635808, 0.025539742895206108], [0.003012675697905457, 0.004890507599659732, 0.00015723187048982998, 0.003997323364270451, 0.001671686431973317, 0.0008076375840395437], [0.007266689583224441, 0.008575134004116034, 0.0002190588172845978, 0.007208883099797897, 0.0028438576897183336, 0.0010384521817808075], [104.36056279560754, 151.17045239990958, 476.9496786039833, 254.34455997911422, 326.53555322350155, 437.45483514657565], [1.0001788547076196, 1.003793395962445, 1.0026667223863912, 0.9991096819074015, 1.0011958946314892, 1.000043213056341]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.023493011884191218, -0.41581758142892283, -0.008779182252725648, -0.33531657020854505, -0.0015356024028561472, -0.0427741670175793], [0.051768931729277864, -0.08011192771710932, -0.0018922825451226154, -0.07513062970735798, 0.0481639201324885, -0.006068526931142514], [0.07869404357554514, -0.01647931812438156, 0.0010782358837901, -0.013990600043518191, 0.07939768159302807, 0.011473387300835827], [0.1255596389144063, 0.026904720292346064, 0.004463480738318798, 0.03069305782310868, 0.11706773381491586, 0.026978961699393844], [0.37249748339471933, 0.16150705339521118, 0.011389359866892006, 0.1473418196328186, 0.20825766851877997, 0.056190431515684015]], [0.7784178578646697, 0.7183544933551324, 0.677356081159808, 0.7526318063413283, 0.7426496511092668, 0.7465309463564521, 0.7912005914419523, 0.890907665196206, 0.7770044959635972, 0.771097930303432, 0.9260357113075902, 0.8876847274480348, 0.7102938446509705, 0.679224772203509, 0.7918970908805266, 0.6778168837547839, 0.7546277688986031, 0.7008793457416702, 0.7188000003056888, 0.6790619886110261, 0.707189476427196, 0.7882987829766066, 0.8755387853874644, 0.7606765870407121, 0.8295163515233693, 0.9141744858039004, 0.7917350024001928, 0.7792504043012286, 0.6492921043964727, 0.9161089020893388, 0.7023668644767057, 0.7958128252518728, 0.7778323763287562, 0.7467438253699054, 0.7771973060596301, 0.7637812034637856, 0.8132686245796705, 0.7398420537877024, 0.688311071416568, 0.8419172148875915, 0.7371905128397116, 0.7273780013384036, 0.7704835128367908, 0.8140544837331556, 0.7929564019565845, 0.7591704856102524, 0.7276695551636639, 0.67952696682013, 0.8257322668082616, 0.6867339563336311, 0.7526872498030496, 0.7737963291450222, 0.7606912497715745, 0.6848336683392668, 0.7333853196177291, 0.755516037903133, 0.7955728734381816, 0.7376669633238974, 0.9355793631299728, 0.8807097160897857, 0.6861262377023314, 0.7736076062838133, 0.7814203201466068, 0.8624001859905404, 0.7290992365587724, 0.9095118132539044, 0.7871356192592724, 0.6945859888066406, 0.7040974282610396, 0.8545278727026157, 0.7508311257872035, 0.878399537347035, 0.8620933295847142, 0.7097165939863079, 0.7982123229846518, 0.8174049984823636, 0.6948235227106458, 0.6937494133920754, 0.7837994562980701, 0.722596987726874, 0.6793887060960265, 0.8095565232954129, 0.7052618319098611, 0.8267032618550736, 0.7232639930774734, 0.7562065883327497, 0.7183519000077448, 0.7089332658957581, 0.6738446323162293, 0.8024983018544538, 0.8352703552492632, 0.7999366042740368, 0.8754093271729309, 0.7565013273277629, 0.6907369662916895, 0.679754077355568, 0.7865760139070608, 0.7617725142288329, 0.799687915433379, 0.8039229829607497]), (Prior_Ridge(), Cauchit(CRRao.Cauchit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.3361916084390649, -0.28025107138510297, 0.0068987507162568485, -0.08346105668614613, 0.3063346721595821, 0.040807963332690995], [0.43475672893489303, 0.776484763797778, 0.015308256894535669, 0.3165922590079126, 0.23091838423599859, 0.07189719002678474], [0.013748214915186917, 0.02455460422018834, 0.00048408958793708714, 0.010011526280429634, 0.007302280477916764, 0.002273588778505822], [0.043403786149450764, 0.07931617340790305, 0.0009658658931271656, 0.013901283163000775, 0.019467223797983355, 0.004701151260671111], [117.89490673715567, 104.03840477861485, 245.55933927258536, 602.4862728180191, 134.79981570362398, 227.5771120620711], [0.9997713347669261, 0.9991360483350261, 1.0006164889746407, 1.0055481910512079, 1.0054825185373961, 1.0043249665036278]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.047132828249202174, -3.053975356867237, -0.017204841699613685, -0.8565746636474362, -0.015208929347470427, -0.08130238083378527], [0.12160818675250684, -0.3123271026056118, -0.002758959223465008, -0.19673761017875874, 0.12661991640909853, -0.004854164004220564], [0.2036475019014469, -0.07436703141211808, 0.005563887847055334, -0.04136991654303378, 0.2581956828617623, 0.03690007933749331], [0.361920230504008, 0.03804013521266607, 0.014782977032279907, 0.0707852905695323, 0.4408840098340702, 0.07852432215189392], [1.7912669630262643, 0.3501476042591449, 0.04137545765334752, 0.5208909358783789, 0.8509435379244598, 0.21686373861316527]], [0.8146242546307606, 0.7340843502100238, 0.6240460271322527, 0.7735010253522417, 0.7538262168809371, 0.7805396886142538, 0.8165810456492261, 0.8814056245009022, 0.7993370573918692, 0.8108268238956977, 0.8982973203179445, 0.8795285412970559, 0.6959866777436046, 0.6494514169086141, 0.8060860771009843, 0.6344473709061057, 0.784702230429123, 0.6991871629285126, 0.7263523520014096, 0.6375025037543155, 0.7126399841290232, 0.8071434571872075, 0.8728679021705397, 0.7795215907493995, 0.8483058807019362, 0.8898103099657141, 0.8185156067322742, 0.8085103573029956, 0.5581812159844051, 0.8872258845304336, 0.7037323462747094, 0.8202110342195885, 0.7935348770317054, 0.7742656961084281, 0.7968041876775278, 0.787652547562114, 0.8383766280232291, 0.7442581799756347, 0.665877968337202, 0.8509820050244808, 0.7677297019528846, 0.7319510572509514, 0.7839544958258782, 0.8398084611287167, 0.8081200885072772, 0.7725934148952319, 0.7495790221433446, 0.6491540269611696, 0.8320577354162221, 0.6519356404161919, 0.7762152557965569, 0.7912570524604682, 0.7894022811508935, 0.6622575237708666, 0.7465178386548452, 0.7743283345787106, 0.8188918312024289, 0.7685400812076724, 0.9049024835462822, 0.876237551605196, 0.6553387029148895, 0.8087591202488827, 0.8050089302654634, 0.8611593136721445, 0.7475362556104128, 0.8895460057798005, 0.8236192531301278, 0.6662029348045408, 0.7053977527758492, 0.8602482583634711, 0.7605232550204525, 0.8729462020786674, 0.8738129019316596, 0.7054485633711195, 0.8256422071786911, 0.8378340265544972, 0.6867407335828947, 0.6692146271255005, 0.8175383885336008, 0.7233347512226842, 0.6241347566357556, 0.8289670613718079, 0.7026116441428104, 0.8433999362529981, 0.7437937227947072, 0.7849612952730454, 0.6920402620049121, 0.7122054702320508, 0.6313676533861453, 0.8271447586446011, 0.8474091821974393, 0.8222932915496621, 0.8654497385891227, 0.7653394115449912, 0.6775131912737177, 0.6444707394900451, 0.8223542847590394, 0.7831700494344638, 0.8096500547801856, 0.8305708315812774]), (Prior_Laplace(), Logit(CRRao.Logit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.18499893177222884, -0.13075610444082336, 0.007880743062093321, -0.08895511694407594, 0.2119912463205693, 0.035290948071021115], [0.1871918515167273, 0.4362655368458815, 0.00961643768381584, 0.25491086461811086, 0.13437419962643005, 0.046778517091285304], [0.005919526102169031, 0.013795927610690959, 0.00030409846057932185, 0.00806098932516058, 0.004249285295816659, 0.0014792665957357625], [0.012284254439487349, 0.030422052544540886, 0.0005506621029180518, 0.01623479919003886, 0.010276207367516903, 0.0021090708662202455], [167.80478708522932, 187.85475403337142, 304.76106635468824, 170.5519443520007, 149.0798550265395, 301.661539996448], [1.0010390165735192, 0.9990154665008257, 0.9993412316836459, 0.9994945236821472, 0.9993461386645943, 0.9993635257375552]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.024284058394606692, -1.4302506879360977, -0.010469182106306612, -0.7629249586676741, 0.004770517603772514, -0.05685683710488217], [0.07396168420090465, -0.15888903056958195, 0.001273331558054846, -0.17512299022523528, 0.11291078272697382, 0.008407071841624918], [0.13148586486467673, -0.019473477733265177, 0.00753512011375757, -0.02555217830703494, 0.20109675381117026, 0.03428750590118122], [0.22222925364522206, 0.041160670017115306, 0.014453501678857983, 0.032487453558499864, 0.29524127001656386, 0.06232977128673712], [0.7291213329390587, 0.34489447298838183, 0.026591052124004953, 0.30890941815139733, 0.5079273434324529, 0.1358652657390487]], [0.8074101220419305, 0.7133316082931334, 0.6244868948156364, 0.7469563457103068, 0.7282178091977228, 0.7690684202331997, 0.8049587438888542, 0.908824725443251, 0.7811367777608431, 0.810382271902138, 0.935618052726527, 0.9058526968533432, 0.6761263518712104, 0.6627702072332088, 0.7957707658430998, 0.6284562549063561, 0.7639745018771065, 0.6996324383738409, 0.7228163037744783, 0.6378144865879212, 0.7217012886555674, 0.7925077538860132, 0.8952484725332422, 0.7602253376845467, 0.856459798464703, 0.9242107859389477, 0.8117372447826599, 0.7938321371436438, 0.5680423090865092, 0.9195404173902604, 0.710494517656983, 0.8103016988306114, 0.7764880988640676, 0.7607825199067471, 0.7974494023147125, 0.7658466555066901, 0.8392688558950632, 0.7124554093187339, 0.6891873107123871, 0.8620733481475544, 0.7589970751014483, 0.7118956958686308, 0.7637234685421925, 0.8420002887012187, 0.7938170056206093, 0.749488568110723, 0.7478726974004342, 0.6504880428614788, 0.8317182060725254, 0.6488533079119987, 0.7701743096072792, 0.779288284057592, 0.7736589192085541, 0.68756197390394, 0.7205789434118893, 0.7501682637113256, 0.8092672749277995, 0.7603606375806156, 0.9435607737680675, 0.9010318218257996, 0.6538989217491833, 0.7980913207483946, 0.7948201633347032, 0.8784177000510256, 0.7235664872273906, 0.92307074224617, 0.8251374177933198, 0.6475713408919246, 0.7197772006028371, 0.8740625129508673, 0.7432922782616417, 0.8971201678864059, 0.8990786226617342, 0.6907761687810386, 0.8198830149893015, 0.8375383891873243, 0.6804682493095362, 0.671965473445855, 0.8095317434098777, 0.7263173297156708, 0.6372443078305349, 0.8230632133773804, 0.7142564941394981, 0.8478260174435555, 0.746122142008166, 0.768934988685221, 0.6897112948851936, 0.6898120116415711, 0.6566335322769046, 0.8221914458008986, 0.856372634023894, 0.8134629845875075, 0.8869827211184781, 0.7600326938142635, 0.6909717310461978, 0.667515595596222, 0.8188102151845346, 0.7604858142087182, 0.799285188903873, 0.8266671663520054]), (Prior_Laplace(), Probit(CRRao.Probit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.12200974078868217, -0.07187694678685533, 0.004287491669694794, -0.0626894208326687, 0.1290476877421716, 0.02293313333429455], [0.09453340843110658, 0.2146753137516631, 0.005830648694816665, 0.18370886233070913, 0.06767053555745557, 0.03079104384254509], [0.0029894088562126145, 0.006788629488665219, 0.0001843813011190866, 0.005809384313233497, 0.002139930228449717, 0.0009736983007654547], [0.006851427331384145, 0.011231297057730147, 0.00025246487913097986, 0.010123408234041413, 0.0048138552721441324, 0.001990813906568882], [167.6636986178247, 351.99399039176916, 387.1502979360681, 335.95297010798396, 165.60277530806758, 197.99747441286186], [1.0038587842038682, 1.0002872262474543, 0.9999731656197076, 0.9990138515327365, 1.0050578902212575, 1.0048796933319508]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.02756848360688853, -0.6639609862395988, -0.007014068368027103, -0.5936382528535331, 0.007363562903901131, -0.032322647543048436], [0.06050750002703054, -0.14490015471192563, 0.0005438628540155333, -0.11045195818242916, 0.08359985091127087, 0.001457308965810225], [0.09448639404281858, -0.02297438964014384, 0.004084532435439013, -0.023150327023919857, 0.12782209598723424, 0.022414916023123534], [0.15352850417970101, 0.038671909205556534, 0.008190222120560618, 0.02645451051048292, 0.1701057203398832, 0.041143429316895214], [0.3938644713554648, 0.2721984903684564, 0.01653250845146961, 0.19691671327570376, 0.2688115050317241, 0.08909637964765364]], [0.8041307103850835, 0.7068725031384616, 0.6221544340356859, 0.7402631084070387, 0.7236206201189616, 0.7636626289578021, 0.8024150767479535, 0.916161260375207, 0.7777477692913105, 0.8076666186899895, 0.9485876749038755, 0.9142381691985675, 0.6720937682256626, 0.6593795861616785, 0.7949670750819505, 0.6247835032057022, 0.7587190190336244, 0.6935050944550155, 0.7179436001158798, 0.6348223147263461, 0.7182568683027378, 0.7902982457873676, 0.9029380502448825, 0.756747205968317, 0.8592564914516009, 0.9376104903549375, 0.8071346888201599, 0.7900769119286815, 0.5660899118074387, 0.9329130135120997, 0.7061227752313105, 0.8082223896690761, 0.7745254741783105, 0.7535454492716576, 0.7893103175779241, 0.761457732934236, 0.8385867260759013, 0.7059309947363561, 0.6837272142031938, 0.8670481645352655, 0.7544430672977124, 0.7080659213358167, 0.7605678366713784, 0.8413185711141506, 0.7919422742494422, 0.7455905836003576, 0.7419230030125631, 0.6447983696392373, 0.8342816708502843, 0.6446995907493647, 0.7627756542877515, 0.7773575473109684, 0.7699516574211113, 0.684442042340284, 0.7155048536026466, 0.745672061749668, 0.8076599058286722, 0.7558364334557961, 0.9547806821438822, 0.9095674383061264, 0.6507578654032509, 0.7936972057425603, 0.7930466956006886, 0.8861294437481537, 0.7160738007529277, 0.9350167323302919, 0.8218221958049516, 0.6433513602018649, 0.7166823209565578, 0.8784567149964321, 0.7401531522376712, 0.9065486214407827, 0.9055240801758971, 0.685735780049791, 0.8168064626937789, 0.8376950706622601, 0.6744125042358566, 0.6687454126251332, 0.805878298949251, 0.7174166286597367, 0.635925174589857, 0.8217412175050102, 0.7080238302197897, 0.8488395108501059, 0.741356263841259, 0.7619527021686495, 0.6891090020297677, 0.682743309033729, 0.6503842918498162, 0.8191786816793326, 0.8603413014661567, 0.8119199595049824, 0.8969192709051992, 0.758099472412712, 0.6871440005555917, 0.6610278927056298, 0.8157553143608509, 0.7561573869075372, 0.7988952465653009, 0.825069389383019]), (Prior_Laplace(), Cloglog(CRRao.Cloglog_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.11410681647752219, -0.0859973208188572, 0.0020532257209599945, -0.0503414789841447, 0.09845870562971507, 0.008897954477897678], [0.1255904459301863, 0.24038335753597684, 0.005207632583926532, 0.15444597601716978, 0.05590068980645724, 0.026822696364705526], [0.00397151861495613, 0.007601589214122878, 0.00016467980182515807, 0.0048840105966199724, 0.0017677350256296196, 0.0008482081349958788], [0.010292808525347693, 0.021683917187611645, 0.0002422340549393649, 0.010044953825945134, 0.0026967242539471356, 0.0017728532324806081], [145.6957935969622, 124.6543686128094, 447.30463356268274, 294.78440155288814, 302.79868716672706, 300.9922785153384], [1.0186015745733434, 1.011548213109439, 1.004117085135012, 1.0007084360974157, 1.0079094235119341, 0.9996165316912051]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.024265540742885075, -0.9188118156329264, -0.007409044434060008, -0.4712533431825194, 0.0029373290707322332, -0.04236713434142661], [0.05055989286170957, -0.10757407597056698, -0.00140133746583264, -0.0911718273590382, 0.05694376057982263, -0.006933307665793501], [0.0786739892558037, -0.020132652226052535, 0.0017957669246342085, -0.014925992721372624, 0.095827118410625, 0.007169977786047174], [0.12814446408333607, 0.023542528196859886, 0.005076669993286737, 0.023610390352864184, 0.13554370152609746, 0.02440185288229074], [0.39233072221255255, 0.15877791301468178, 0.013016721865178583, 0.16640302682565056, 0.21215522693663538, 0.06549669502917001]], [0.7863195325653812, 0.7186402029281576, 0.6581423435977818, 0.7571160559294288, 0.7355559665389375, 0.7542510146905407, 0.7973601372304855, 0.9123606677624071, 0.7782210210362949, 0.779475803482612, 0.9398940885488295, 0.906536257584684, 0.6963629094521742, 0.6727471527070096, 0.79070457936866, 0.6635622946627233, 0.7567171119547886, 0.7058491011105589, 0.7218301414865091, 0.6634952947935217, 0.7081242711973298, 0.7904011600329033, 0.892454527899426, 0.7556295148589318, 0.8384743542622963, 0.9266550202196612, 0.8090727590811424, 0.7848113517241327, 0.6304457025623649, 0.9297789522570428, 0.7048076748711575, 0.8026901794112726, 0.7800717046131361, 0.7595737357498435, 0.8021666379041744, 0.7634085014489206, 0.8270473638886892, 0.738303774153427, 0.6975857140719206, 0.8496946890391105, 0.7404254997922692, 0.7228973198028424, 0.7673198930081324, 0.8288320967324997, 0.7960221838168217, 0.754359481268993, 0.7390101996363123, 0.6766831074144054, 0.8322039780476544, 0.6811608769085024, 0.7694783962641802, 0.7684369165262389, 0.7588718240794772, 0.6862211322460885, 0.7266222246047023, 0.7520340445623598, 0.8002202997794878, 0.7413075258092028, 0.9507667656403617, 0.897044927538296, 0.6714286409719066, 0.7831650576200132, 0.7795056233531953, 0.8728506116847279, 0.7334716910712631, 0.9232370030984002, 0.8041374289297347, 0.680575314341411, 0.7057934263495937, 0.8720650652685694, 0.7412395850258139, 0.8907681172728644, 0.8755617454358482, 0.7081048672315844, 0.8125264585559208, 0.8289752963941966, 0.6945604664593507, 0.6877072914339578, 0.7946252964251385, 0.7409035927333971, 0.6564217181059078, 0.8212437436435723, 0.7170685872804595, 0.8415782164228838, 0.7315605748112081, 0.7685580908126463, 0.7026092073680607, 0.708387510184358, 0.6810263398447189, 0.8183764361454736, 0.8442825835816395, 0.8067978711365634, 0.8856397067915281, 0.74484174504286, 0.6904624051706616, 0.6886019396634872, 0.7986261860762234, 0.7600510867030803, 0.8010529514592885, 0.8151982775792112]), (Prior_Laplace(), Cauchit(CRRao.Cauchit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.2645523483658993, -0.1768855023376911, 0.00478526767528115, -0.11679462427163133, 0.3474868167023366, 0.03302801323946309], [0.3292307312401581, 0.5463956839328078, 0.013347819509772974, 0.3984162779846481, 0.22283330532302872, 0.06707847820305213], [0.010411189864416517, 0.017278548649131406, 0.0004220951144771472, 0.012599028953182876, 0.007046607833644933, 0.0021212077309960328], [0.021310348983693706, 0.03592595340659509, 0.0006136229229305165, 0.03143098497656626, 0.011520928414437777, 0.00415812957044078], [221.53480375519246, 238.83014591661495, 416.9217216388986, 163.1247736957968, 347.6484288804156, 232.1459915386374], [1.0014407292095058, 1.0029602011057808, 1.0003286810906091, 0.9992642486272935, 1.0025304978500547, 0.9991205719113511]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.05343006042745331, -1.4014960080474836, -0.019915488038100917, -1.1328516839637668, 0.011949654789959623, -0.0837650652714736], [0.11235368874942174, -0.23548867351049083, -0.003911380006028864, -0.2128167721641908, 0.183266392158364, -0.009425621929304172], [0.1769910820135568, -0.04819131365874632, 0.0036785155053528553, -0.034857932295885366, 0.3269563118422595, 0.02520874184382725], [0.3017671006541722, 0.049742165970894925, 0.012874796819735588, 0.059753551222951964, 0.47025491470677816, 0.06810433921745612], [1.0175429004731673, 0.3857329715429004, 0.03425604701956239, 0.4429024830093464, 0.8871734560948848, 0.18636838051602514]], [0.8150799687686043, 0.7285860076442893, 0.6110697685424166, 0.7849202124583312, 0.7642816338792103, 0.7744336249407101, 0.8265857189139753, 0.8947956605204146, 0.8108420880664032, 0.8030192064828603, 0.9118269524535833, 0.8924388646155369, 0.6994643053633532, 0.612877489371297, 0.8213431928793381, 0.6231425467109244, 0.7873598268936727, 0.6812331603523555, 0.707859182253087, 0.6172629909911608, 0.6796984638870479, 0.8210408877405166, 0.8853769429816588, 0.7880930910832317, 0.8567664580598827, 0.9042243190616882, 0.8282150457712009, 0.8158878198254879, 0.5438812657831004, 0.9044907479935717, 0.6749691182067229, 0.830663975783721, 0.8053287016381226, 0.7760025754234996, 0.8075097780795112, 0.7966411907214904, 0.8469208563728028, 0.7627731945618587, 0.6392454218731592, 0.8632343788224517, 0.7539537849095928, 0.7295006380690313, 0.8000465881798547, 0.847836862662095, 0.8245270835046045, 0.7868647177658711, 0.7372088623721033, 0.6310380172050883, 0.8498721841891682, 0.6400903006089287, 0.7779383707268896, 0.8004851029035164, 0.7899868388918434, 0.621151310265499, 0.7512205661088247, 0.7845782119477449, 0.8294170453179642, 0.7546273337785299, 0.9188015727095761, 0.8882727663132644, 0.63333550196528, 0.8112051539469803, 0.8118262039692322, 0.8754968385369117, 0.7506548396019528, 0.9023843114090391, 0.824778137504975, 0.6687299029340276, 0.6691557936647048, 0.8732380966457183, 0.7690358531879949, 0.8856540530580199, 0.8793789961655185, 0.6977379149004171, 0.8346869899509931, 0.8487089004739782, 0.670939784306018, 0.6440002844471205, 0.8218537171233834, 0.7249466914575502, 0.597231455375087, 0.8419385405454791, 0.6847118732422149, 0.8537016809807328, 0.7238282383574914, 0.7901065724309914, 0.6847032764738928, 0.7112169357795962, 0.6068006495112165, 0.8377316875836454, 0.8569072837457796, 0.8337442158876421, 0.8818342981059248, 0.7664233161780285, 0.6426317784091706, 0.6222135239674135, 0.8244062195489039, 0.7932842006093958, 0.828315475549933, 0.839115997914193]), (Prior_Cauchy(), Logit(CRRao.Logit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.12004714003665949, -0.22843523252281897, 0.010365790717924284, -0.08841605790373269, 0.21561765605482547, 0.024617592699232114], [0.18846851193867148, 0.745240472850349, 0.00919529284071721, 0.2693550196269864, 0.14141351390603302, 0.057285968532930505], [0.005959897649488383, 0.023566572987479783, 0.00029078069128906265, 0.008517753612206346, 0.004471887958709587, 0.0018115413853279489], [0.018070452398407325, 0.06109141349767335, 0.000731735160234977, 0.016485937020958935, 0.015542800240941016, 0.005143646170652252], [39.67872392730868, 128.03563014523908, 92.34151844479287, 280.32473845974414, 28.948868202723105, 40.956822333921025], [1.0021856824073494, 1.000071875921897, 1.0199096700278212, 1.0035832499939374, 1.016738738222773, 1.0192873600214538]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.01070782013609518, -2.619635202462987, -0.009260796454039785, -0.879228228910564, 0.026470859809193007, -0.040023612628061665], [0.01070782013609518, -0.10947606417931857, 0.004768443156039766, -0.1071002225234477, 0.10865805644586542, -0.008022847943572563], [0.05638142563842035, 0.014718450867131333, 0.013491392462420098, -0.015711404772377775, 0.17609997286720275, 0.004105384727982206], [0.1376478261997446, 0.021712661151245705, 0.013498752395760889, 0.007261179998213663, 0.29799975823254987, 0.04821910717822947], [0.5921305335272525, 0.2797492996218461, 0.0302231831659334, 0.28298644460113087, 0.5430116690725212, 0.19140644137848653]], [0.7869378704658875, 0.6996210745628885, 0.5827984475801122, 0.7246680852488256, 0.6846687368710236, 0.7616849895146651, 0.77354582075409, 0.89429410089918, 0.7433379162579221, 0.7965328588167183, 0.9106820449588817, 0.8846003833608019, 0.6307392946663752, 0.6556230633644454, 0.7468391524808439, 0.5982206752766823, 0.7385268040443207, 0.7065497074375923, 0.7107992650783294, 0.6055309549461215, 0.7207738143947099, 0.752288162288819, 0.8692422727870427, 0.7151385954521237, 0.8204938587807681, 0.8914568238464122, 0.8038227923170126, 0.7658225827740699, 0.5399624620187901, 0.892862073072863, 0.713762933031576, 0.778850032179222, 0.7343553427180967, 0.761882506891481, 0.8067892211643669, 0.7298644481024493, 0.8178349621767139, 0.6801243063864867, 0.7134810155151344, 0.8198010733962218, 0.7472926362730354, 0.6752867809927575, 0.717452664599997, 0.8226131954933986, 0.7536185035971282, 0.7040284528561294, 0.7574922753020987, 0.647685590872579, 0.7896599668490424, 0.627248209551911, 0.7727184248124574, 0.7285526852827348, 0.7379500634616335, 0.6982928954364576, 0.6826599697843244, 0.7099763244768765, 0.7730632407229032, 0.749435425351086, 0.928975971822186, 0.8736462343664874, 0.62124930697937, 0.7821866903428932, 0.7497853029110934, 0.8385652313943264, 0.7124155874918676, 0.8917879274797594, 0.8212272864014776, 0.608549004258895, 0.7226452308638951, 0.8511676995454331, 0.6914785585063757, 0.8605858448685515, 0.8694067599076905, 0.6685764267178804, 0.803838243011837, 0.8097206896066712, 0.6770492258995776, 0.6489757641178371, 0.7922399468490814, 0.7492375499760848, 0.5880624789110303, 0.7971861575377561, 0.7353096354440618, 0.821260619516862, 0.7527143966571634, 0.7642751233934046, 0.6307160004942892, 0.6766507460038315, 0.6812095400434395, 0.8076895906877795, 0.8156602942681795, 0.7804553252611579, 0.8454656884817794, 0.7026661526723469, 0.6938073892325783, 0.6930225282178205, 0.8040160345935812, 0.7219545480968959, 0.7528909274010873, 0.80261797464535]), (Prior_Cauchy(), Probit(CRRao.Probit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.0784680455576405, -0.0955670341529727, 0.0048750413991180686, -0.04675667967775613, 0.13147240272780836, 0.01960005050419522], [0.09350072620022815, 0.3229079179200943, 0.00555829887596169, 0.16579572015534075, 0.07121828043474296, 0.03188636618389909], [0.0029567525767250176, 0.01021124495130199, 0.00017576884363992666, 0.005242921019987624, 0.002252119772143944, 0.0010083354344729253], [0.005054951184127824, 0.01936399997928342, 0.00027719763904930503, 0.011818008120346746, 0.003535480832750833, 0.0017990262794947782], [300.3991031937388, 237.31541712922083, 442.40889781328895, 187.63214858977437, 318.26890163298077, 348.58774915723734], [0.9991367970757935, 0.9997121645844441, 1.000350888233927, 1.002166259955408, 0.999481017934815, 1.000394301069767]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.009096420306202394, -0.8777645988027933, -0.005531150391363014, -0.4791447924318447, 0.010714258873643186, -0.034846754986101576], [0.02695882851888604, -0.10226209317897933, 0.0009547893460191494, -0.0687154682025923, 0.07770331800572088, 0.0005849698181182848], [0.04922634076184616, -0.010152568688747018, 0.0048208152749300275, -0.008612951757884665, 0.12757785508570527, 0.015900564370029627], [0.09397969030051365, 0.01998320775837568, 0.008774347212580191, 0.02272196465605502, 0.18021839640439627, 0.037316243075044254], [0.2914325057705405, 0.20589342968934665, 0.015413411930158827, 0.16593574424958488, 0.27633062081785403, 0.09322313298751883]], [0.8017763011663762, 0.7030663076440022, 0.6122549580578385, 0.7371261184367615, 0.7169174802868827, 0.7620003226655184, 0.7992914277945214, 0.9178437223171897, 0.7732037291583813, 0.8052262576384208, 0.9473206200059154, 0.9144837139660835, 0.6635967677175245, 0.6537476915229018, 0.7895742723259693, 0.6164466258647558, 0.7549217457759898, 0.6919565485434999, 0.7129718325901617, 0.6261165528350395, 0.7144594668141221, 0.7858149669080681, 0.9022965624081973, 0.7506635173949613, 0.8563460453345564, 0.9353198577185795, 0.8082523405601945, 0.7870008379686568, 0.5568646862360387, 0.931204336245499, 0.7032782593847952, 0.8052509470087397, 0.7675311169189556, 0.7540796325160364, 0.793196555387122, 0.7566368695641971, 0.8377510428049494, 0.7009918380452669, 0.6843769302827007, 0.8636218738554359, 0.7511244979043459, 0.6995829380959926, 0.7546689308638176, 0.8408463399387415, 0.7875418521664178, 0.7393594239464278, 0.7422883255337785, 0.6406532015844161, 0.8304576508541422, 0.6361398882837566, 0.7632092771092, 0.7711570089645202, 0.7648450788422553, 0.6814401678220657, 0.7090567482735141, 0.73995184102386, 0.8039932025712345, 0.7526391724623034, 0.9553130389429498, 0.9086424538104677, 0.6423416719423473, 0.7921656204245536, 0.7877048795419607, 0.8832317395636532, 0.7135449920253176, 0.9323776955147581, 0.822840460000835, 0.634891074981535, 0.7131408781303018, 0.8782866006924518, 0.7329174480230093, 0.9041317530588284, 0.9035583896446412, 0.678502995067125, 0.8165230211268132, 0.83594081594168, 0.6709014981065136, 0.6603594276454333, 0.8045930170258873, 0.7214254451947409, 0.6252076626082076, 0.8200666989935527, 0.7093405108346443, 0.8465348117401992, 0.740314372561505, 0.761977049264348, 0.6772915103570081, 0.6787943463780086, 0.6507198895809974, 0.8193811230292037, 0.8559136250015743, 0.8088494255916604, 0.8937688258445682, 0.7504521526508526, 0.6834986616814177, 0.6619206752444027, 0.8147741365159717, 0.7509153449804299, 0.7938940594349564, 0.8235071870831779]), (Prior_Cauchy(), Cloglog(CRRao.Cloglog_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.05951644945064008, -0.19507136813117917, 0.003569894575738503, -0.03646632236010713, 0.07704771219467307, 0.014773753284151822], [0.0975369833778026, 0.483118684584912, 0.005923626582774252, 0.12464735060509838, 0.06280426077452719, 0.033050269882619054], [0.0030843902357583974, 0.015277554234728007, 0.00018732152009886573, 0.003941695322176781, 0.001986045108106766, 0.0010451413011234203], [0.008911863254832788, 0.051538801993475984, 0.0006273579792347692, 0.007522520944839264, 0.008025236809314204, 0.003044250488150954], [62.870958737170845, 64.42244822079871, 9.80977663042554, 290.18964711343347, 9.323751313776363, 87.78871829317166], [0.9998705006662605, 1.0044548321557039, 1.1488300708457309, 1.0042014481082668, 1.134424794804455, 0.9993603603811813]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.003163137248086445, -1.8022197915197786, -0.007080929619812243, -0.4198188244323554, -0.00669287616656912, -0.03577994382252508], [0.008172663894025824, -0.11265908833122423, -0.0008062733164566383, -0.04281223211874632, 0.011327165475163138, -0.0019614717695531454], [0.022008276980726067, -0.007728205662650974, 0.0035688963865054806, -0.011027652140660944, 0.07711381174287255, 0.005709879233465925], [0.07205226161803607, 0.005586310867846785, 0.00783926039818857, 0.011594541694245529, 0.12332440385507734, 0.023746325869885718], [0.3124901357696538, 0.1537196458073125, 0.01538002173284578, 0.15871951421309155, 0.19810098971789256, 0.10456725613535875]], [0.7834333451922593, 0.7189482563899251, 0.6653891217090068, 0.7389314940571884, 0.7254921223714532, 0.7571261848336377, 0.7800225472679646, 0.8777371675536184, 0.7615645389137052, 0.7863688787617978, 0.8986376481067522, 0.8727369405517013, 0.6939961330218323, 0.6913891596713576, 0.7715694773814669, 0.6675812551526642, 0.7510092017471078, 0.7135434625725677, 0.7289271616494207, 0.6738301918535566, 0.728451144159132, 0.7695918273077704, 0.8608751693188945, 0.7470968142149589, 0.8217512004544821, 0.8853858052352723, 0.7890715306525888, 0.7719951479957401, 0.634205180142491, 0.880641280356576, 0.7210946843544209, 0.7841768294316636, 0.7606262316432433, 0.7521186982154751, 0.7828962887132624, 0.7510185814635433, 0.8093251682095532, 0.7153281543017389, 0.7099453997812899, 0.8259421849463784, 0.7504703109769763, 0.7189776588659476, 0.7485088854845194, 0.8119569166435194, 0.7703977081948744, 0.7390232542572822, 0.7450663103578834, 0.6825276335523677, 0.8000536346989984, 0.68189183895362, 0.7609057531358758, 0.7603943387783524, 0.7576875078338257, 0.7085869552590008, 0.7213008958482893, 0.7399911381115531, 0.7829162839316139, 0.7514786814691846, 0.9079470780994824, 0.8660654625002258, 0.6835222696150624, 0.776777780300157, 0.7719118707104833, 0.8412997167702488, 0.7251238838343281, 0.8867386499397246, 0.7995212809948572, 0.6772592423813273, 0.7278254075574689, 0.841279108970264, 0.7359017950727257, 0.859484422757957, 0.8605563623082875, 0.7066806851046665, 0.7940405440778258, 0.8070062435541103, 0.7002752115167883, 0.6970945268387269, 0.7853696766668067, 0.73318173227302, 0.6745261993107251, 0.795251006534129, 0.7248969338773236, 0.8183475730855135, 0.7439875489533785, 0.7568965263345896, 0.706295350104475, 0.7039110958063927, 0.6899765681266861, 0.7963955254967299, 0.8236396903852115, 0.7864799887091811, 0.8486107707516382, 0.7483214697216702, 0.7093310913930195, 0.6965894887423223, 0.7929495808466838, 0.7470777366814446, 0.7739630000830665, 0.7983103452239078]), (Prior_Cauchy(), Cauchit(CRRao.Cauchit_Link), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.22113769779702072, -0.816202098056393, 0.010029087588992937, -0.15560420319887677, 0.4703762700147537, 0.05049859162348941], [0.2778711007855549, 1.8276443672090426, 0.017155999356557344, 0.5312270458067184, 0.2956134383970143, 0.11131949364696402], [0.008787055744205564, 0.05779518953157729, 0.0005425203350310438, 0.0167988741943183, 0.009348117722884398, 0.0035202314790105014], [0.025360938894191203, 0.17111571863566014, 0.001459610211167415, 0.05376614476971942, 0.027295929961453712, 0.009776502951340721], [95.470772782068, 99.16303780354586, 134.9198792239559, 76.89148208289124, 96.59656062567232, 134.4724504221614], [1.0080395839986858, 0.999655042988398, 1.0035368031992695, 1.038467216627089, 0.9991114568303994, 1.001355110028292]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.01940406621565604, -6.23116242345987, -0.01586848407000675, -1.9177716558277662, -0.00040638701810110506, -0.1002808432217804], [0.050844347163699254, -0.7243755971969947, -0.0020554709685695945, -0.20705974745331057, 0.2594925761874848, -0.0072814400291820024], [0.12861999592227327, -0.08917015422200959, 0.00776552776427525, -0.03847856720466722, 0.42710405426981934, 0.02274751854433242], [0.26265821895222935, 0.006805973482934519, 0.01848179371860421, 0.030755364290359376, 0.660732098222522, 0.09179043204049514], [1.0038847369613402, 0.23434509574012616, 0.05004363293825136, 0.6343877685195292, 1.0816493544027355, 0.31432453143426337]], [0.8329068093308651, 0.7284915853517281, 0.553731585754317, 0.7852221216477673, 0.7614076888861132, 0.7922387519364281, 0.8400369992314202, 0.9082885914293373, 0.8207322843571332, 0.8224375448865594, 0.922583510587441, 0.9058916073805567, 0.6717442440454189, 0.58613225767648, 0.8318086226152184, 0.5680923798336414, 0.7989671592082871, 0.6825719041233184, 0.7066803126199704, 0.5679071636450558, 0.6817446985334484, 0.8311936385375239, 0.8992631008623065, 0.7955177864411241, 0.8724763261110222, 0.9153578324969014, 0.8453606241039882, 0.8297325426513756, 0.4684068530189585, 0.9141279700647084, 0.6776870960594359, 0.8443111597107504, 0.8115457486093605, 0.7932834252967278, 0.8233847783864469, 0.8052304784105151, 0.8636940030086476, 0.7399907281986884, 0.6413320312082761, 0.8774085931806186, 0.7679332955803808, 0.7153316591260936, 0.8049120863437675, 0.8651556666160296, 0.8332234662162878, 0.7892166484087669, 0.7579993717803037, 0.597229511352686, 0.8609556974540015, 0.589010240855747, 0.7935239461480404, 0.8106149876128571, 0.801978775980354, 0.6149674112722171, 0.7478698864648811, 0.7889656626513714, 0.8427626973962754, 0.7690215277306187, 0.9286563130568138, 0.9021023150632798, 0.5949843984197828, 0.8288756826480976, 0.8245427858106064, 0.8886448610573251, 0.7500198246226998, 0.9144847069831895, 0.8469928461714806, 0.6225115443202646, 0.6708044219078444, 0.8876445098727473, 0.7722623890224296, 0.8990094257124468, 0.8957448407767155, 0.6707867581108659, 0.8512716243237821, 0.8637160309423484, 0.6562070717491506, 0.6068048858982852, 0.8395660251139317, 0.7390017457397408, 0.5507319320677788, 0.8552357073676963, 0.6992177773841605, 0.8690770279593508, 0.7407278920089589, 0.805327492759091, 0.6635749849849665, 0.6939269000206973, 0.5893468963614098, 0.8537697135648755, 0.8722758811155154, 0.8470501083234017, 0.8939449514046233, 0.7727696915832742, 0.635546760725732, 0.611737448583524, 0.8436286456237978, 0.8002027795580509, 0.8371266827558262, 0.8551783837859713]), (Prior_TDist(), Logit(CRRao.Logit_Link), Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.27954949276923285, 0.5905850178329072, -0.08973475164283885, -0.6669645533094363, -1.678105206110153, 6.058735045041184, 1.2925046322421494], [0.0024917148181340287, 0.0015398173029084934, 0.008967538972571671, 0.01336823812273623, 0.007038795513563654, 0.013866531218981648, 0.0254613071847702], [7.879494104895755e-5, 4.869329857728256e-5, 0.00028357848159652697, 0.0004227408077134005, 0.00022258625807035758, 0.0004384982189781307, 0.0008051572290908345], [0.0004340740500264184, 0.00024480205949683066, 0.0015864390570918972, 0.002375741775819175, 0.0012296494838807362, 0.0024494817763775455, 0.004528211791325856], [3.28194075293991, 12.897550092706359, 2.593843027616207, 2.212632656062353, 6.166152733950905, 2.3070498198394382, 2.213626070779932], [1.4099645514670902, 1.0290578678796822, 1.9612095090017407, 2.773534518492595, 1.0303391438686047, 2.520060287029737, 2.745610231801574]], Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.27535443764441997, 0.5872698812287319, -0.10160060684160463, -0.6885418482829786, -1.6887642106782252, 6.032569921613352, 1.2502248309523392], [0.27731213259326426, 0.5896932684858438, -0.09804394433321087, -0.6772465482135323, -1.6845984410383075, 6.0453066019218875, 1.2718246539090912], [0.27982892302909, 0.5908190325861287, -0.09292790369261286, -0.6702481400652374, -1.6785955240962904, 6.064496622415465, 1.2979970796787792], [0.28119561083388234, 0.5916999877100784, -0.08089769291207807, -0.6555975882890459, -1.672322726648146, 6.0695268985989435, 1.312466282491688], [0.2850430843310484, 0.5931187315623115, -0.07481760254031404, -0.6441323974457193, -1.663255872620899, 6.081402757510044, 1.3304967739284486]], [0.03786682720445959, 1.0944703023168398e-5, 0.8262112739300799, 0.9818521813510735, 0.9999991196910409, 9.308426220340889e-8, 0.9999978948325274, 0.9999999999999521, 0.9999998789140271, 5.37174882459503e-7, 1.0, 0.9999999999999913, 0.9999342228354747, 1.9486623526979408e-11, 0.9999999999970718, 0.018311987623466378, 0.6788871569086675, 3.934252514905249e-13, 2.4482588531796122e-8, 0.003935333288502787, 1.4266343001647012e-13, 0.9999999989487076, 0.9999999999998507, 0.9999998855091936, 0.9999999958892605, 1.0, 0.14616644873180157, 0.9994199502092258, 0.008050329650362502, 1.0, 7.357345713855297e-14, 0.9999992576689269, 0.9999999949743524, 5.255638052829404e-8, 2.4869453760106763e-7, 0.9999907726301397, 0.9996106533565003, 0.999993386091869, 3.690728210832267e-19, 0.9999999999998955, 4.311237689568064e-8, 0.9822083937433118, 0.9999999997368505, 0.9971305616492881, 0.9999999999312801, 0.9999999937487466, 1.177758150158598e-13, 3.7316303591425575e-10, 0.9999999999999994, 6.847083468607753e-5, 1.0991696244673046e-8, 0.9999999991831208, 0.9978330059590678, 2.806860490208529e-17, 0.9994735476461186, 0.9999987663664681, 0.9999999540521106, 2.3008685218421938e-8, 1.0, 0.9999999999999649, 0.0031316405170605226, 0.009125682304878103, 0.9999999682568751, 0.9999999999999999, 0.00013949332025855758, 1.0, 4.798700190501367e-7, 0.9949124618071806, 4.2210057392476266e-15, 0.9999999998890602, 0.9999999895762532, 1.0, 0.9999997124925604, 0.0006214787054985503, 0.965163471071343, 0.9999998114777192, 7.18361651148722e-10, 4.387793310068213e-6, 0.14724634508129691, 2.1768074374032663e-14, 0.802563962848363, 0.9999998263469333, 2.4210100885206916e-17, 0.9999998670830189, 3.2926624694492675e-14, 2.920675907113411e-5, 0.9999995089556237, 4.4327661821136845e-5, 2.239830400263444e-18, 0.9904464639707392, 0.9999999999926639, 0.9999999351450936, 1.0, 0.9999999923357442, 3.04497558203566e-14, 1.7476739692978274e-18, 0.0035753623439311426, 0.9999985118564646, 0.9999999999998097, 0.9998098577178949]), (Prior_TDist(), Probit(CRRao.Probit_Link), Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.599076333866328, 1.9787382266737652, -0.8055408289645086, 0.01002230678626819, -0.24180073862782958, 0.1839735499853874, 0.06121397615398301], [0.2856123399948268, 1.7428157065308936, 0.7956444045549765, 0.00761243032109591, 0.3720221918864641, 0.07292281120721503, 0.052830470101931606], [0.009031855222340566, 0.05511267174553215, 0.025160485259621744, 0.00024072618343990001, 0.011764374664894396, 0.002306021767972524, 0.0016706461537953179], [0.014896403216655387, 0.08482691288119937, 0.04250821890564316, 0.00026104599889207995, 0.013374529160680017, 0.0030813728387436715, 0.002609254375684964], [431.44905245335775, 409.3579095242916, 327.53676051731384, 625.0400752132805, 671.7573837873938, 610.8525314786733, 451.62671753748936], [0.9993123393766267, 1.0011223410015366, 0.9990362857955626, 0.9990049193611572, 0.9991578246569383, 1.000876651336263, 0.9999020364507392]], Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.2742630166772164, 0.5187477714436857, -2.6744295887511704, -0.004541123440349259, -0.9713613658882078, 0.04789818287555779, -0.026834177532092694], [0.4191256839411058, 0.9927144910514336, -1.2688697075775894, 0.004910940686006405, -0.48892615526828653, 0.133285126051701, 0.02401308619027333], [0.5302620725302598, 1.5021331315507307, -0.6284544679585757, 0.009516366993248808, -0.23507664694666705, 0.1799343558629096, 0.0577894657873659], [0.70048551033792, 2.3370377658766923, -0.22737752294826297, 0.015117080768477264, 0.011164588728015585, 0.231236176457236, 0.09226478673058389], [1.3200563813167254, 6.35152635354143, 0.36371778175500946, 0.025236165341187222, 0.47770524163283645, 0.33367523149697964, 0.17514352233954192]], [0.839343648769439, 0.6583089434534756, 0.5147357839530853, 0.6703578570478269, 0.6689778057293405, 0.7801641019993146, 0.8054209760895413, 0.9499658063433932, 0.7604010914200402, 0.8627111518895707, 0.9807320168150722, 0.950901166314255, 0.5860965292280924, 0.6219347612439693, 0.7940813875304229, 0.5036060317238809, 0.7489850588348247, 0.6544975079171345, 0.7514871554935121, 0.5475163603814214, 0.7432374434297555, 0.775791487237771, 0.941130897144983, 0.7440808826681855, 0.9036407234144456, 0.9730874957140468, 0.8010205932823554, 0.792035758646571, 0.3907606236111884, 0.9626781926116746, 0.7083611129570034, 0.8136854911743305, 0.789136516485877, 0.7294111842620729, 0.800218162863719, 0.7383256116352549, 0.8669638170387185, 0.5844981957316215, 0.6523400207366342, 0.9072055423097874, 0.7820198304465544, 0.7062638776055155, 0.722216382442747, 0.8726256572826889, 0.7659954541794471, 0.7002907329040482, 0.7481126439418372, 0.5454494466113793, 0.8366630003000709, 0.5926160582955002, 0.7861436644046155, 0.7887851333429904, 0.786012019642692, 0.6852918893687704, 0.6646182974667239, 0.7080703912378847, 0.8172574549315242, 0.7848105737594048, 0.9836374097796606, 0.9498218872722304, 0.5871012757006265, 0.8126359197667965, 0.8161827440109756, 0.9236994040921279, 0.6483128784287707, 0.9757843648646934, 0.8635173806111456, 0.5197269145594734, 0.7452657484936075, 0.9074450422724323, 0.7233895816021536, 0.9484698366998776, 0.9562640197551302, 0.6668833516703949, 0.8255004491356375, 0.8586699575460068, 0.6073222133617757, 0.6689916797792874, 0.8279630527783136, 0.6525731079562513, 0.587334821954496, 0.8192919066519293, 0.6867971127103457, 0.8955266423937325, 0.764960481904518, 0.7339765391010968, 0.7029267890242956, 0.5905075997176727, 0.5697479870475632, 0.8207129627688718, 0.9176870600293491, 0.8169329513649732, 0.9330263212003306, 0.7848797137274017, 0.6788275362135346, 0.5889701514858771, 0.852281613656884, 0.7265874728873692, 0.7800266670506968, 0.8462027650009415]), (Prior_TDist(), Cloglog(CRRao.Cloglog_Link), Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.5885103192108735, 2.1449284285853, -0.832659287888796, 0.008333619227867198, -0.2501168965582646, 0.14415771284012635, 0.046819270022451544], [0.2784081385799435, 2.5156481024862116, 0.7476781325350763, 0.007002083469970085, 0.32570355346497376, 0.05716888627083634, 0.05057335224275345], [0.008804038370404178, 0.0795517779533712, 0.023643658555120843, 0.00022142532131720684, 0.010299650709597439, 0.0018078389191097254, 0.0015992698199708564], [0.01385849712843685, 0.12808988842871913, 0.029219058778015464, 0.00019814016783813174, 0.010208349139657418, 0.002201800221856067, 0.00225742368496782], [475.0963111257973, 333.45582260250575, 461.0532897487925, 830.5738002937888, 720.9479800781676, 736.5061084782752, 534.8033041794229], [1.0016604639581423, 1.005042111471815, 0.9990081279560473, 0.9993044907263039, 1.000612532971151, 0.9990496537760541, 0.9990979556765377]], Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.26161440089218135, 0.5645425517000547, -2.5575583049295276, -0.00551176240187122, -0.9428645433390095, 0.03993729955915587, -0.041550428971545456], [0.40405980783802536, 1.0393523839238847, -1.2624650530027317, 0.003458157466939922, -0.4481375767045678, 0.10406414312002427, 0.010625281399836282], [0.5252021431692523, 1.5382674164309247, -0.6783064902058462, 0.008075432980733429, -0.2243228226235728, 0.1441383010604549, 0.04247200667204208], [0.6963232557092308, 2.4205768865154855, -0.29280646293744417, 0.012924334194373825, -0.035066652054037604, 0.18404474712054988, 0.08103280355049171], [1.2830960046724216, 7.600353847982888, 0.2575068926677904, 0.022189188363706897, 0.3561279432796764, 0.2561682300096439, 0.14977961331219783]], [0.8178675063505255, 0.6603000461613323, 0.551343669682282, 0.6701040814451745, 0.6644517204063249, 0.7640259207062556, 0.7827487851875785, 0.9412307337948038, 0.7407454979640553, 0.8429685442509549, 0.9791890433196347, 0.9430965798000416, 0.6019460852460407, 0.6342883190695621, 0.7699884704370866, 0.5447530730395491, 0.7323421994866831, 0.6619684220741276, 0.7606332156424844, 0.5754895634305498, 0.7346999216946216, 0.7543822286451758, 0.9311711892343157, 0.7256978318731991, 0.8842044700856984, 0.9699492409835416, 0.7841116754776901, 0.7705728905732414, 0.46659559822655794, 0.9569815872837241, 0.7051224352316284, 0.7907002544496746, 0.7869229841058143, 0.721995076515734, 0.8079005301002335, 0.7217160829485041, 0.8463366324464263, 0.6050518764674819, 0.6652094895071726, 0.8879300535131871, 0.7656184386785007, 0.7181916039926018, 0.7073765362838849, 0.8527221745856578, 0.7462803032706957, 0.6893113275097497, 0.7398691794178973, 0.5786185315720329, 0.8129370689691033, 0.6330985991020547, 0.7937631094503488, 0.7651805786890563, 0.7644322230007282, 0.6886001220949084, 0.6615334517209918, 0.6960080512717018, 0.7933702729955802, 0.7683454063229707, 0.9813217475021132, 0.9416205044503857, 0.6043173666460172, 0.7922721121970903, 0.7914460871188271, 0.908504926235029, 0.6540783573198022, 0.9748766147989328, 0.8458555342331405, 0.5553972150547775, 0.737557439105559, 0.8914815049803709, 0.7079408235785656, 0.9387395438305884, 0.944883295923175, 0.6895565489827794, 0.8051548610760331, 0.8366935195889754, 0.6235616335972012, 0.6912406449482446, 0.806927172134462, 0.6676798211805458, 0.6045517807784873, 0.7979146418673233, 0.6918488171274891, 0.890730813850045, 0.7544427314570393, 0.7247215037228603, 0.7128661086923663, 0.6100633971891007, 0.6028389336139132, 0.8012594342484254, 0.9101170179141106, 0.7937010879724273, 0.9199697519055798, 0.762388522417027, 0.68103787716242, 0.617483308989783, 0.8320297730504763, 0.7115231965571148, 0.758056174363283, 0.8241589491889174]), (Prior_TDist(), Cauchit(CRRao.Cauchit_Link), Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.7502813721338026, 1.7268753606626102, -2.110524833858577, 0.01757120775771965, -0.34117027231224156, 0.5852043931818921, 0.1254142136682717], [0.3464931882361981, 1.3489586012564487, 2.1998271754677896, 0.019939280043221687, 0.7439804858016438, 0.267135786328431, 0.12922100523137817], [0.010957076685598465, 0.042657816492452524, 0.06956464333213097, 0.0006305353984052114, 0.023526728698517563, 0.00844757529337911, 0.004086326980676885], [0.020698608005422447, 0.06114423501840871, 0.16146078888539311, 0.0011353679092219802, 0.02853633615848381, 0.014772390854109098, 0.007993179294700323], [283.25837061663856, 440.8563238505498, 170.79585365651855, 321.0907985011204, 438.889521653114, 346.1832138531068, 243.2247993456209], [1.001169213156436, 0.9990827949819434, 1.0020466023929482, 0.9994187439403873, 1.0017226586609576, 1.0034908941471417, 0.9994485616743725]], Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.30381507422273113, 0.48910370119420243, -7.2796084725688734, -0.016498601081874564, -1.996541180160363, 0.17194976515557484, -0.09123425714411301], [0.5167930880648993, 0.933805705774434, -3.376774068893896, 0.004663333644445089, -0.7251940012090379, 0.40070992427682794, 0.0361702451437159], [0.6776650958133821, 1.3406001322129673, -1.5365374318546738, 0.01551368008757849, -0.21621711851307002, 0.540749298244189, 0.11074689371173715], [0.9005610959733523, 2.016927624126062, -0.4756802102152989, 0.029883881014020425, 0.1091136171468545, 0.7386679282696835, 0.19663665386823723], [1.6937823713664946, 5.614602477597119, 0.6170417375528902, 0.06151910145776143, 0.96179364910429, 1.1878402343009602, 0.4249407279741932]], [0.8585130230445192, 0.6984814275951631, 0.46423185317756077, 0.7525788915749827, 0.7455856187101831, 0.8103696697708263, 0.8560630811928868, 0.9302046175377655, 0.8306413508179948, 0.8582529238769706, 0.9462141227359722, 0.928601373545497, 0.6130465773825823, 0.5591108080719657, 0.8516723586465073, 0.45224149484914705, 0.8082456838515457, 0.6448626003194585, 0.7292473037785664, 0.494382065964623, 0.7202597058875103, 0.8434936128919434, 0.922601314617142, 0.8095677866286928, 0.8997374526213462, 0.9404956679044503, 0.8520593206977468, 0.8445622826750007, 0.31666956539944946, 0.9395311963040266, 0.6905144109343645, 0.8611282184683751, 0.8315819089317724, 0.781980540859938, 0.8249688373387241, 0.8111428009056992, 0.884254411147146, 0.6557711392898993, 0.6000324656145923, 0.9047238527022128, 0.79822126075052, 0.7158650982502283, 0.8064814280150439, 0.8860301237274866, 0.8414691638201508, 0.7845628308538114, 0.7641250673480158, 0.48804420722743286, 0.8805661704099982, 0.5218346465546734, 0.7984266030701068, 0.8369361355043138, 0.8270908837099572, 0.6224267857068391, 0.7307902034787751, 0.7870736531869285, 0.8621415165330417, 0.7997948289743289, 0.9515640181900559, 0.9259638646173196, 0.5515789315302401, 0.8471815234264495, 0.8525151258565778, 0.9146917777837023, 0.7033823344430299, 0.941556331762566, 0.8697868437405594, 0.5114638012082402, 0.7122573974954641, 0.9088582528028784, 0.7863672219220335, 0.9249035189634136, 0.9231816623711485, 0.6412785218145222, 0.8652946363686429, 0.8837846005370379, 0.5895951572250072, 0.6036123478830198, 0.8586162842668577, 0.6711104400632598, 0.5379750351604633, 0.8687787024492336, 0.6715213176815757, 0.8959059430052256, 0.7652448331241125, 0.7960437132462491, 0.6924743769078756, 0.6089733544732675, 0.49215047992467637, 0.8654325092353566, 0.9052051775056856, 0.8641562984825265, 0.9205194078888598, 0.813340398068727, 0.6379363691117412, 0.5232110352483729, 0.867085980296144, 0.8033007577367525, 0.8503067041589419, 0.8746194903417255]), (Prior_HorseShoe(), Logit(CRRao.Logit_Link), Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [6.9336810922351315, 14.171914219031612, 1.081044042888556, 0.20061000334911705, 0.9653448394005423, 6.964656681960666, 0.810491104139185, -25.649905696499815, -2.1728864540021386, 0.7887667436052198, -2.1017631778565344, 9.370785251664707], [0.03358221023690358, 0.037964509102276105, 0.0031710140491672525, 0.0007256774558593315, 0.001861539279165776, 0.0303047010202353, 0.004577889822918087, 0.002652782422632593, 0.006358176258025836, 0.0030990083480993925, 0.004875789437204131, 0.013301531347814791], [0.0010619627321123803, 0.0012005431901338682, 0.00010027626887761679, 2.294793607151789e-5, 5.886704076031882e-5, 0.0009583187903437197, 0.00014476558717726044, 8.388834592378402e-5, 0.00020106318740168084, 9.799924867870021e-5, 0.00015418600012955577, 0.0004206313542722411], [0.005856269958245466, 0.0065839150921814405, 0.0005464245983718409, 0.00012820156913809637, 0.00031043245521726137, 0.005389613119184736, 0.0008126500382185469, 0.0004411995847856651, 0.001135731438972912, 0.0005400442839895203, 0.0008435836867896051, 0.002369118041877817], [2.538844007158218, 3.403126498315656, 4.208824528289169, 4.349661305846068, 8.627025727424792, 2.2798078516632723, 3.109935494043027, 4.504341365548664, 2.1492844134440365, 4.427898539398708, 5.809693105005105, 2.161168082906952], [1.9983392410413603, 1.4351924769545032, 1.3412320867723269, 1.2073635999131567, 1.0365491614798976, 2.9494118627814165, 1.4264417421173774, 1.2463492128953753, 3.2924022001686386, 1.3299163718363698, 1.078778349451633, 3.1335868695807765]], Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [6.8592362048653746, 14.100442699537647, 1.0764988675940503, 0.19965449243801633, 0.9619252615627781, 6.9148419358917765, 0.8022789075352156, -25.65319164169214, -2.181638018266752, 0.7824541707696976, -2.109695041595812, 9.351931963373344], [6.913677795343547, 14.149116758361433, 1.0788076430837572, 0.20002337523900324, 0.9639014860680817, 6.935756906400983, 0.8058619313595987, -25.651797410002494, -2.180140499008356, 0.7864946778159201, -2.105132896901869, 9.358490998385324], [6.9413132443840375, 14.180393067322324, 1.0806881604017526, 0.20043669683448762, 0.9654206876970138, 6.976665862974761, 0.811684287300704, -25.650409320476307, -2.1738000831373308, 0.7892006772612792, -2.1028609820839352, 9.373309834727953], [6.957073310140954, 14.192633579461987, 1.0819257103695579, 0.2011044738976826, 0.9667657642051208, 6.990747518537329, 0.8137161217080382, -25.649000260513645, -2.166557946541215, 0.791604274850944, -2.0983026687101116, 9.384930747342686], [6.981303409538443, 14.235173595771943, 1.0891580755506494, 0.20210401180277326, 0.9684636177234122, 7.008722809717525, 0.8170836970757418, -25.643000060879828, -2.1641291647351366, 0.7932496271333795, -2.0914376443357785, 9.388596049685496]], [3.446600571143725e-14, 1.29135153967773e-20, 0.9999999999999999, 6.341974330365796e-18, 0.999999999998751, 4.819626785953505e-28, 0.0002480066249827611, 3.834130022842887e-32, 0.9999505371665879, 1.327305124247975e-19, 0.0003980791240646635, 1.2066243836621567e-19, 0.9999999999999999, 1.7896149326751556e-19, 1.0, 0.8815943651882961, 9.953278472534011e-9, 4.917246408762677e-41, 1.2181998135059625e-20, 0.9999965185687035, 7.070330700409758e-27, 0.9999998088725053, 6.20737269117245e-12, 0.9999999999999999, 0.9999936719856114, 0.9999999955804713, 6.888012320217011e-38, 1.1758700851266842e-7, 0.8674324867733768, 0.03329790445012048, 3.26982837897627e-33, 0.00017272373166096888, 0.9999999988795202, 6.5516246666294716e-43, 3.236757670371242e-61, 0.9986625052824096, 3.815975811484128e-18, 9.689445564074325e-8, 8.199244506403054e-59, 0.9999999999999981, 2.0779510466960943e-19, 0.9999892790936059, 0.9999999999999932, 5.680552907139898e-21, 0.9999933015765154, 0.9999999999999318, 5.256749205321162e-47, 1.1506088756855039e-29, 0.9999999991862043, 1.071811123745166e-11, 6.896591331279803e-46, 1.0, 0.9999999197632607, 2.856565949815012e-38, 0.9999997556301541, 0.9999999835747672, 0.9993790971833268, 2.3487750360090687e-20, 5.4341461244621845e-22, 6.431133998488141e-9, 0.9999997635856104, 1.903434937039377e-21, 1.0, 0.9999999999851616, 1.9546001849057566e-27, 0.999888365166507, 1.0515401069865752e-38, 0.999999984755811, 1.6438021042922532e-30, 2.0201164807092603e-18, 1.0, 0.9999999825020157, 0.005852304185409472, 6.153633604174925e-12, 5.510251673375439e-26, 6.557100739238367e-10, 1.1349986419383778e-29, 7.743451229892868e-7, 7.515147891292813e-21, 3.551742108538617e-69, 1.0, 2.832644910460738e-14, 2.10294551231884e-58, 3.878519230420295e-12, 2.2262888833100303e-40, 1.2904781697478462e-37, 1.0, 4.279330890080256e-23, 2.836067404423096e-59, 2.103397532195943e-29, 0.9999999999965024, 0.008945652596862077, 0.9999999999999999, 1.0, 5.374312423503198e-31, 2.560916888577437e-61, 2.699921769885214e-23, 0.9999981248005133, 0.999999999999993, 4.4160917535099053e-14]), (Prior_HorseShoe(), Probit(CRRao.Probit_Link), Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.1503203849487943, 0.0033356091582737576, 1.40819294490727, 0.25102033893553044, 0.15460115762856727, 2.279259088961983, 1.3881265844040405, -1.7316607289704145e-5, 0.1413997718892134, 0.025368272458845164, 0.0018752457928542582, -0.6267151590835331], [0.0006524208981202922, 6.384824930715226e-6, 0.0037674788700442787, 0.0003740444878872151, 0.0007880200352462772, 0.012727370141420285, 0.0036148932709711284, 0.0006114149862611687, 0.0016138997921971063, 0.004823184736516985, 0.0036499547813109486, 0.028091695496644465], [2.0631360311527904e-5, 2.0190589242486878e-7, 0.00011913814265897431, 1.1828325279548623e-5, 2.491938153224401e-5, 0.00040247478270907436, 0.00011431296234685, 1.9334639521458503e-5, 5.103599258615299e-5, 0.00015252249343152772, 0.00011542170465564375, 0.0008883374110529146], [0.00011086073122140705, 1.0359743906791565e-6, 0.0006536211795537331, 5.741711879791833e-5, 0.0001378296661223338, 0.0022735020835943664, 0.0006082683021211153, 7.778109905106973e-5, 0.00028068224983552497, 0.0008377048335790067, 0.0006369636591137453, 0.004956341555948259], [3.641373308075606, 9.50187179258495, 4.55561361952457, 18.385542658864235, 2.3467564917426085, 2.445049758934162, 8.98402849338773, 34.07560026235551, 2.3627646943420437, 2.628898778216141, 2.935618148220697, 2.3405432518354954], [1.284341936305109, 0.9992756439029266, 1.3399337463069916, 1.0119779325495857, 2.64689241224391, 2.1853672186084294, 1.014262026981332, 1.0235334995107064, 2.189613311553958, 1.7847318264524903, 1.6368816057407076, 2.203647029835029]], Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.1484750438190306, 0.0033241992722209198, 1.4024897600074244, 0.2502484825608311, 0.15357358617589253, 2.263547066573738, 1.3828802894311145, -0.0012152547995550645, 0.13804994060537198, 0.012576905973600757, -0.00477697954119565, -0.6666217516286573], [0.15023838540970613, 0.0033309773858135588, 1.404538248125039, 0.25075693000707566, 0.15390726296834686, 2.2691986392491685, 1.3856452025735126, -0.0003990051825442648, 0.14034505937080133, 0.022061877848073626, -0.00022175813229944068, -0.6482813934226531], [0.15053657541669296, 0.0033355620696791984, 1.408896057657873, 0.251007036570865, 0.15445003610869, 2.273188500456895, 1.3870596079911852, 1.4585020164336103e-5, 0.14163743440736967, 0.026488596877789115, 0.001654530739235162, -0.6305501169030349], [0.15069431591445648, 0.0033401453796662807, 1.4114569056927966, 0.2513018124340968, 0.15529397542797574, 2.2887773979803976, 1.3893636221406593, 0.0003961784532256399, 0.14266154924965307, 0.029115623102271934, 0.0043387084174454985, -0.6098659550345357], [0.15119341368275804, 0.003348202931761655, 1.414303212392493, 0.25169136301931033, 0.15618532866175905, 2.3044285326569574, 1.3975336697278884, 0.0011268617750185008, 0.14380560909848433, 0.0316979975377622, 0.008686617632434208, -0.5683002040140465]], [0.43508300643343073, 0.8454301074457689, 5.541733904053325e-5, 0.669173038624846, 9.983955739445662e-5, 0.9779332349418082, 0.04539800572159702, 0.9583831318775324, 0.002775103876898593, 0.7506869542134652, 0.004953018423049174, 0.4834167230544736, 1.8311879045954437e-5, 0.8499857125138413, 3.40593878300645e-7, 0.029527820368265574, 0.18932094531514254, 0.999983823521334, 0.8447459718346709, 0.005884677756880796, 0.9785930190314934, 0.0007510031347912121, 0.14748767140075467, 8.153345318957304e-6, 0.0011965005142833222, 2.5099268099323447e-5, 0.999406457971693, 0.12510800555145216, 0.03620438098426316, 0.002043584918985265, 0.9985812621697693, 0.045463711625239475, 0.00026459541323153824, 0.9999879229192272, 0.9999999999940052, 0.006103469488648149, 0.5877579202517663, 0.1487214597898676, 0.9999999999973372, 7.008753503289139e-6, 0.784649177800914, 0.0038082080693232446, 1.9279605306200382e-5, 0.7371827082496072, 0.001343498328933603, 3.383766810114779e-5, 0.9999996054879042, 0.9943016891786333, 0.00010678165730867797, 0.4184968884655019, 0.9999980697499659, 1.4399491385697863e-8, 0.001273999255389905, 0.999933980037464, 0.0017780819007878871, 0.0007357623918331472, 0.0037463532686189405, 0.8225739579024214, 0.3819154124192341, 0.06738174190401058, 0.003550755833705214, 0.8176667801154054, 1.8989867464600195e-6, 2.5795523332494588e-5, 0.9757781841873617, 0.0003098450809070373, 0.9996751675906053, 0.001450234092134241, 0.9950559366990214, 0.5027509295600956, 1.584553796992712e-8, 0.00011780226334233362, 0.018204077744310487, 0.39857916592193876, 0.9253485636602305, 0.15660013996861613, 0.9932639287958294, 0.18101795259049083, 0.7791836815267592, 0.9999999999999999, 1.2626150420568309e-8, 0.35978689864139496, 0.9999999999929443, 0.22402681854771786, 0.9999633342138188, 0.9996367506303366, 1.523802291395841e-11, 0.9209472276868576, 0.9999999999988837, 0.9726062991421138, 3.5853971521847336e-5, 0.024969544145289707, 1.2845551346400075e-6, 7.474998800744309e-13, 0.9965834867654987, 0.9999999999998521, 0.8698067181933815, 0.00180515833725974, 1.1005460968199393e-5, 0.37149623024142625]), (Prior_HorseShoe(), Cloglog(CRRao.Cloglog_Link), Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.49938034296556555, 3.1341780654069478, 0.5044753776253187, 2.213113530015676, 2.728438672604241, 0.7819500543724918, 0.5141540697461959, -0.12126938355507182, 0.00220629037370702, -0.041860659065694174, 0.09506447079534726, 0.010913203865338757], [0.9070083153956818, 5.7776181667878355, 0.89312262875339, 3.3568390933114913, 3.068706621959411, 1.0315325614207411, 0.7043213157409096, 0.304157815464478, 0.0043848781539625285, 0.12929990827016546, 0.05222067989237106, 0.024183535982942858], [0.0286821213336272, 0.18270432857816157, 0.028243017366977024, 0.10615257273558806, 0.09704102396233018, 0.032619923747170765, 0.02227259562347878, 0.009618314650089351, 0.00013866202228836067, 0.004088822113845649, 0.0016513628942244909, 0.0007647505558273836], [0.05379890721009647, 0.39690618961630203, 0.07873940282421599, 0.24329828863079941, 0.30284549929619897, 0.04715004455874405, 0.06514337214902108, 0.029455251104716692, 0.00025896517147007284, 0.008209727078060941, 0.004090743321338047, 0.002140737538881104], [281.89386289698433, 192.34430323690322, 137.05987652208097, 80.89431688729647, 107.23386699904952, 395.36155213265323, 126.06691430249137, 90.50400481029259, 273.35931428198086, 204.87081020033148, 97.38185283684591, 103.1685740447791], [1.0094816019633999, 0.9990146101724703, 1.0057740554127057, 1.055337487753451, 1.0106537226264831, 1.0029801855165534, 0.999170650959877, 1.000417490659472, 0.9999490325229533, 0.9991649002214915, 1.0275297633534826, 1.0019974194000472]], Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.020811592351278756, 0.24677602886962846, 0.007366066570468754, 0.13987876045091474, 0.16888340066359386, 0.026562771239417027, 0.013041747959051829, -1.0152788200197067, -0.0053123566381332015, -0.4041702889457368, 0.0020049303983064814, -0.025169800050501394], [0.10323792452359334, 0.8442977810476885, 0.07171603081014814, 0.5054959734123442, 0.8194027611414012, 0.23644407975673074, 0.12655242810004852, -0.1320779865446584, -0.000413375326448082, -0.0812183344454586, 0.05580577763164751, -0.003426403366066902], [0.26420938902021723, 1.5312461604349437, 0.23580865862293243, 1.1004357184563922, 1.7429746505639963, 0.4953394496003891, 0.2749936797732949, -0.018348681560105468, 0.0013962541450318747, -0.007115071945626392, 0.09153800435648846, 0.005561739590034389], [0.5709673125374127, 3.314405381693244, 0.5564104188346592, 2.361222886171013, 3.432953121839273, 0.9381986998814547, 0.5976737898100065, 0.01831970898227568, 0.004633867211962302, 0.01827007001446272, 0.13298104258269877, 0.022941849519477277], [2.4126108166888605, 14.592017495756682, 3.2752274863537454, 11.470063956002303, 12.884939948001287, 3.5292473744255046, 3.019361691148667, 0.20211715523693444, 0.012225219864494064, 0.13607024488595948, 0.20124518313129214, 0.07168452909557607]], [0.7864844936670636, 0.7174977175059318, 0.6626404752479927, 0.7514773288854699, 0.736136989551039, 0.7539560198701463, 0.7946241927994679, 0.9070023387700976, 0.7764932782321157, 0.7822483426309005, 0.9368232089403151, 0.9014344367585, 0.6989982349349745, 0.6765172731287008, 0.7909662898781326, 0.6652339475567419, 0.7560759058234194, 0.7042707342952715, 0.7184991198488198, 0.6677444360122112, 0.7126296708140146, 0.788095890578668, 0.887637951813801, 0.7576741384164282, 0.8378598414348367, 0.9235229062768319, 0.8021310656918645, 0.7826981258661934, 0.6312016411103943, 0.9253491928046879, 0.7070699808211511, 0.7996987604124223, 0.7738861056779355, 0.7544497229603989, 0.7904209700442819, 0.7624370657087001, 0.8231063752128545, 0.7322547602344974, 0.6954336811466933, 0.8487336541729992, 0.7431728828991724, 0.7192081742230888, 0.7662821601054418, 0.8248892662151666, 0.7922689435236614, 0.7539754399833298, 0.7374354820221729, 0.6750800719037556, 0.8281471754374548, 0.6755781864540972, 0.7601867019177091, 0.7722684625213568, 0.7617818373262221, 0.6894091448299099, 0.7276346584459313, 0.7517055616116233, 0.7985283805784884, 0.7440150722995326, 0.9480935088124736, 0.8927916387839366, 0.6765540425289939, 0.781279914119697, 0.7825366698874182, 0.8700221028301667, 0.7290597548122322, 0.9198967005031661, 0.8018833430522093, 0.681390078570611, 0.7104429831960697, 0.8660829839856298, 0.7454039525744935, 0.8879651751863928, 0.8751800659844248, 0.7024904919843252, 0.8071820185329855, 0.8248463226724662, 0.693386781106756, 0.6857657240033943, 0.792169731720637, 0.7328207252734513, 0.6657957961279004, 0.8153430268864029, 0.714177080505613, 0.8342859480835553, 0.732667726606446, 0.7628864352238319, 0.7052422446613478, 0.7051621493082144, 0.6768960450810662, 0.8118878297338984, 0.8409945480721003, 0.8036210219160265, 0.8825909998637432, 0.7533703807314508, 0.6933991943410123, 0.6842276902488605, 0.7971715007010699, 0.7592802427283679, 0.7983930091577666, 0.8116820508200324]), (Prior_HorseShoe(), Cauchit(CRRao.Cauchit_Link), Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.8231447794119616, 4.090592438417472, 0.5139639049003325, 2.087991711473817, 4.143133189087861, 1.0462094970773548, 0.8623258688928956, -0.8090953737093335, 0.00886071620316475, -0.08951340615584857, 0.4589412133357218, 0.04469887717878411], [1.1082630047249804, 6.640729763445663, 1.186906572403712, 6.175995634358217, 5.439568396112675, 2.0736174461880235, 1.4724228097243743, 1.583261036900546, 0.014615878499350398, 0.3425244994885282, 0.2632426511445944, 0.09609939930963292], [0.035046353414328886, 0.20999831378159464, 0.037533281386192816, 0.19530213023828427, 0.17201425619985053, 0.06557354125815792, 0.046562097575137455, 0.050067110072056206, 0.000462194660622311, 0.010831575727929282, 0.008324463549180488, 0.0030389298359245276], [0.06748867428400787, 0.3013171860594603, 0.058363838344083104, 0.4506396504809824, 0.3920371645910448, 0.10703737613195087, 0.07326860918550708, 0.151977903088657, 0.0010333401658810797, 0.02273536143428113, 0.019728412541897503, 0.008933928092755596], [300.7390223390249, 300.3628714774444, 369.2019033828815, 123.8113418163584, 153.93708319436055, 268.0280477854494, 378.66336399489984, 76.18029103672652, 155.22891351606253, 181.79059079670404, 181.01708115990692, 81.41036432901198], [1.0057333058912243, 0.999189131388539, 0.999306576787934, 1.0168739966005047, 0.9992682665295037, 0.9990249936762905, 0.9996693418541719, 0.9990323306483477, 0.9995844485420049, 1.025953625880032, 0.9990523713666738, 1.0021431255175504]], Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]")], [0.027053761230205215, 0.17966164888925878, 0.008568279932747083, 0.09312105177223173, 0.3283496074347208, 0.019847205600449957, 0.037293119901867115, -5.69906316658667, -0.011889555082369658, -1.1285548797076097, 0.004814776301637772, -0.06940228366493721], [0.18460400576263586, 0.9839612024914759, 0.0777790859508874, 0.3905254436050684, 1.1091424021321425, 0.17722441837392713, 0.19306000581866642, -0.9199420495869294, -0.00037885176391117854, -0.12480733578692196, 0.28384349980363727, -0.006970804149313715], [0.4347153972874934, 2.048464974719556, 0.20491419488554546, 0.8170307116151436, 2.1674568937569085, 0.46225508654142466, 0.44721263801476485, -0.11033068446551865, 0.005450574597031589, -0.011193717235962982, 0.43159127660204955, 0.01521071192727118], [1.0339318116884808, 4.847904508420232, 0.5559788101336605, 1.776460567922432, 4.633504576230793, 1.0273175751426185, 0.9976201766989873, 0.012339549123851492, 0.014258089230739806, 0.04264071571950733, 0.6131020721909968, 0.06885014699747527], [3.839075878416281, 19.182969331304196, 2.686586490753366, 12.246466813651834, 20.768136314590596, 7.012783297403015, 4.286712337041011, 0.4000633427969081, 0.04735977407366918, 0.3740482282532198, 1.0672741527652525, 0.3053871509949981]], [0.8247599515914813, 0.7167430874265438, 0.5421379154277151, 0.7818925021460863, 0.756225211586418, 0.7819160197361195, 0.8364689960863534, 0.9097390856492914, 0.8172221755233559, 0.8115583001304121, 0.9237646705860116, 0.9063229203019124, 0.6644327521634226, 0.5678764145136946, 0.8298571662943138, 0.5560940350944251, 0.7912160267700153, 0.6690776790773642, 0.6901910974877457, 0.5547133361916169, 0.6654138355334631, 0.8290358962862282, 0.8988868758658257, 0.7903672368062629, 0.8685491377095056, 0.916254661200635, 0.8433650423048833, 0.8246755414262166, 0.45961782484577557, 0.9175697231449529, 0.6618314667373162, 0.8410829014479204, 0.8063824122400525, 0.7867550908057869, 0.8218768723493464, 0.800210401240291, 0.8601076594478032, 0.7403289715647515, 0.6286511357817572, 0.8753707295865295, 0.75529352352902, 0.7046655626302916, 0.8026175989449321, 0.861357679214918, 0.8324478615852379, 0.7858288652180333, 0.7476338629572897, 0.5842006970576445, 0.8616281176896167, 0.5716699817193595, 0.7850334726695822, 0.8063895706217127, 0.7938435216375379, 0.5954543790823505, 0.7402668242538594, 0.7840330018909398, 0.8393239971352647, 0.7564125830611216, 0.9312621854694045, 0.9014010942348344, 0.5813006700030064, 0.8217520404550354, 0.8193277211464846, 0.8881787278769325, 0.7426718578806709, 0.9140792254510076, 0.8400660119792583, 0.6137831489121661, 0.6540121542875439, 0.8875534619890054, 0.7673454167094812, 0.8981309771468806, 0.8909799186557442, 0.6569968362589339, 0.8481914244960606, 0.8613094357577644, 0.6425242162822171, 0.5909352502300551, 0.8334266272759051, 0.7362170854411434, 0.5368116770124871, 0.8542605592541, 0.6883862027413744, 0.865123864733196, 0.7284237634325239, 0.8000871863890245, 0.6524542895705653, 0.684739407732161, 0.57959894300765, 0.8519461283213029, 0.8680007427737322, 0.8443788161084101, 0.894591485279941, 0.7674097074191889, 0.6174707464681225, 0.6024878340655145, 0.8364734985370211, 0.7955028655984513, 0.8370081223684753, 0.8513487759286564])] +tests = [ + ( + Prior_Ridge(), + ( + (Logit(), 0.7726301574939893), + (Probit(), 0.7718991855077517), + (Cloglog(), 0.7729607868936296), + (Cauchit(), 0.773088648259103) + ) + ), + ( + Prior_Laplace(), + ( + (Logit(), 0.7721450629705013), + (Probit(), 0.7700924638261658), + (Cloglog(), 0.7725984571763792), + (Cauchit(), 0.7733539997964879) + ) + ), + ( + Prior_Cauchy(), + ( + (Logit(), 0.7490077946647627), + (Probit(), 0.7666419321169409), + (Cloglog(), 0.7630424969124491), + (Cauchit(), 0.7751462774369108) + ) + ), + ( + Prior_TDist(), + ( + (Logit(), 0.5859376296718818), + (Probit(), 0.7612744071932722), + (Cloglog(), 0.7584442886274094), + (Cauchit(), 0.7715325526207547) + ) + ), + ( + Prior_HorseShoe(), + ( + (Logit(), 0.38795793121702976), + (Probit(), 0.4088010293870976), + (Cloglog(), 0.7662231188565767), + (Cauchit(), 0.7685459396568979) + ) + ), +] -for (prior, link, test_summaries, test_quantiles, prediction) in tests - CRRao.set_rng(StableRNG(123)) - model = fit(@formula(Vote ~ Age + Race + Income + Educate), turnout, LogisticRegression(), link, prior) +for (prior, prior_testcases) in tests + for (link, test_mean) in prior_testcases + CRRao.set_rng(StableRNG(123)) + model = fit(@formula(Vote ~ Age + Race + Income + Educate), turnout, LogisticRegression(), link, prior) - #Split summaries and quantiles into symbols and numbers for testing equality/approximate equality. - model_summaries, model_quantiles = describe(model.chain) - (model_summaries_symbols, model_summaries_nums...) = model_summaries.nt - (model_quantiles_symbols, model_quantiles_nums...) = model_quantiles.nt - (test_summaries_symbols, test_summaries_nums...) = test_summaries - (test_quantiles_symbols, test_quantiles_nums...) = test_quantiles - - @test model_summaries_symbols == test_summaries_symbols - for i in eachindex(test_summaries_nums) - @test model_summaries_nums[i] ≈ test_summaries_nums[i] - end - @test model_quantiles_symbols == test_quantiles_symbols - for i in eachindex(test_quantiles_nums) - @test model_quantiles_nums[i] ≈ test_quantiles_nums[i] + @test mean(predict(model, turnout)) ≈ test_mean end - @test predict(model, turnout) ≈ prediction end \ No newline at end of file diff --git a/test/numerical/bayesian/NegBinomialRegression.jl b/test/numerical/bayesian/NegBinomialRegression.jl index def94ae..b217618 100644 --- a/test/numerical/bayesian/NegBinomialRegression.jl +++ b/test/numerical/bayesian/NegBinomialRegression.jl @@ -1,25 +1,16 @@ sanction = dataset("Zelig", "sanction") -tests = Any[(Prior_Ridge(), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [2.033532670737515, -1.1008734267536047, 0.001094208900534297, 1.060343992060707, -0.15786110457055455, 1.294586610685846, 0.15899662938152478], [0.4163550751663772, 0.5387551190744174, 0.16359849394901196, 0.13063067998997502, 0.544934602163948, 0.32163155599374066, 0.2913315443767893], [0.013166303528963611, 0.017036932773503852, 0.005173438626521523, 0.004130904810649026, 0.01723234518675796, 0.010170882843242014, 0.009212712344850738], [0.014431455186184227, 0.03490924087544598, 0.009539762615352351, 0.0073586244671434336, 0.021416158364498575, 0.01198412587278611, 0.014298748706220573], [602.6988983631668, 216.89217370373092, 304.5593788325469, 370.31036525954903, 884.5494839344138, 734.19899146768, 426.85611276244776], [1.002775324101858, 0.9992263257947018, 0.9994528685133326, 0.9994210232935488, 1.003293315238965, 1.001588120186786, 0.9990330235591159]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [1.3742199064673777, -2.175983136461368, -0.30259410067029413, 0.7923410749555616, -1.15266343803402, 0.672379511751853, -0.4258618187125221], [1.7265399691843968, -1.4541340765262998, -0.10872569260603446, 0.9727621430991229, -0.5149821997350503, 1.0801074847361716, -0.037437662518782916], [2.005693417620672, -1.0943526473814809, -0.000546879754740031, 1.0539332226347504, -0.16705533382365337, 1.2829999691714682, 0.14966780918655453], [2.268622687911495, -0.7251137172909272, 0.11031113525265579, 1.1496722819927512, 0.1969711534261444, 1.5037143547105631, 0.348429895713112], [2.9703506336490832, -0.08494604869249095, 0.3230954997804491, 1.3158628734694895, 1.0098639187508067, 1.93531136556599, 0.7325450182444838]], [22.79273367298059, 10.581746802932752, 0.9868233460913254, 0.9868233460913254, 0.9868233460913254, 0.9868233460913254, 2.7991113722871277, 0.9868233460913254, 3.3499195503093064, 2.826332963271958, 1.1542620442281972, 0.9815462363508761, 8.219200484970807, 7.82639187571211, 30.428512082599703, 1.1542620442281972, 23.938664799345837, 8.233047699978815, 1.161395545692532, 30.41157292698473, 24.39047761169405, 1.1542620442281972, 0.9860663773398379, 1.1542620442281972, 1.161395545692532, 8.117616872689192, 0.9815462363508761, 0.9815462363508761, 1.1542620442281972, 88.52228560524662, 1.1542620442281972, 1.1542620442281972, 1.161395545692532, 1.1542620442281972, 2.8454233856755087, 10.157057954781452, 1.1542620442281972, 1.161395545692532, 1.1542620442281972, 2.826332963271958, 2.7991113722871277, 2.826332963271958, 0.9868233460913254, 2.826332963271958, 1.161395545692532, 1.1542620442281972, 0.9868233460913254, 3.3499195503093064, 1.1775395155173547, 1.1542620442281972, 0.9815462363508761, 0.9868233460913254, 1.161395545692532, 1.161395545692532, 1.1542620442281972, 0.9815462363508761, 2.7991113722871277, 2.826332963271958, 2.826332963271958, 30.428512082599703, 9.856135877709901, 3.7446412244441656, 31.262232059339293, 3.3444210972984827, 8.233047699978815, 3.3499195503093064, 30.41157292698473, 0.9815462363508761, 0.9815462363508761, 8.219200484970807, 10.581746802932752, 3.3444210972984827, 8.219200484970807, 3.3499195503093064, 0.9868233460913254, 24.39047761169405, 1.1542620442281972, 8.219200484970807]), (Prior_Laplace(), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [2.115746221467821, -1.0085304000322868, -0.024793873457989956, 1.052113237721877, -0.15281078410963092, 1.2861727977860324, 0.1315838275502168], [0.444317146572935, 0.5100779372829306, 0.1553736410579891, 0.1304886934336986, 0.5179422166029028, 0.309602715205377, 0.2633892721176925], [0.014050541866373516, 0.01613008066014579, 0.004913345940966994, 0.004126414801499454, 0.016378771008214516, 0.009790497498214368, 0.00832910011145789], [0.015400959156496571, 0.025035928984897454, 0.006364771418099774, 0.0055499273853244074, 0.01830633553491673, 0.011305558519001072, 0.011398283738992612], [961.8068296426745, 289.31286847687977, 476.0465737689456, 342.31076761645255, 630.1413205466191, 576.8927212725212, 491.5701088764228], [0.9990471284728348, 1.0107782460910208, 1.0043226381063586, 1.0074870099846636, 1.0001792540353789, 1.0023363596066366, 1.0014486571509589]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [1.3969677082291738, -2.043238449153774, -0.323027333075843, 0.8076640531959224, -1.188833586544745, 0.6786523733746004, -0.37860471700737597], [1.807381901702506, -1.3326115352982049, -0.12809131953879602, 0.9677356465114804, -0.47381777630050265, 1.0819399486140817, -0.04624922600317495], [2.0634599193289462, -0.9807961456616323, -0.02712304511261301, 1.0496005995125035, -0.1479827274420805, 1.3002939367043198, 0.1338983900276345], [2.3653463693004424, -0.6652948960508089, 0.07414104647607792, 1.1381081154967263, 0.17431616834199476, 1.4829897153823994, 0.3185535020128706], [3.127242300236061, -0.03973942674928191, 0.28483293811265603, 1.3185939448386965, 0.8939989411810966, 1.8837588853277827, 0.6422300764476048]], [21.842690660989987, 10.491546187713833, 1.0011451666062938, 1.0011451666062938, 1.0011451666062938, 1.0011451666062938, 2.890144338154678, 1.0011451666062938, 3.4080264307792745, 2.8284473607497103, 1.1547110091441486, 1.0271423234863155, 8.611185000528977, 7.598607755677235, 30.555180941984126, 1.1547110091441486, 24.03386299433781, 8.126239707409537, 1.1995833289780449, 29.709135849004653, 23.744012407689187, 1.1547110091441486, 1.0027984444927398, 1.1547110091441486, 1.1995833289780449, 8.266130906904573, 1.0271423234863155, 1.0271423234863155, 1.1547110091441486, 87.5462865243563, 1.1547110091441486, 1.1547110091441486, 1.1995833289780449, 1.1547110091441486, 3.022737232740915, 9.48764259140515, 1.1547110091441486, 1.1995833289780449, 1.1547110091441486, 2.8284473607497103, 2.890144338154678, 2.8284473607497103, 1.0011451666062938, 2.8284473607497103, 1.1995833289780449, 1.1547110091441486, 1.0011451666062938, 3.4080264307792745, 1.1373216235463561, 1.1547110091441486, 1.0271423234863155, 1.0011451666062938, 1.1995833289780449, 1.1995833289780449, 1.1547110091441486, 1.0271423234863155, 2.890144338154678, 2.8284473607497103, 2.8284473607497103, 30.555180941984126, 9.544961497151702, 3.765320320205483, 32.175303131378584, 3.29313752935312, 8.126239707409537, 3.4080264307792745, 29.709135849004653, 1.0271423234863155, 1.0271423234863155, 8.611185000528977, 10.491546187713833, 3.29313752935312, 8.611185000528977, 3.4080264307792745, 1.0011451666062938, 23.744012407689187, 1.1547110091441486, 8.611185000528977]), (Prior_Cauchy(), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [2.0094006753134614, -1.0783031426860985, -0.007705360287027346, 1.0620737628858798, -0.1812239028434507, 1.2692785063041105, 0.155129494580377], [0.4379896498266224, 0.5491547015430198, 0.17018886483370643, 0.13403452182255737, 0.5430608937059215, 0.33021531538419435, 0.29505967953267775], [0.013850448850316993, 0.017365796446659254, 0.0053818444527304575, 0.004238543740508243, 0.017173093322773104, 0.010442325148848935, 0.00933060633002628], [0.016872252943793242, 0.025354657993944905, 0.00746806213280935, 0.0051535535028907785, 0.02393001647449409, 0.012757875676477548, 0.010641853088864171], [690.8506091769896, 373.3703249467553, 431.5667749484194, 498.3356369486145, 653.5156470425236, 624.9935891560417, 548.9335531347931], [1.0027797445897022, 0.9999898825167862, 0.9990525312059492, 0.9998523207814394, 1.0022328688644628, 0.9991333381239279, 1.0019497196850409]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [1.3394772056828173, -2.2001256961692923, -0.35580170491940927, 0.7906954835353238, -1.1899147594024528, 0.6384303792826728, -0.4274674043247846], [1.7025225426545096, -1.4241588808445835, -0.12202244637089002, 0.9789277116335982, -0.5662493688105141, 1.0495414572754527, -0.03879200034653152], [1.9367619301819505, -1.065136645302255, -0.002633962413880985, 1.060632718577568, -0.17983002223861852, 1.2672791516544284, 0.16758836074064803], [2.2640235306574343, -0.7256132060985478, 0.09459333651920342, 1.1385680750483327, 0.17779453374201154, 1.4883818477425885, 0.3464778569496805], [3.057737899656964, -0.006623806948886378, 0.32295299904721136, 1.333641513870227, 0.946710195102903, 1.9266408837311144, 0.7206483837080544]], [22.44717103779297, 10.319228041262255, 0.9987792933865607, 0.9987792933865607, 0.9987792933865607, 0.9987792933865607, 2.842170470596133, 0.9987792933865607, 3.3819183857181865, 2.8597528726343566, 1.1608166788581393, 0.9957664631574421, 8.428030099171059, 7.632118386749569, 29.818061558499185, 1.1608166788581393, 24.53994278807742, 8.348811755718236, 1.1689900378544236, 29.711147760604263, 24.860447872502753, 1.1608166788581393, 0.9492660142596131, 1.1608166788581393, 1.1689900378544236, 8.27007414233827, 0.9957664631574421, 0.9957664631574421, 1.1608166788581393, 87.19076679479595, 1.1608166788581393, 1.1608166788581393, 1.1689900378544236, 1.1608166788581393, 2.9063585746581633, 10.270256454457671, 1.1608166788581393, 1.1689900378544236, 1.1608166788581393, 2.8597528726343566, 2.842170470596133, 2.8597528726343566, 0.9987792933865607, 2.8597528726343566, 1.1689900378544236, 1.1608166788581393, 0.9987792933865607, 3.3819183857181865, 1.1865826824678183, 1.1608166788581393, 0.9957664631574421, 0.9987792933865607, 1.1689900378544236, 1.1689900378544236, 1.1608166788581393, 0.9957664631574421, 2.842170470596133, 2.8597528726343566, 2.8597528726343566, 29.818061558499185, 9.973453566855094, 3.6524334697813887, 30.803655610368335, 3.37023484214091, 8.348811755718236, 3.3819183857181865, 29.711147760604263, 0.9957664631574421, 0.9957664631574421, 8.428030099171059, 10.319228041262255, 3.37023484214091, 8.428030099171059, 3.3819183857181865, 0.9987792933865607, 24.860447872502753, 1.1608166788581393, 8.428030099171059]), (Prior_TDist(), Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [2.0087719694553687, 21.723275693420824, -1.0603921001593168, -0.010924319629375132, 1.0600743746499357, -0.1634507701019323, 1.2760358018944278, 0.14557727248579977], [0.4446447126783473, 116.42274238472413, 0.531067626707303, 0.1620199929418242, 0.1326168843545378, 0.5339791617887503, 0.32390556202381326, 0.2862001074655926], [0.014060900416147255, 3.6816103737875143, 0.016793832919751443, 0.005123522041805692, 0.004193714107554884, 0.016885903743200016, 0.010242793227921881, 0.009050442061762328], [0.01605445478715455, 4.961877300696243, 0.02831790516476742, 0.0067552225285367655, 0.007067754891635842, 0.01872517183364512, 0.011873094559665483, 0.0133077673654027], [819.9421245254008, 685.3525710037665, 397.19432125080925, 654.7909396750151, 449.7488717454727, 724.3697728075905, 679.5304341742395, 500.77239239509476], [0.9990368321033383, 0.9995653821717136, 0.9997445947372637, 1.000517502273653, 0.9991786134068427, 0.9996177674531592, 1.000636310505041, 0.9990501701578075]], Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [1.2837905529917615, 0.7203252535266488, -2.149810581006366, -0.319788405453442, 0.8079664719974506, -1.2265146036926224, 0.6212524898928934, -0.408416016229353], [1.6993426359690689, 1.9769876463017635, -1.4146112246971934, -0.12532881163621012, 0.9687717024448896, -0.5193544500929852, 1.04505406362882, -0.045256638937736626], [1.9650987632190473, 4.083024369067694, -1.0534054294621176, -0.002443792483762963, 1.0537583972651654, -0.16215077893969831, 1.2791591389112904, 0.14767021168402764], [2.2593685437401616, 10.19539229783917, -0.6975867389771262, 0.10267802408068039, 1.1518706296379464, 0.2064377554331681, 1.4909090759519856, 0.3432861540904206], [3.0105124565709627, 152.7864572123769, -0.015001656391347972, 0.3045962016975492, 1.3260649089201337, 0.8424151065435916, 1.895481816031963, 0.7080391441764226]], [22.868551319938586, 10.440144030915276, 1.0001050617674667, 1.0001050617674667, 1.0001050617674667, 1.0001050617674667, 2.8504912276208865, 1.0001050617674667, 3.381558276817852, 2.8500393924113503, 1.153067791965224, 1.0038952115282747, 8.431981355434884, 7.80783734785889, 30.12068876394059, 1.153067791965224, 24.216161207667284, 8.265613125155644, 1.1771070811690556, 29.789719201218308, 24.39851693816913, 1.153067791965224, 0.9770233828571585, 1.153067791965224, 1.1771070811690556, 8.235836915150063, 1.0038952115282747, 1.0038952115282747, 1.153067791965224, 87.11980168589733, 1.153067791965224, 1.153067791965224, 1.1771070811690556, 1.153067791965224, 2.9293181072099186, 9.891132830872701, 1.153067791965224, 1.1771070811690556, 1.153067791965224, 2.8500393924113503, 2.8504912276208865, 2.8500393924113503, 1.0001050617674667, 2.8500393924113503, 1.1771070811690556, 1.153067791965224, 1.0001050617674667, 3.381558276817852, 1.1603023629571954, 1.153067791965224, 1.0038952115282747, 1.0001050617674667, 1.1771070811690556, 1.1771070811690556, 1.153067791965224, 1.0038952115282747, 2.8504912276208865, 2.8500393924113503, 2.8500393924113503, 30.12068876394059, 9.755539734710318, 3.722235779454324, 31.31207219583962, 3.3248470138380726, 8.265613125155644, 3.381558276817852, 29.789719201218308, 1.0038952115282747, 1.0038952115282747, 8.431981355434884, 10.440144030915276, 3.3248470138380726, 8.431981355434884, 3.381558276817852, 1.0001050617674667, 24.39851693816913, 1.153067791965224, 8.431981355434884]), (Prior_HorseShoe(), Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), Symbol("λ[6]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.483786620596649, 1.5986905492247214, 0.5508274700957052, 2.0959637999518836, 0.9183200740843477, 2.5238657501534636, 0.7962819546787253, 2.3691793234731193, -0.6990501683431439, -0.0674612135309848, 0.9701272232022963, -0.08384998478488265, 1.2783670836495966, -0.0028303059336937655], [0.41570310079187767, 2.651366645349281, 0.838168013097675, 2.2973650164164487, 1.2789961782913062, 3.4791470759277994, 3.1672086220206244, 0.5404781363671292, 0.4639917239597129, 0.12207610212519049, 0.14174156007880664, 0.3659664397899759, 0.3109690414857972, 0.21097832706147265], [0.013145686288968788, 0.0838435751150361, 0.02650519983286495, 0.07264906068666098, 0.040445410420513306, 0.1100202907464662, 0.10015593070508497, 0.017091419364432116, 0.014672706631808134, 0.003860385305909235, 0.004482261689546243, 0.01157287496919197, 0.009833704528945105, 0.006671720504461928], [0.03076814097992791, 0.1407738213076522, 0.03417388758017726, 0.12749588093226225, 0.06309745518878328, 0.17552486202496853, 0.10307037300119179, 0.03348456496503327, 0.04033620085278141, 0.00839807718114376, 0.012867977700923135, 0.020138089826848768, 0.019261432609853118, 0.01687369599505406], [173.31045963334964, 419.8568476410847, 585.4781942372799, 359.7625661457261, 447.99045071256523, 369.0943640222232, 906.7497800709648, 160.72063130754063, 74.1265473960382, 157.2104857615693, 45.99951512245347, 289.656943741451, 190.03380786044204, 95.88758402073437], [1.008586386643551, 1.001680635939159, 1.0001792710396824, 1.0204726779586601, 1.0009508844051853, 1.0008817663535174, 0.9990107016214629, 1.0115805615849451, 1.0119025875295011, 1.0020719613471838, 1.027906815718671, 1.0191520223492285, 1.0033131747370314, 1.0064571942443485]], Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), Symbol("λ[6]"), :σ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.0879132559104437, 0.02272992865252697, 0.016235651218988324, 0.28179505227408297, 0.056242892265388506, 0.30471229796552013, 0.024123688404333567, 1.5714668301805017, -1.6117972082419643, -0.2997608425581325, 0.7268232106802072, -0.9418887338243984, 0.6108311837787762, -0.39374551241564903], [0.22948490463004165, 0.4535992517761649, 0.1228906430141093, 0.9144824133802856, 0.2805067284591811, 0.9295863040493483, 0.19819553235635834, 1.9488971458464877, -1.021861515628415, -0.1666349727548549, 0.8656820836285701, -0.2719684482985677, 1.070825543503204, -0.14481934830982918], [0.36785818810953524, 0.9371401740149127, 0.27419384946567404, 1.53194630271277, 0.5363014098422563, 1.5167656554247317, 0.3461811422549832, 2.3024881817435334, -0.7054320836765846, -0.05568721646207244, 0.9770067760725092, -0.023391395633436014, 1.2935670573862423, -0.0028965664930731758], [0.5927359925543, 1.8602866126590303, 0.6572244562232121, 2.351687496915953, 1.02029536613816, 2.8306131662631415, 0.8242037711517243, 2.6799226776591545, -0.3626126522222903, 0.0150106821339136, 1.075483610180145, 0.10723133228500162, 1.5336144841403705, 0.11298798958521726], [1.4404394961243625, 6.611561426483248, 2.559391219680263, 7.902748325606516, 4.5209581237116145, 10.319671223410523, 3.195924619988728, 3.6984732763226225, 0.033226755656417, 0.16380669199911826, 1.2406160762931457, 0.618729765736739, 1.8015883095816219, 0.4377901201309121]], [19.46155820624762, 10.544030922575217, 1.0886040813497553, 1.0886040813497553, 1.0886040813497553, 1.0886040813497553, 3.045675769175994, 1.0886040813497553, 3.283356150048255, 2.8460559906783947, 1.1585753212392926, 1.1712213062933943, 8.734823072901838, 7.230400555060172, 29.605225878317622, 1.1585753212392926, 21.84688514688772, 7.587489486009885, 1.254155430192451, 27.488606803384343, 20.628145554071107, 1.1585753212392926, 1.1470792372546168, 1.1585753212392926, 1.254155430192451, 8.07711979500573, 1.1712213062933943, 1.1712213062933943, 1.1585753212392926, 78.2811001521038, 1.1585753212392926, 1.1585753212392926, 1.254155430192451, 1.1585753212392926, 3.3104687432518154, 7.752897380727241, 1.1585753212392926, 1.254155430192451, 1.1585753212392926, 2.8460559906783947, 3.045675769175994, 2.8460559906783947, 1.0886040813497553, 2.8460559906783947, 1.254155430192451, 1.1585753212392926, 1.0886040813497553, 3.283356150048255, 1.0871253614679324, 1.1585753212392926, 1.1712213062933943, 1.0886040813497553, 1.254155430192451, 1.254155430192451, 1.1585753212392926, 1.1712213062933943, 3.045675769175994, 2.8460559906783947, 2.8460559906783947, 29.605225878317622, 8.178983312111075, 4.122467598628785, 32.385867591624624, 3.0483401828981678, 7.587489486009885, 3.283356150048255, 27.488606803384343, 1.1712213062933943, 1.1712213062933943, 8.734823072901838, 10.544030922575217, 3.0483401828981678, 8.734823072901838, 3.283356150048255, 1.0886040813497553, 20.628145554071107, 1.1585753212392926, 8.734823072901838])] +tests = [ + (Prior_Ridge(), 6.89333113986786), + (Prior_Laplace(), 6.868506051646364), + (Prior_Cauchy(), 6.871750107984425), + (Prior_TDist(), 6.871687824045264), + (Prior_HorseShoe(), 6.512395375168992), +] -for (prior, test_summaries, test_quantiles, prediction) in tests +for (prior, test_mean) in tests CRRao.set_rng(StableRNG(123)) model = fit(@formula(Num ~ Target + Coop + NCost), sanction, NegBinomRegression(), prior) - #Split summaries and quantiles into symbols and numbers for testing equality/approximate equality. - model_summaries, model_quantiles = describe(model.chain) - (model_summaries_symbols, model_summaries_nums...) = model_summaries.nt - (model_quantiles_symbols, model_quantiles_nums...) = model_quantiles.nt - (test_summaries_symbols, test_summaries_nums...) = test_summaries - (test_quantiles_symbols, test_quantiles_nums...) = test_quantiles - - @test model_summaries_symbols == test_summaries_symbols - for i in eachindex(test_summaries_nums) - @test model_summaries_nums[i] ≈ test_summaries_nums[i] - end - @test model_quantiles_symbols == test_quantiles_symbols - for i in eachindex(test_quantiles_nums) - @test model_quantiles_nums[i] ≈ test_quantiles_nums[i] - end - @test predict(model, sanction) ≈ prediction + @test mean(predict(model, sanction)) ≈ test_mean end \ No newline at end of file diff --git a/test/numerical/bayesian/PoissonRegression.jl b/test/numerical/bayesian/PoissonRegression.jl index 5201415..27d7b68 100644 --- a/test/numerical/bayesian/PoissonRegression.jl +++ b/test/numerical/bayesian/PoissonRegression.jl @@ -1,25 +1,16 @@ sanction = dataset("Zelig", "sanction") -tests = Any[(Prior_Ridge(), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [1.3067355124808628, -1.7954059749747433, 0.13870508581663504, 1.132672650912545, -0.3230226254890309, 1.6961069878731383, 0.4040934806525153], [0.4614039269326491, 0.26419939247668656, 0.0647018311785362, 0.053776834986465266, 0.21787467900038635, 0.09787869641571813, 0.17152327089322514], [0.014590873304530794, 0.008354718366590836, 0.0020460515530787097, 0.0017005728391226043, 0.006889802301192785, 0.0030951961508182825, 0.0054240420774465505], [0.01871690390962484, 0.011620805404522002, 0.0026305344136758114, 0.0017342537293233637, 0.0074605971524898725, 0.0035923042932088766, 0.00679616817854052], [619.3195104907477, 469.7098689166608, 654.1981009374941, 653.9281928445064, 743.3957668492883, 756.8071703770736, 571.0009720394023], [0.9991115724440814, 0.9998897845270931, 0.9993031733036035, 0.999156937816046, 0.9993742025190981, 1.0001716809567045, 0.9999124380372408]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.7430805999719338, -2.3067840819125744, 0.01818168714064058, 1.0273407587119676, -0.7490673060518834, 1.5116259197150497, 0.06650544634166763], [1.017569881068573, -1.98066750880261, 0.09392079052310581, 1.0957473832092117, -0.4673728608720386, 1.6289650440232362, 0.28674251307250215], [1.2106146494360046, -1.7938907557472878, 0.13753095337725246, 1.1308746547270807, -0.330340868422352, 1.6943475333226017, 0.40309588096574855], [1.5134914052709998, -1.6063738466767394, 0.17945040914394927, 1.1686700823778648, -0.17085185388087332, 1.7634477002647562, 0.5241631330970231], [2.5468976201850846, -1.2935674619852482, 0.2708563179367638, 1.2393743511934436, 0.10058179866453396, 1.8955129099794932, 0.7363453461562143]], [17.245248953660397, 13.311751426697569, 0.7896838153702627, 0.7896838153702627, 0.7896838153702627, 0.7896838153702627, 2.12053910182601, 0.7896838153702627, 2.7850411549518532, 2.4383419963049704, 1.0317165509592108, 0.6871403194669483, 5.726972543900231, 5.5635753559745, 35.812094002539254, 1.0317165509592108, 20.372646447765263, 7.550841195909681, 0.8991514152598765, 41.229119045715755, 23.451157821412178, 1.0317165509592108, 0.5097363604555566, 1.0317165509592108, 0.8991514152598765, 6.5631217677795926, 0.6871403194669483, 0.6871403194669483, 1.0317165509592108, 111.18286607951553, 1.0317165509592108, 1.0317165509592108, 0.8991514152598765, 1.0317165509592108, 1.8513268747837672, 11.45915744277437, 1.0317165509592108, 0.8991514152598765, 1.0317165509592108, 2.4383419963049704, 2.12053910182601, 2.4383419963049704, 0.7896838153702627, 2.4383419963049704, 0.8991514152598765, 1.0317165509592108, 0.7896838153702627, 2.7850411549518532, 1.1884452394700504, 1.0317165509592108, 0.6871403194669483, 0.7896838153702627, 0.8991514152598765, 0.8991514152598765, 1.0317165509592108, 0.6871403194669483, 2.12053910182601, 2.4383419963049704, 2.4383419963049704, 35.812094002539254, 9.937429242768149, 4.3105415268705265, 31.22892166356205, 3.1972595300758626, 7.550841195909681, 2.7850411549518532, 41.229119045715755, 0.6871403194669483, 0.6871403194669483, 5.726972543900231, 13.311751426697569, 3.1972595300758626, 5.726972543900231, 2.7850411549518532, 0.7896838153702627, 23.451157821412178, 1.0317165509592108, 5.726972543900231]), (Prior_Laplace(), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [1.0888252727330223, -1.782080185238893, 0.13456105113029324, 1.1312036086482693, -0.30316421714121766, 1.6986047806598152, 0.38367684114091644], [0.5555082890626037, 0.2695428820905915, 0.061288152460673054, 0.05729860959424446, 0.22433602212756018, 0.09865943587804131, 0.1743044803004579], [0.017566714525410303, 0.008523694344924771, 0.0019381015535938008, 0.0018119411307858883, 0.007094127911450228, 0.0031198853004194473, 0.005511991641213973], [0.029931482003684326, 0.013443644126305387, 0.0025277377413849907, 0.0024548679823840616, 0.007950017207285649, 0.003550593880131961, 0.006934713798792591], [479.82536735342677, 462.26933474481797, 677.6547976263736, 539.8119755466021, 665.6348217856375, 701.9176666520717, 605.4188230505955], [1.000074934722703, 0.9996429462777557, 0.9991893260321387, 0.9992658354239561, 1.0004111000100226, 0.9990987140685751, 1.0001144267067672]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.44865453775249403, -2.304353969906118, 0.021589286831732342, 1.0106735073434576, -0.7411507269413906, 1.5121596698382997, 0.04858622605792693], [0.7271218825590415, -1.9713893944056105, 0.09385245665903966, 1.093116567444, -0.44910977368818245, 1.6303044063730556, 0.26717149390086087], [0.9566760169266957, -1.7766733367214107, 0.13023719150783974, 1.1321172031283349, -0.29800014947182, 1.6943709390480433, 0.38967878505539727], [1.2873214792388656, -1.5968341823131058, 0.17501636886428723, 1.1708322791428094, -0.14887705786570657, 1.7690330045519063, 0.4972724210725685], [2.4803736464388297, -1.291158662733538, 0.26121469038699624, 1.2403796364854927, 0.11485651337922298, 1.8982240516812845, 0.7220512385476486]], [17.484678547316634, 13.295098408142184, 0.7896543058939538, 0.7896543058939538, 0.7896543058939538, 0.7896543058939538, 2.129223010979156, 0.7896543058939538, 2.7437050611812768, 2.4318625437465324, 1.0125684553182555, 0.691836402029775, 5.774672537531026, 5.649930537320182, 35.9210519676848, 1.0125684553182555, 20.368339810433362, 7.514104158670199, 0.88808352064814, 41.08142979004255, 23.293830891892487, 1.0125684553182555, 0.5231790965298502, 1.0125684553182555, 0.88808352064814, 6.5746885246409414, 0.691836402029775, 0.691836402029775, 1.0125684553182555, 111.28724937333823, 1.0125684553182555, 1.0125684553182555, 0.88808352064814, 1.0125684553182555, 1.8713722988578738, 11.12750582288208, 1.0125684553182555, 0.88808352064814, 1.0125684553182555, 2.4318625437465324, 2.129223010979156, 2.4318625437465324, 0.7896543058939538, 2.4318625437465324, 0.88808352064814, 1.0125684553182555, 0.7896543058939538, 2.7437050611812768, 1.1589837396262206, 1.0125684553182555, 0.691836402029775, 0.7896543058939538, 0.88808352064814, 0.88808352064814, 1.0125684553182555, 0.691836402029775, 2.129223010979156, 2.4318625437465324, 2.4318625437465324, 35.9210519676848, 9.709023564040207, 4.316965512645076, 31.530308041380966, 3.1303840462813852, 7.514104158670199, 2.7437050611812768, 41.08142979004255, 0.691836402029775, 0.691836402029775, 5.774672537531026, 13.295098408142184, 3.1303840462813852, 5.774672537531026, 2.7437050611812768, 0.7896543058939538, 23.293830891892487, 1.0125684553182555, 5.774672537531026]), (Prior_Cauchy(), Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.8432563483359017, -1.7879628364650586, 0.1374106559392725, 1.129915036973116, -0.29650651779982007, 1.7035697023256682, 0.3928245538219577], [0.41909706946215824, 0.25309711177909666, 0.06400646975854091, 0.05578593937969586, 0.22035352337749553, 0.09733114457955845, 0.17054832493252745], [0.013253013002022184, 0.008003633424321765, 0.0020240622942367687, 0.0017641062985191967, 0.006968190243160448, 0.0030778810414255633, 0.005393211579132693], [0.016953171211038787, 0.01174900047684856, 0.002689095185045693, 0.0017734606855979097, 0.010627781162373347, 0.004273005800552253, 0.006843495890128291], [651.9481080312149, 440.1547934717755, 596.1778150025469, 747.2076712139942, 526.3279714466322, 600.4246078288855, 754.6818785327301], [1.0030492250086989, 1.001168570921669, 0.9992004482892144, 1.000861090846347, 1.0032430281496794, 0.9991869974731975, 1.000966324026003]], Any[[:λ, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.31014610589196046, -2.3022676465505696, 0.028171006166323245, 1.013079692367877, -0.7700546499181705, 1.5158774906507357, 0.07382004975923198], [0.5455551489732104, -1.9534912641951072, 0.09202787114767773, 1.092458656679483, -0.4356059996870344, 1.638757409528644, 0.26324600661543407], [0.7597993984189138, -1.7796923976412657, 0.1354607143376792, 1.1302730936840093, -0.2756712804365907, 1.7020382365146145, 0.38810829008278047], [1.0487507199056962, -1.6128705715468121, 0.17935540403160175, 1.168017066966444, -0.1447548608328002, 1.7689163936418177, 0.5176497811230387], [1.8316402545784098, -1.3056162898792056, 0.26702753990894257, 1.2367681630069634, 0.10445248709803956, 1.904594282611776, 0.7229906436586251]], [17.68253269448554, 13.341355721102438, 0.7872935257829465, 0.7872935257829465, 0.7872935257829465, 0.7872935257829465, 2.1154323305296523, 0.7872935257829465, 2.76400165437605, 2.428069089159998, 1.022642112029461, 0.6860523282973718, 5.723512155462378, 5.7091958608314, 35.92148779091325, 1.022642112029461, 20.30806208406103, 7.51241191137519, 0.8931938831184956, 41.27059816089039, 23.31770041392249, 1.022642112029461, 0.5247247463375051, 1.022642112029461, 0.8931938831184956, 6.543925963975693, 0.6860523282973718, 0.6860523282973718, 1.022642112029461, 111.45677741606845, 1.022642112029461, 1.022642112029461, 0.8931938831184956, 1.022642112029461, 1.8505428773380381, 11.302574208415404, 1.022642112029461, 0.8931938831184956, 1.022642112029461, 2.428069089159998, 2.1154323305296523, 2.428069089159998, 0.7872935257829465, 2.428069089159998, 0.8931938831184956, 1.022642112029461, 0.7872935257829465, 2.76400165437605, 1.1756278802050224, 1.022642112029461, 0.6860523282973718, 0.7872935257829465, 0.8931938831184956, 0.8931938831184956, 1.022642112029461, 0.6860523282973718, 2.1154323305296523, 2.428069089159998, 2.428069089159998, 35.92148779091325, 9.82814145292989, 4.32672400932812, 31.39333924959079, 3.1651580170028404, 7.51241191137519, 2.76400165437605, 41.27059816089039, 0.6860523282973718, 0.6860523282973718, 5.723512155462378, 13.341355721102438, 3.1651580170028404, 5.723512155462378, 2.76400165437605, 0.7872935257829465, 23.31770041392249, 1.022642112029461, 5.723512155462378]), (Prior_TDist(), Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.953884798518609, 2.7017760271822078, -1.7913072588057293, 0.1367519414951278, 1.1321623966997703, -0.31482132767086696, 1.7000672944137882, 0.3909028931445429], [0.3967763254286206, 3.430310958175883, 0.25039250919614026, 0.06497253841251495, 0.053588074364339155, 0.23166579743429272, 0.10173252243175632, 0.16814544933847933], [0.012547169099866258, 0.10847595710470383, 0.007918106381044598, 0.0020546120674632793, 0.0016946037041379153, 0.0073259157585155695, 0.003217064829985215, 0.0053172259810204715], [0.013836082701058294, 0.15034943395296224, 0.012969112309019998, 0.003044310483049397, 0.0026297938323265936, 0.00798335475783419, 0.003879000453961539, 0.006822185906328588], [724.4593409228995, 473.2383119410697, 301.78216801210783, 512.6922130491082, 349.4068617451352, 824.9216291870605, 661.7511069257234, 459.09074598655667], [0.9991134489152359, 1.0014123486231028, 0.9992363887579946, 0.9997622068306613, 0.9994534361072958, 0.9993358016930187, 1.0054295895724097, 0.9994185469697733]], Any[[:λ, :ν, Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.3999294904286124, 0.5493636648646881, -2.2816535226348695, 0.01513556352339144, 1.0321570010023957, -0.76799106734349, 1.5029674844008072, 0.07007747410722058], [0.6705373823206295, 1.1002835405475888, -1.9561376780906943, 0.08908579063322142, 1.0932263163354563, -0.46944011125974894, 1.6251677198954313, 0.27097768763341135], [0.8798862641964159, 1.7737103475799714, -1.7940688750430231, 0.13834019132192094, 1.131029283143731, -0.3019818928371608, 1.7036802156131379, 0.39107462129460946], [1.1535299107039862, 2.937170581265078, -1.62615703649288, 0.17947999772424264, 1.1688369055596206, -0.151918833702819, 1.7682412718932539, 0.5023002384796291], [1.8897657432468875, 9.819382753544879, -1.2766422555543115, 0.261411551277462, 1.2361706358747815, 0.11277013184520428, 1.8936288571171855, 0.7236380302283951]], [17.29131446465525, 13.2837536210769, 0.7865957359744394, 0.7865957359744394, 0.7865957359744394, 0.7865957359744394, 2.1181296567977603, 0.7865957359744394, 2.74793196065243, 2.4306796970083075, 1.0151942958564975, 0.6855574027448028, 5.742012937992229, 5.571607267973855, 35.841480762083386, 1.0151942958564975, 20.38512335200348, 7.531505984564301, 0.8865616533795929, 41.16010853706391, 23.400311679140863, 1.0151942958564975, 0.5095220025905733, 1.0151942958564975, 0.8865616533795929, 6.562052614829212, 0.6855574027448028, 0.6855574027448028, 1.0151942958564975, 111.34401566064489, 1.0151942958564975, 1.0151942958564975, 0.8865616533795929, 1.0151942958564975, 1.8537718622567192, 11.25193982913317, 1.0151942958564975, 0.8865616533795929, 1.0151942958564975, 2.4306796970083075, 2.1181296567977603, 2.4306796970083075, 0.7865957359744394, 2.4306796970083075, 0.8865616533795929, 1.0151942958564975, 0.7865957359744394, 2.74793196065243, 1.16748837444347, 1.0151942958564975, 0.6855574027448028, 0.7865957359744394, 0.8865616533795929, 0.8865616533795929, 1.0151942958564975, 0.6855574027448028, 2.1181296567977603, 2.4306796970083075, 2.4306796970083075, 35.841480762083386, 9.78222529616277, 4.2987405424526175, 31.343113530609187, 3.1470441203863144, 7.531505984564301, 2.74793196065243, 41.16010853706391, 0.6855574027448028, 0.6855574027448028, 5.742012937992229, 13.2837536210769, 3.1470441203863144, 5.742012937992229, 2.74793196065243, 0.7865957359744394, 23.400311679140863, 1.0151942958564975, 5.742012937992229]), (Prior_HorseShoe(), Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), Symbol("λ[6]"), Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [1.0967789917748096, 3.1027062788233373, 0.7000564198111766, 2.3943662808683324, 0.9351511329511009, 3.3768027424899207, 1.2450525250035676, -1.7489545553432402, 0.11836132446199116, 1.1296756345880907, -0.22024254534114884, 1.705931821441597, 0.37234655970410785], [0.7202169350247432, 3.885771758149708, 1.3790725152602659, 3.2503526210348106, 1.76519557588437, 6.501365653681186, 2.221816105400464, 0.2760668974306259, 0.07058902334118759, 0.05709199451357014, 0.21173388147742786, 0.1020964849792928, 0.17509124450835925], [0.022775259241036863, 0.12287889223310028, 0.04361010206759755, 0.1027851748116812, 0.05582038535447201, 0.2055912336722201, 0.070259994351102, 0.008730001824568635, 0.0022322209156494183, 0.0018054073882471855, 0.006695613232968095, 0.0032285743363173413, 0.005536871309998639], [0.030872518053353292, 0.1974350435445019, 0.04925919432622714, 0.14367441259655633, 0.0790525628097405, 0.25441246578986465, 0.1224034022084378, 0.012796092170722062, 0.003409000974270503, 0.002481579790034839, 0.006335637686401703, 0.003543927833093899, 0.006338828921011985], [495.78689700653797, 409.1762548330001, 705.5282532838253, 501.7930683500228, 582.3219003864343, 610.2202479297812, 350.12331581099613, 431.89564692265446, 468.3049396731213, 564.1506533540419, 733.3562965807295, 909.1701810116541, 559.1850672892917], [1.0051761262777352, 1.0057825196918535, 0.9990181388731773, 1.0042009796266582, 1.0033681943909318, 1.0001135524347562, 1.0003967028755374, 0.9998141019328814, 0.9991008735684026, 1.0001408225884332, 0.9996589358024219, 0.9993545691655834, 0.9990148551643833]], Any[[:τ, Symbol("λ[1]"), Symbol("λ[2]"), Symbol("λ[3]"), Symbol("λ[4]"), Symbol("λ[5]"), Symbol("λ[6]"), Symbol("β[1]"), Symbol("β[2]"), Symbol("β[3]"), Symbol("β[4]"), Symbol("β[5]"), Symbol("β[6]")], [0.27124050790205306, 0.5268777557066741, 0.025867639874893746, 0.34680976381740053, 0.037408541524227186, 0.4982056010651022, 0.10475327965187459, -2.30068761753827, -0.003999363280164138, 1.0234549719666384, -0.6740939511193187, 1.4991970875116136, 0.03045970588698374], [0.624504186619325, 1.2258390157125636, 0.16879143104311756, 0.8695507121495772, 0.20913050189820462, 1.2213508017743038, 0.36581320616382795, -1.941677584711995, 0.06775426239306573, 1.0904876350928427, -0.3592192031235818, 1.6387447229004901, 0.2485370953390308], [0.8979380245803201, 2.0465221661388098, 0.35839479560272625, 1.4059023440647107, 0.5065221282765369, 1.9924996501870589, 0.6567422968701214, -1.7413899187278088, 0.11520335329286369, 1.1298643642720716, -0.20243004789244728, 1.7050547252918116, 0.37630954017452134], [1.3761893945966346, 3.3299851187351277, 0.7633461678259685, 2.5461572771259506, 0.9705942190034706, 3.403298085354283, 1.2086865350338694, -1.5682587577805607, 0.16841629569969546, 1.166538926535685, -0.05169886323431806, 1.7717660230153416, 0.4911252550411219], [2.9053107557786166, 14.044699394423336, 3.2174383804282214, 12.172115264873115, 4.2828176719793225, 14.6181446899156, 7.285044659230114, -1.2302526249412318, 0.2634386395466623, 1.2456320546742885, 0.13798520861385155, 1.910206508853714, 0.7002336465166198]], [18.609889135251244, 13.142091036898423, 0.7775026323470104, 0.7775026323470104, 0.7775026323470104, 0.7775026323470104, 2.124729594039022, 0.7775026323470104, 2.7452501199379165, 2.3940856401888624, 0.9985156322879616, 0.6903737988094005, 5.849307198698012, 6.010399199367853, 36.00773964289551, 0.9985156322879616, 20.32714133523802, 7.3962267817958764, 0.8886409378063862, 40.60166467065963, 22.92534997806272, 0.9985156322879616, 0.5637138574067625, 0.9985156322879616, 0.8886409378063862, 6.560952872827374, 0.6903737988094005, 0.6903737988094005, 0.9985156322879616, 111.56503763132126, 0.9985156322879616, 0.9985156322879616, 0.8886409378063862, 0.9985156322879616, 1.895138816158316, 10.816857110687872, 0.9985156322879616, 0.8886409378063862, 0.9985156322879616, 2.3940856401888624, 2.124729594039022, 2.3940856401888624, 0.7775026323470104, 2.3940856401888624, 0.8886409378063862, 0.9985156322879616, 0.7775026323470104, 2.7452501199379165, 1.1276668945994828, 0.9985156322879616, 0.6903737988094005, 0.7775026323470104, 0.8886409378063862, 0.8886409378063862, 0.9985156322879616, 0.6903737988094005, 2.124729594039022, 2.3940856401888624, 2.3940856401888624, 36.00773964289551, 9.569598661126454, 4.2680551014469765, 32.093966561018526, 3.086011702493202, 7.3962267817958764, 2.7452501199379165, 40.60166467065963, 0.6903737988094005, 0.6903737988094005, 5.849307198698012, 13.142091036898423, 3.086011702493202, 5.849307198698012, 2.7452501199379165, 0.7775026323470104, 22.92534997806272, 0.9985156322879616, 5.849307198698012])] +tests = [ + (Prior_Ridge(), 7.156569426585206), + (Prior_Laplace(), 7.147034162448096), + (Prior_Cauchy(), 7.160021974618625), + (Prior_TDist(), 7.144672898872307), + (Prior_HorseShoe(), 7.139133430699899), +] -for (prior, test_summaries, test_quantiles, prediction) in tests +for (prior, test_mean) in tests CRRao.set_rng(StableRNG(123)) model = fit(@formula(Num ~ Target + Coop + NCost), sanction, PoissonRegression(), prior) - #Split summaries and quantiles into symbols and numbers for testing equality/approximate equality. - model_summaries, model_quantiles = describe(model.chain) - (model_summaries_symbols, model_summaries_nums...) = model_summaries.nt - (model_quantiles_symbols, model_quantiles_nums...) = model_quantiles.nt - (test_summaries_symbols, test_summaries_nums...) = test_summaries - (test_quantiles_symbols, test_quantiles_nums...) = test_quantiles - - @test model_summaries_symbols == test_summaries_symbols - for i in eachindex(test_summaries_nums) - @test model_summaries_nums[i] ≈ test_summaries_nums[i] - end - @test model_quantiles_symbols == test_quantiles_symbols - for i in eachindex(test_quantiles_nums) - @test model_quantiles_nums[i] ≈ test_quantiles_nums[i] - end - @test predict(model, sanction) ≈ prediction + @test mean(predict(model, sanction)) ≈ test_mean end \ No newline at end of file diff --git a/test/runtests.jl b/test/runtests.jl index 1c01757..f8ebbf1 100644 --- a/test/runtests.jl +++ b/test/runtests.jl @@ -1,4 +1,4 @@ -using CRRao, Test, StableRNGs, Logging, RDatasets, StatsModels +using CRRao, Test, StableRNGs, Logging, RDatasets, StatsModels, Statistics Logging.disable_logging(Logging.Warn) From 433a5d1c97f3015eac3848b71603c85662806884 Mon Sep 17 00:00:00 2001 From: ShouvikGhosh2048 Date: Sun, 25 Dec 2022 12:27:26 +0530 Subject: [PATCH 3/3] Update the test cases --- test/numerical/bayesian/LinearRegression.jl | 12 +++--- test/numerical/bayesian/LogisticRegression.jl | 40 +++++++++---------- .../bayesian/NegBinomialRegression.jl | 10 ++--- test/numerical/bayesian/PoissonRegression.jl | 10 ++--- 4 files changed, 36 insertions(+), 36 deletions(-) diff --git a/test/numerical/bayesian/LinearRegression.jl b/test/numerical/bayesian/LinearRegression.jl index 659725c..f49defe 100644 --- a/test/numerical/bayesian/LinearRegression.jl +++ b/test/numerical/bayesian/LinearRegression.jl @@ -1,11 +1,11 @@ mtcars = dataset("datasets", "mtcars") tests = [ - (Prior_Ridge(), 20.094329014886135), - (Prior_Laplace(), 20.070803242904567), - (Prior_Cauchy(), 20.089299279637608), - (Prior_TDist(), 20.07675037883895), - (Prior_HorseShoe(), 20.08147629414915), + (Prior_Ridge(), 20.080877893580514), + (Prior_Laplace(), 20.070783434589128), + (Prior_Cauchy(), 20.019759144845644), + (Prior_TDist(), 20.042614331921428), + (Prior_HorseShoe(), 20.042984550677183), ] for (prior, test_mean) in tests @@ -15,7 +15,7 @@ for (prior, test_mean) in tests @test mean(predict(model, mtcars)) ≈ test_mean end -gauss_test = 20.077725307634 +gauss_test = 20.0796026428345 CRRao.set_rng(StableRNG(123)) model = fit(@formula(MPG ~ HP + WT + Gear), mtcars, LinearRegression(), Prior_Gauss(), 30.0, [0.0,-3.0,1.0], 1000) diff --git a/test/numerical/bayesian/LogisticRegression.jl b/test/numerical/bayesian/LogisticRegression.jl index 7bf3efd..ac9ad61 100644 --- a/test/numerical/bayesian/LogisticRegression.jl +++ b/test/numerical/bayesian/LogisticRegression.jl @@ -4,46 +4,46 @@ tests = [ ( Prior_Ridge(), ( - (Logit(), 0.7726301574939893), - (Probit(), 0.7718991855077517), - (Cloglog(), 0.7729607868936296), - (Cauchit(), 0.773088648259103) + (Logit(), 0.7690822208626806), + (Probit(), 0.7685999218881091), + (Cloglog(), 0.7751111243871245), + (Cauchit(), 0.7730511118602764) ) ), ( Prior_Laplace(), ( - (Logit(), 0.7721450629705013), - (Probit(), 0.7700924638261658), - (Cloglog(), 0.7725984571763792), - (Cauchit(), 0.7733539997964879) + (Logit(), 0.7718593681922629), + (Probit(), 0.7695587585010469), + (Cloglog(), 0.7714870967902365), + (Cauchit(), 0.7714839338283468) ) ), ( Prior_Cauchy(), ( - (Logit(), 0.7490077946647627), - (Probit(), 0.7666419321169409), - (Cloglog(), 0.7630424969124491), - (Cauchit(), 0.7751462774369108) + (Logit(), 0.7678814727043146), + (Probit(), 0.764699194194744), + (Cloglog(), 0.7642369367775604), + (Cauchit(), 0.7692152829967064) ) ), ( Prior_TDist(), ( - (Logit(), 0.5859376296718818), - (Probit(), 0.7612744071932722), - (Cloglog(), 0.7584442886274094), - (Cauchit(), 0.7715325526207547) + (Logit(), 0.588835403024102), + (Probit(), 0.7635642627091132), + (Cloglog(), 0.7609943137312546), + (Cauchit(), 0.772095066757767) ) ), ( Prior_HorseShoe(), ( - (Logit(), 0.38795793121702976), - (Probit(), 0.4088010293870976), - (Cloglog(), 0.7662231188565767), - (Cauchit(), 0.7685459396568979) + (Logit(), 0.38683395333332327), + (Probit(), 0.38253233489484173), + (Cloglog(), 0.7667553778881738), + (Cauchit(), 0.7706755564626601) ) ), ] diff --git a/test/numerical/bayesian/NegBinomialRegression.jl b/test/numerical/bayesian/NegBinomialRegression.jl index b217618..58ed951 100644 --- a/test/numerical/bayesian/NegBinomialRegression.jl +++ b/test/numerical/bayesian/NegBinomialRegression.jl @@ -1,11 +1,11 @@ sanction = dataset("Zelig", "sanction") tests = [ - (Prior_Ridge(), 6.89333113986786), - (Prior_Laplace(), 6.868506051646364), - (Prior_Cauchy(), 6.871750107984425), - (Prior_TDist(), 6.871687824045264), - (Prior_HorseShoe(), 6.512395375168992), + (Prior_Ridge(), 6.8753100988051274), + (Prior_Laplace(), 6.908332048475347), + (Prior_Cauchy(), 6.9829255933233645), + (Prior_TDist(), 6.915515248823249), + (Prior_HorseShoe(), 6.703023191644206), ] for (prior, test_mean) in tests diff --git a/test/numerical/bayesian/PoissonRegression.jl b/test/numerical/bayesian/PoissonRegression.jl index 27d7b68..aa7b6f0 100644 --- a/test/numerical/bayesian/PoissonRegression.jl +++ b/test/numerical/bayesian/PoissonRegression.jl @@ -1,11 +1,11 @@ sanction = dataset("Zelig", "sanction") tests = [ - (Prior_Ridge(), 7.156569426585206), - (Prior_Laplace(), 7.147034162448096), - (Prior_Cauchy(), 7.160021974618625), - (Prior_TDist(), 7.144672898872307), - (Prior_HorseShoe(), 7.139133430699899), + (Prior_Ridge(), 7.177578002644547), + (Prior_Laplace(), 7.1454141602741785), + (Prior_Cauchy(), 7.148699646242317), + (Prior_TDist(), 7.165968828611132), + (Prior_HorseShoe(), 7.144190707091213), ] for (prior, test_mean) in tests