tests/testthat/test-pema_confint.R

In pema: Penalized Meta-Analysis

df <- eval(parse(text = 'structure(list(vi = c(0.063201308790687, 0.16829653421304, 0.0916800291665599,
0.0592107393339526, 0.118922919968916, 0.111701679449166, 0.102424092925442,
0.112155215523893, 0.0671147828299416, 0.100994368383179, 0.0937293772567699,
0.106762375204972, 0.0883475804369033, 0.102233968540035, 0.0815107625311035,
0.0723524188512859, 0.11443419558038, 0.115369643960238, 0.134971078826703,
0.106453174364197, 0.393306030533829, 0.0544079220829844, 0.0813538697300403,
0.0698615025669496, 0.104775202045139, 0.0808540017274944, 0.0877200237681392,
0.0848275636303033, 0.0702851108420852, 0.115103491319012, 0.179637369466428,
0.1112903470305, 0.865444704687442, 0.0899846327266344, 0.112188032205522,
0.100823540762165, 0.126797774193381, 0.185110466258747, 0.100074929951886,
0.0792298073432933, 0.115488397222698, 0.13530319907169, 0.0939936693445737,
0.0746283815378885, 0.16963938682937, 0.112660890026265, 0.382552174410951,
0.112840332614115, 0.107187593002752, 0.0781962008625663, 0.0775999247957376,
0.0818177625084957, 0.123013233635398, 0.112209985570804, 0.126257237246488,
0.0795768057158787, 0.131484831031958, 0.107537902058708, 0.127700371913895,
0.176269991935824, 0.06989102201542, 0.0841135993775493, 0.183399043428931,
0.0986673591205413, 0.101159772845117, 0.0569068020956405, 0.100114802170666,
0.0639013281384225, 0.114761239737923, 0.0633750582468058, 0.0812456380896695,
0.139734339259289, 0.0747157869226216, 0.113500793387955, 0.0857281833966109,
0.183531487813796, 0.0655423930201619, 0.326804250202932, 0.0777083035327874,
0.100427589062161, 0.116954545171203, 0.128315827823085, 0.0807330526528544,
0.138205536614882, 0.119256221329191, 0.121937725477191, 0.106966766896157,
0.0797931854001144, 0.136383444246775, 0.0817211587859638, 0.0741799400589718,
0.125144748527509, 0.109860982824814, 0.112313116924269, 0.0847130571252534,
0.0840126483625237, 0.0775451174340886, 0.0882129792128888, 0.102634651493703,
0.106260283974629, 0.0809023067325591, 0.170355597715812, 0.136492533129791,
0.0983397842480198, 0.213870208145435, 0.0815634556307961, 0.131533831272526,
0.0807850323070177, 0.17108949183058, 0.165857415429551, 0.0870395300093147,
0.101973055305076, 0.143060624049704, 0.139574787256909, 0.17128161375206,
0.128919694765426, 0.0895004277641281, 0.0962120543863688, 0.0722296347081293,
0.0837294627197185, 0.126366364005225, 0.058898308965807, 0.0776043891044005,
0.109055568300898, 0.116420484147883, 0.070243013965601, 0.107251234475701,
0.159979005773642, 0.135003231557674, 0.155421007900478, 0.0631775877286348,
0.119020947913933, 0.0876840296684238, 0.0576149101997501, 0.110931738322411,
0.0807844237809342, 0.076931391444426, 0.0964287283064251, 0.111937149859879,
0.105095110974262, 0.151473757458222, 0.0640359162197536, 0.0834018261428813,
0.130044310567914, 0.0807272430224429, 0.236543946834273, 0.0813441201160689,
0.134533435503069, 0.101435797649188, 0.0806128380808669, 0.134609221572569,
0.106035726559864, 0.112216109313953, 0.177070591692862, 0.101473769588935,
0.114758823000681, 0.0853346525182987, 0.136350984965035, 0.0850954894666101,
0.0776125926804832, 0.113406964881868, 0.100207921924213, 0.0752853888492352,
0.090045307627806, 0.102423521311059, 0.143199288982408, 0.1353150890001,
0.110096933455267, 0.156000577097325, 0.0450945854133506, 0.127399410039976,
0.0521058883350513, 0.106414966219509, 0.135050253135777, 0.111000518643311,
0.091699100160883, 0.106923018459821, 0.0790716729634988, 0.0840861152922445,
0.0782579155604957, 0.0730155629785322, 0.139904726965072, 0.111423530001736,
0.0877038200497928, 0.378379996174644, 0.145292607247857, 0.129585164816707,
0.0733385279582459, 0.0772014329154152, 0.0807143694069947, 0.0960944345931867,
0.100968643006509, 0.325509862849499, 0.10622770985525, 0.0827740787652429,
0.0678257105289668, 0.0715774998058884, 0.145505654191337, 0.0975703469773713,
0.170913379374073, 0.0617841372027428, 0.0888721912257608, 0.101302684667832,
0.0792730144270324, 0.134656680557537, 0.128254496075447, 0.0840893580191455,
0.118940727294731, 0.0656583911319234, 0.107038688087702, 0.132936388152992,
0.0796454710631138, 0.065319361885847, 0.112284987085239, 0.156128477341039,
0.067754880669798, 0.112985912554626, 0.226517760253551, 0.0919745955132208,
0.0869580440137563, 0.159861480120458, 0.126281682888232, 0.0532950676889266,
0.0897332643778788, 0.106526982379713, 0.0559678130209121, 0.136579539491165,
0.0790448410493003, 0.101900500315272, 0.126834895279904, 0.189886080262581,
0.0993263109437334, 0.0733490142928084, 0.126447191904117, 0.0770939723589085,
0.144524212465389, 0.0652846783865505, 0.0581375815471295, 0.0823925648660356,
0.0918093678605972, 0.156456420920929, 0.110193218536354, 0.0928583966842829,
0.112566288047311, 0.122784090872332, 0.103973402516013, 0.122723871120555,
0.0841869937234778, 0.114303860931767, 0.0906879782946154, 0.207090385111255,
0.105551891799213, 0.0811598197586939, 0.191909197660736, 0.183485513919935,
0.0768054473904371, 0.0927325145097006, 0.106677077869612, 0.124091719334146,
0.102121433838329, 0.0965174418584851, 0.145954108829538, 0.12696017353444,
0.0963837975393862, 0.0918653665121599, 0.145966123569483, 0.102651906137405,
0.121711855236351, 0.207184243326651, 0.065046005722115, 0.100390897027989,
0.106383881374104, 0.0929256958861651, 0.0879798264257804, 0.38257136224425,
0.0725464044878554, 0.0629201446592649, 0.126978228671025, 0.155509403387971,
0.0656986835688644, 0.135545211404813, 0.126462628944605, 0.0991794745320845,
0.185392324899436, 0.107061790768588, 0.106439855017834, 0.103876807172629,
0.185389734829771, 0.0796148127279253, 0.120289895865149, 0.0852161674590679,
0.1268024596923, 0.0713297578122166, 0.0673255582287175, 0.0882693735006791,
0.0953151484060085, 0.157049565117528, 0.0917860636144659, 0.103496110337746,
0.106481775667774, 0.10159824928397, 0.0721380710695796, 0.079449460607867,
0.0963682083797667, 0.177086704797752, 0.0815002266280616, 0.129320962491026,
0.0808806914803804, 0.157479356877411, 0.0903507366719877, 0.0840410670196964,
0.164281184058775, 0.112334794752739, 0.115857068963198, 0.0979702785609853,
0.103985492620687, 0.144730065330399, 0.0775726592915145, 0.0898887727678157,
0.118805878806274, 0.132375465335557, 0.0845201192195012, 0.0650543078977837,
0.0693920467079869, 0.0916920134477914, 0.103540659197864, 0.124008752365861,
0.105620378884089, 0.0674193916884829, 0.0973039301346265, 0.116645627373371,
0.136688369363146, 0.0994925249307118, 0.0998644920408927, 0.0849670680179373,
0.0775090729476227, 0.138244468805907, 0.144956030500461, 0.0860315771405688,
0.112814837260053, 0.0610238339824606, 0.10571699409306, 0.107449300716004,
0.0877104347384597, 0.0930263342831035, 0.0846252101589078, 0.0632808724533966,
0.112348930744671, 0.125472111487192, 0.0682290051886458, 0.145318567393248,
0.0713872445744269, 0.171872900818457, 0.0840683750934803, 0.0727868581776307,
0.20631623779836, 0.097443623894495, 0.0608008921946046, 0.207680240279733,
0.0718029231960416, 0.0827534899339712, 0.0642211344209907, 0.0763684504990656,
0.0565242119071557, 0.122890657454737, 0.0577952984545867, 0.0638185989601874,
0.212709305131273, 0.124318363411726, 0.2157468513664, 0.104701666820697,
0.0612620217358582, 0.179189222183968, 0.131979192607356, 0.0818964102630799,
0.115263464656937, 0.0775598633714856, 0.0720404691377108, 0.193582239507748,
0.0852107219507353, 0.116133718446425, 0.170158125791712, 0.188322530370404,
0.0853221768425237, 0.178372470235508, 0.122796013844796, 0.059171165630567,
0.0677184015798662, 0.112725801396546, 0.096503407789057, 0.0916802223315659,
0.0776018222327707, 0.12343122555294, 0.0632710866188463, 0.0709504462655169,
0.094620472870871, 0.0778262988904669, 0.062906846959407, 0.092780359693528,
0.0961104456844962, 0.136098000267884, 0.20156572882772, 0.105499455067689,
0.107068603723598, 0.121397860796594, 0.11507880533374, 0.0599144142661924,
0.0713420488935385, 0.194919316842189, 0.221264631702555, 0.0787835584483312,
0.0821627564916177, 0.0742703343700897, 0.101147941784437, 0.132230452991667,
0.227802791519178, 0.0763149830510312, 0.101148399312004, 0.0898973913936284,
0.106445206793266, 0.0924919390941133, 0.065005056064899, 0.0577644512960317,
0.231382302428731, 0.1425982652071, 0.126452049681003, 0.117122244319459,
0.233216052803989, 0.0638077956663521, 0.10182769443366, 0.0734939956139178,
0.0806473463548762, 0.118847215166121, 0.0782863116820943, 0.13309555780673,
0.201582496987559, 0.0796300230554107, 0.0864207182443338, 0.0675226165189492,
0.225671342639944, 0.0593301186780564, 0.112871204027291, 0.111132866435166,
0.0866869542032419, 0.0862298971713608, 0.0900542450885236, 0.098574821106162,
0.0807396958425723, 0.115640604688556, 0.0991276281144551, 0.127393768088189,
0.130546146851279, 0.109814678016164, 0.112154777608375, 0.100877701537319,
0.128368885859109, 0.117125156350433, 0.112917684005688, 0.0653596550107148,
0.339054350532255, 0.14937760143683, 0.119601731729396, 0.0629697499750763,
0.144803235248501, 0.119426025371656, 0.0631497892074578, 0.0934562769551275,
0.157724452144206, 0.100893406052604, 0.105127972029473, 0.0922552741306354,
0.0770227543939123, 0.0806350316633889, 0.0892388963704288, 0.105158016200416,
0.0841733421677578, 0.214543963050384, 0.113655472825469, 0.0790258785191673,
0.0939679409379743, 0.0967550081027437, 0.306451413565233, 0.0748541563856351,
0.0852962016388968, 0.168369781062974, 0.0629434599193552, 0.100129905838054,
0.160973506065111, 0.212040127482206, 0.0982228855348442, 0.0979991612182066,
0.08787303920025, 0.0783939745482029, 0.0885680499026019, 0.101810256591766,
0.0897775075974351, 0.0931257874849372, 0.103436087099897, 0.109156438564826,
0.158113050033858), yi = c(0.19115079909447, 0.0332540126950294,
0.012698576133407, -0.0542735641302845, 0.0966635187264119, -0.627794439774301,
0.341136986309052, 0.00658806513247937, 0.722363764914894, 0.0878372256847779,
-0.41509817322346, 1.12564573515046, 0.243783849191921, 0.702453216709841,
-0.632780786311564, -0.570236027093614, 1.21221231015595, 0.811307157252245,
-0.132714510229013, -0.127410723621553, -0.493707555306756, 0.0765429832123481,
-0.26479542360628, 0.563678176981252, 0.543193093222863, 0.148759161460475,
0.0648504300338969, 0.275808897364563, -0.305991224653624, 0.799409978196735,
-0.707179312840352, -0.888937430538515, 2.79248382925036, -0.947981995628535,
-0.0476962991543472, -1.07578579361777, 0.185621126265064, 0.860766425560048,
-0.566319198521551, 0.692306188003255, -0.816559574253993, -0.738092606123692,
1.13293308688467, -0.761627827416386, 1.80421664855461, -0.185551256432056,
0.267741390526249, 0.215942966399225, 0.262890917434878, -0.262593519857911,
0.0965802774301855, -0.656590832455272, 0.85929542893266, -0.0613821292573365,
-0.691910501161242, -0.454989936155302, -1.1464978225669, 0.957995408736308,
-0.297676108794062, -0.593243600186956, 0.222469505727246, -0.101910924890725,
0.8158530718576, 0.456192687475953, 0.638361078131021, 0.378277260484826,
-1.5036008404764, 0.351199412177273, 0.421014309918656, -0.241005312292458,
0.830020635629453, 0.900360542488619, 0.0991450160005074, 0.302560237570073,
1.07476461027177, 0.0550724086918223, -0.267451061244927, -0.09772484094282,
0.142005717115471, 0.857295914527967, -1.45712751611718, -0.354314013691496,
-0.102558163755872, 0.445805761922554, -0.175143149766632, 0.449768149586224,
0.230677599248124, -0.478177592977944, -0.310975247808161, 0.324617260372095,
0.727908992839306, 0.939857248122354, -0.511464272122887, 1.14007560819654,
0.255999901173542, 0.0331412617402109, 0.0620243002669014, 0.218141370247723,
-0.363836356918654, 0.0484291693597991, 0.163604916199465, -0.30282771254011,
1.06480001791349, -0.426504136327903, -1.10298766242632, 0.30039451199279,
-0.903571889383238, -0.124532018985709, 0.352130607207117, 1.05918408262973,
-0.528745169939641, 0.28652327005015, 1.44969347875933, -0.895028483528654,
0.363935885943072, -1.06772093312179, 0.401099900177764, -0.108108229902858,
-0.17608034299239, -0.546052692852925, 0.092577487687685, 0.939852647193811,
0.0988644569842357, -1.37176291579791, 0.538592303169626, -0.298187490345929,
0.271466057771695, -0.9034343466954, 0.139333033268203, -0.0491938209255874,
0.72565116127617, -1.66092952984329, -0.0322195204904465, -0.130753065469527,
1.09053294505763, -0.124297245539234, 0.490155694106876, 0.170356399871663,
-0.64115499544405, -0.849901121545439, -1.9606501339911, 0.624298891706782,
-0.955603376461568, 0.478797853992605, 0.0998020662785706, -0.646785836681227,
-0.263022153860801, -1.00419959671291, 1.10054244798092, -0.55733210790464,
-2.0323520819645, 0.89307399651559, -0.0646852404054683, 1.74666088651598,
0.210118704197177, 0.783734772943413, -0.350318034878349, 0.308038771864758,
0.655219132102788, -0.102929774424372, -0.975229568930524, 0.84646573792368,
0.262808551165197, 0.745723136046954, -0.341073306980943, 0.691659533256674,
-0.192035702241943, 0.836367337773723, -0.173894661982161, -0.275638774140436,
0.742858802465466, -0.534930074881412, 0.116114194120615, 0.148481993970561,
-0.586210099358592, -0.0419906818110761, -0.931968087033506,
1.03813563042762, 0.0886414167533686, -0.274092733329992, 0.340418184578656,
1.55715936235082, 0.611636410293411, 0.052722396200325, 0.0702182342415802,
0.229130738767483, 0.831701572747821, -0.849157248450063, -0.518012468429352,
-0.0934054888668032, -0.0477263650214324, -0.0758963081389588,
-1.45015820572236, 0.000218745455240895, -0.454375047446797,
-1.06776486995278, -0.48823989340384, 0.252149432894624, 0.346916123368353,
-0.86374409563817, 0.318624217549359, -0.324955865536054, -0.176486304991722,
-0.420281706856217, 0.00261498604405276, -0.349082390618473,
-0.0903085358032984, -0.102388987223838, -0.292318052080972,
0.241641222861843, 0.951948422780079, 0.462474190335114, -0.21158056159121,
-0.0941693621819898, -0.190731657477579, 0.270859644715361, 0.237762067395278,
-1.31243432894348, -0.157812632432678, -0.521607844211658, -0.464287301760767,
0.0590738876914689, -0.23247212619775, -0.42587645148877, -0.146791245007711,
0.107866655357093, 1.06741158194789, 0.875811950155276, -0.276733454889601,
-0.191526676228932, -0.507165326250262, 1.01269879516462, -0.389740018901912,
-0.985848769567347, -0.507110460917128, 0.112001637308407, -0.741343822754542,
-0.296950614367581, 0.412105992941588, 0.105003352970041, -0.228297737612311,
-0.534337601979416, -0.314871601330679, 0.167321051259587, -0.506417588232487,
-1.19770735494462, -0.502597960160474, -0.130912629022231, 0.382297384685868,
-1.65336150663252, 0.446114375850856, -1.07953587943091, -0.226909275071714,
-1.01983480086675, -0.0345545140998225, -0.476607199746869, -0.297607161640366,
0.179873691471822, 0.583221223231224, -0.305568900262147, 0.19004838105607,
0.795401044369501, 0.210235969756536, -0.159457961902572, 0.125417665686371,
-0.295844121409716, 0.365634034981995, 0.806160593833111, 0.449885465529883,
-1.01376790004976, -0.855496437278289, 0.106039602069824, -0.323724046500492,
0.164524199277826, 0.268314102375751, 0.255373106255803, -0.0409179141466592,
0.212796783750573, -0.081627295783447, 0.300474518063254, 0.223079729243861,
-0.119776824091256, 1.18171331160706, 0.278327960551484, -0.684718540355927,
-1.81910220056484, -0.790485681257737, -0.278141781899311, 0.459147626812192,
-0.743775279104936, -0.334398116190566, 0.186376855996317, 1.56288296851955,
0.153504214828085, -0.229234279153656, 0.552730739103136, 0.283885150079454,
-0.0952268211163107, -0.444800816954188, -0.135250827544082,
-0.231539039205343, 0.54878244782828, -0.440773560007222, -0.155498259940618,
-0.622794777665673, -0.631947729817031, 0.821473406305772, -0.157135306011981,
-0.318152137993828, 0.48549800598381, 0.0609332396120756, 0.653994256561556,
0.110701355744858, 0.501766316600596, -0.390314390385555, -0.795966361172512,
-0.152475295508119, -0.0812477665304613, -1.11274999312348, 0.0430488262732275,
0.607549727221133, -0.611617991356595, -0.721181836275824, -1.27231557769678,
0.0341750414669131, -1.34077415700074, -0.578651111860224, 1.08219713089078,
-0.185602331081209, 0.31470215956257, 0.552622301727583, -0.337315003025602,
0.523569511068176, 1.35909394752705, -0.298169333647484, 0.0155745040692832,
0.448244330762551, -0.187079941692181, 0.720539053607477, 0.211890728115038,
-0.064827307616555, 0.605503866351831, 0.296571390771128, -0.0579805455630668,
-0.336527686268868, -0.239695699788442, 0.215417088854259, -0.114961026505156,
1.17711382854397, 0.3582783712725, -0.232057801007489, -0.465907295056966,
-0.398077831584053, 0.0788999523303981, 0.301967584178291, 0.956254657286276,
-0.331983358051007, -0.461352140310927, -1.58457034751426, 0.513444849237139,
-0.45219482077993, -0.403728877035211, 0.426270742777299, -0.55731908540773,
-0.854431655487778, 0.204032268985722, 0.336277577326393, -1.39830888925249,
-1.14128309543071, 0.714598363786265, -0.831177709108569, 0.186254160350081,
-1.78267834506149, 0.587656623679553, -0.86983593947675, -0.806581919938135,
0.0729493492999942, 0.102831928811636, -1.60111266716695, 0.333648187984289,
-1.07624624646164, -0.842497294236877, 0.441219528651481, -0.348676014933253,
1.95297594785867, 0.507170428858905, 0.47827513286892, 0.262932258772543,
0.197086889322081, -0.187071274084993, 0.0133221505890741, 0.0975576429184741,
-0.875678071312422, -0.54023228084796, 0.666371185030325, 0.497150404805173,
0.968629800792739, 0.00503596224544056, 0.304284436179593, 0.0596547837388035,
0.769719927626988, -0.0114197256325263, -0.868722880945535, 0.938195787856178,
0.409560799911279, -0.445923210510306, -0.309565357911792, -0.460442929501371,
1.08282420782085, 0.842194106858726, -1.1630526941825, 1.19328409958093,
0.734830364575071, 0.139237052222616, -0.600346508620726, -0.372310285176777,
-0.68718404246732, 0.139361862813127, 0.943554288881823, 0.125139232004696,
0.261460681079009, 0.0839621077003803, -0.193478560114508, 0.503149378966245,
1.23473314165304, 0.986016290578261, -0.581206814052174, 0.558425742209612,
0.334279823765844, -0.678924585764877, 0.409335149985292, -0.0478578347512368,
-0.0670725612577675, 0.617385057466488, 0.642123211943668, -0.0270936134118921,
0.460801015575923, -0.471848251407441, -0.215458361724168, 1.58921282405601,
-0.13676144626724, 0.220750132125245, -0.594282190212295, -0.762950015263241,
0.733631549709796, -1.26689754260222, 0.761133218801016, -1.25682278272521,
0.823242659151986, -0.494907352561701, 0.264980822333283, -1.11831423708387,
0.508194603902312, 0.00369111730979702, 0.620434655260914, 0.783508553128116,
0.581377139907451, -0.227796530623913, -0.551519319043224, -0.50453161558396,
-0.514704374641104, 0.229755932509448, 0.503269139593944, 0.164479638501565,
0.203819973574525, -0.877405213785474, -0.386479065507428, -0.336132943515208,
-0.00649931475673556, -0.567335223068652, -0.220185900588934,
0.499754290838986, 0.0332890667380133, -0.371303605257304, -0.852856573226986,
0.126024494885997, 0.683627707271608, -0.731299515728918, 0.389773167793098,
0.438572505561655, 0.234784340795373, -0.733666053615896, -0.155628269768533,
0.882584519637875, 0.0657927865150416, 0.0675675066086538, -0.842585837906909,
-1.21398066977041, 0.61417323427109, -0.741458824731148, 1.13483810561355,
0.596870421700182, 0.834717311379291, 0.280770151740359, -0.264050908100392,
0.430423228060044, -0.348719016658838, -0.439643037800649, 0.459204219208684,
0.84803532964151), X1 = c(-0.227366349331733, -0.600928981071735,
0.11822240931739, -0.544938930668552, 0.194486759386557, -0.875816076373267,
0.367334014847043, -0.245912937627553, 1.16794946140415, 0.891169611088306,
-0.146329777795046, 2.53075742027201, 0.694942177278797, 0.151599110149833,
-0.554646503480635, 0.841854886478731, 0.963289297635175, 0.261726005394515,
0.546130599454042, -0.0263024071695456, -0.0430055150301426,
0.0215235977765574, -0.526555316987279, 1.05940293592072, 1.40905216942334,
0.903738045138123, -0.707132231579503, 0.605526307983697, -0.892279009481894,
0.0747070897044596, -0.0199436996217381, -1.02326932721762, 1.98749023502131,
-0.761827641491923, 0.0431882951785517, -2.32056336262725, 0.809644343397845,
0.778269601091481, -0.609560833361155, 1.7805749758245, -0.528790740749647,
-1.72849800732925, 1.39767222787919, -0.850223275508943, 3.02438925918398,
-0.277578948468942, -0.637700974305969, -0.674540967431687, 1.50452662681306,
-0.525235185673899, 0.28673900066771, -0.596812710697635, 0.839085617084578,
-0.83076161818012, -1.16582263726289, -0.927748879441353, -1.83023970921917,
0.250602091677605, -0.608152378706089, -1.13345423542353, 0.317023838454737,
-0.524033112665552, 1.62998927057573, 0.660392086717848, 1.1155452731329,
1.15063971448765, -1.48051597182255, 1.28002722380882, 0.138337652327003,
-0.188792381459293, 0.844106786903326, 2.25003241815898, -0.0642880184079672,
0.609278935745668, 1.74070340482801, -0.647058943534575, -0.0184904988909068,
-0.582324431396682, 0.179082148534585, 0.555650412734254, -1.88198939724488,
-0.307034851018871, -0.208145281893841, 0.46116035995399, 0.0626932034445087,
0.947378797312673, 1.0531749613062, -1.57128376573767, -0.557084679550669,
0.994961565776889, 0.763407554506236, 0.492285797373619, -0.967267018724096,
1.0863889698711, -0.265421131962733, 0.550610049483374, 0.237970675002545,
0.67725975579232, -0.330290122770644, -0.687712522485299, -0.128662204057917,
-0.129113728526124, 2.60310351465946, -0.936094907245513, -2.33556579441164,
0.916150837019133, -0.652940862848894, -0.770106030831168, -0.102347831548826,
1.11379311342743, -0.74081958707973, 0.66068308706735, 2.55509381386867,
-0.443326946133613, 0.433838013500972, -0.825277604339775, 0.551119665676457,
0.492712785524977, 0.719443608396257, 0.163669369176281, 0.16864035999644,
0.277781810214187, 0.146334791872131, -2.33799287350643, 0.913854353964734,
-0.554282028676464, 0.0315475073782598, -1.64933410686404, 1.01154545129755,
-0.751479583301812, 1.1902094180582, -2.69503085474018, 0.795923599408726,
0.130829389743187, 1.13309879586713, -0.202877601445211, 0.169668219973534,
0.999583436668232, -1.19491582192173, -0.928110422162684, -1.50988282722095,
1.78554278976389, -1.81181488717933, 0.783655447435681, -0.041194760105955,
-0.506608237167014, 1.16071658144301, -1.12348385595003, 1.3552788430806,
-0.871009845598659, -2.60997051513496, 1.41756347893054, -0.314145392811792,
2.52980257943856, 0.583202415274709, 1.86643612849438, -0.38318948914284,
0.402782138160939, 0.758399421333663, -0.586169775371174, -2.13739984414623,
1.02811766280204, 0.381154078080198, -0.0603935199229476, -0.259898622359446,
0.59195544454507, -0.157538331121525, 0.0949790277229988, -1.06315216580786,
-0.787451063965596, 0.376641328598867, -0.250680424497649, -0.144482903824216,
-0.716259668283898, -1.32140041654429, -0.284748965683612, -1.24737578728139,
0.200166404757639, -0.133513223555293, -0.748702828438672, 0.412509387085545,
2.19909748860801, 0.125027359131069, -0.749865513370243, 0.130009901021056,
0.344351353280042, 1.01976184010398, -1.6341293724425, -1.95115426514579,
-0.280800138148853, 0.748351925931299, 1.73779302690112, -0.710856974957456,
-0.189402134131821, -1.39626547140391, -1.25740310593192, 0.254727338719886,
-0.289061036148702, 0.719543869120135, -0.594768089329938, 0.308898087753634,
-0.471258219974252, -0.609454557649656, -1.21472142410397, -0.279861126952704,
0.215023457165032, -0.996441920883336, -0.151145478811465, -0.388850967811473,
-0.80417424265712, 0.279922660162577, 1.40557756911416, -0.882246449109658,
0.255610442686298, -1.19797046285656, 0.0821690249387867, 1.03248593475089,
-2.21127347479342, -0.130684590439355, -0.559697221859718, -0.845504208185948,
-0.523986678976387, -0.479022649921431, -0.209402919108894, -0.254755877007828,
-0.127451268198992, 1.54761985004678, 1.61801400791362, -0.362263604863058,
0.785762977072263, -1.44706917171047, 1.87382854417737, -1.35350675751325,
-0.829432098422794, -0.599277342031688, 0.421198650973096, -1.19949684644424,
-0.082456946206379, 0.406016385214562, 0.221029675088193, -0.686338071078885,
-0.0973327717868026, -0.0956581342315039, 0.141242372959487,
-1.30444328319876, 0.0138323680084377, -0.772224140501531, -0.246464293609864,
1.46137413766324, -1.86778507189784, -0.0430898229440745, -2.34978002087707,
-0.316634695205678, -0.765329404272737, 0.499695173831004, -0.866269983345009,
0.170726935133485, -0.232230303585764, 1.4044828299214, -0.872109942616388,
0.860982498161977, 1.32726998446791, 0.166633009688384, -0.182181469434824,
0.223397655862019, 0.160192411474034, 0.60801524203836, 1.97288872545988,
0.0652309704063554, -1.76760702996725, -0.968240060288637, 0.86825516252386,
-0.10819358618863, 1.00053664108859, 0.755609924531283, 0.96107470818964,
-0.02112134141443, 1.38008598450723, -1.23656558202518, 0.620064167856085,
-0.0461990588881012, -0.605238816427553, 1.97583289875644, 1.20809608274762,
-0.719663435538301, -3.17141963176026, -1.61228107629622, 0.361637614801434,
0.827828138524289, -0.617794330256591, -0.626936405110851, 0.115726187109893,
1.57002385310312, -0.704631374918673, -0.96051172291142, 0.884796485449009,
0.389068340149605, -0.055128440446829, -1.10317900281992, -0.280601588105951,
-0.617914677381223, 0.96810483992514, -0.824208134610627, -0.152794467461942,
-1.21226153045109, 0.470380616724232, 1.13006101802511, -0.411699421608424,
-0.607790094011277, -0.207866428755294, -0.744380709515509, -0.300359683314722,
1.03463017427475, 1.6128659170677, 0.593901339984524, -2.04245919270311,
-1.4005246872205, -0.550435719114668, -2.19864244440397, 0.695735116515822,
0.247568422870706, -0.809786048104707, -0.744209033739651, -1.48919229303556,
0.260786813574317, -2.14097618347111, -0.860526290176658, 0.926294703427413,
-0.118108186015404, 0.513002931825565, 0.719697384678228, -0.772587231457709,
0.930802387390065, 1.99754077297115, 0.413323207462651, 0.183341247617673,
1.11418760027836, -0.969406151718804, 0.900103333069732, -0.0627841821516951,
0.747706669079536, 1.0172353616545, 0.227368372606763, -1.03120932996094,
-0.576331566006866, -0.453066608520854, -0.0548269837065876,
0.0815300788525051, 1.25918329998258, -0.570215283237163, -0.0732815084101471,
-1.99401397374311, -0.460987531411515, 0.456449365808261, 0.355268812829121,
0.694647268313996, -1.31594045293184, -1.61839257543063, -1.67202970403,
0.936381665863341, -1.34204234300327, -0.884343314399483, 1.53654939851708,
-0.799252444828099, -1.71776037394695, 0.130696558294191, 0.424332365705031,
-2.03089540526312, -0.857035105077787, 1.91566351736205, -1.08960589821223,
-0.37999752043759, -1.93459162252857, -0.076886195612397, -0.833261257956152,
-0.449822241677254, -0.208886483455665, 0.887477967864052, -1.17006509815096,
0.839678417246095, -0.911111926020097, -0.576890194620248, -0.0177545840499302,
-0.122604126038114, 1.67148935141739, 1.53900831939189, 0.738759128341099,
-0.0777654357227262, 0.196682150867042, -0.764783784988325, -0.347459963066559,
1.01606567506098, -1.43004563368199, -0.327899063392508, 1.41368722521538,
0.110186024363355, 0.908835806418039, -0.0631820235154394, 0.88720395671099,
0.889075560271195, 1.54027889665814, -0.176282580850891, -1.66941591475905,
1.40047120121157, 0.599446291905775, 0.0061273462619905, -0.0367099710703562,
-0.192690869459997, 1.24830384726981, 0.417194772915333, -2.14793229110546,
1.95932171709981, 0.962274869164262, 1.3907389633255, -1.11229328806307,
-0.663701276451978, -1.42322395611931, 0.403472394042484, 0.839780812879326,
-0.284615346805674, 0.743833039295978, -0.27571631372922, -0.54107198601498,
0.205524841950249, 2.16354744520704, 1.49107288913575, -0.83276606760785,
0.468737222771328, 0.238769215913885, -0.64177473391936, 1.29263765356105,
-1.52520704969216, -0.695013588528333, 0.574661170940631, 1.89069502488562,
0.721749895951246, 0.483903673693744, -1.23666836179032, 0.197055134770917,
1.169523850135, 0.265017222363012, 1.49770494910411, -0.390089987203865,
-1.45186431454679, 1.00045070357937, -2.5099625174379, 1.63460051111966,
-2.51123516037525, 1.57618483023478, 0.00162027642555522, 0.781833636132788,
-0.864551782106466, 0.714920102638422, -0.49849474138073, 0.304428570360261,
2.0453606690302, -0.103894028580323, -0.51311914480302, -0.529211618882982,
-0.314236911344022, -0.983927367464321, 0.139997721259578, 0.456186772629842,
-0.528865220372211, -0.557011504608246, -1.0716532696061, 0.456407907012488,
0.804391846063025, -0.442417557990416, -0.647567128009555, 0.947255855417325,
1.03309519383625, 0.196518590585601, -0.246121717281106, -0.614537810441719,
-0.856147585319263, 0.67118269866763, -1.15214003702896, 0.569642798265489,
0.923788682369838, 0.343291241915235, -2.12723624521041, -0.812160106915473,
1.94348188610456, -0.222585229463514, 0.188173392912024, -0.959875265319683,
-1.23432185100111, 1.71422434834162, -0.921965347419869, 0.824644922089428,
0.561303758593764, 1.11790214363688, -0.462060862404308, -1.83315794699271,
-0.151448301037759, -0.413183259902068, -0.377115435842494, 0.767341092890932,
0.987515496310286), X2 = c(-0.103885194876104, -0.366309667329921,
1.72834819279843, -0.622906839874854, 0.534990407232091, 0.400606927619831,
-0.626202531476166, -1.39227951039122, -0.247133144582121, 0.58177982988864,
-0.88237029946671, 0.23253134164943, 0.197712876228829, -1.75960899696298,
-1.31936150287651, -0.17414865398126, 0.931422469577986, 0.694051991603023,
-0.947427300947875, 0.327978512421217, -0.89502620996686, 1.03919915935464,
-1.03053186783793, -0.520925751922446, -0.789766697507364, 0.212242912030549,
-0.752038609941822, -0.554385360833815, 0.811838910522399, 0.0115101695637081,
0.0660668104315541, 1.01897914578914, -0.322919969850061, -0.560434544663234,
2.18388819581159, -1.59078720010989, 0.571362260643637, 0.57695780057975,
-0.606615101690288, 1.34697565316482, -0.19107730373413, -1.00500129021879,
0.790106029731831, 0.159472537675379, -0.391770142484792, 0.218200230836409,
-0.259283181789849, 1.27471526660443, -0.517446905375214, -0.221789349821988,
0.306622295981328, 0.567399383923326, 0.331751440562548, 0.669840656510334,
0.0864331011839594, 0.84948443465126, 0.582891362648471, -1.00646922023248,
0.36704941855377, 2.29504988412781, 1.90213965773464, 2.60582642032438,
0.611747583222742, 0.39643635334139, -1.04988327768237, 1.29863486308571,
-2.00302778564445, -0.276185426830528, -0.235738404072345, -0.358198698877995,
1.03272263486001, -0.830962656717859, -0.562330638216156, 1.56266043509922,
0.660572475418067, -1.15290450440932, 0.145164216391624, 1.76618728692619,
1.00187099362427, -3.10776336762066, 0.865164787502877, 0.440611432878145,
0.520771572532442, -1.21994517344851, -0.910324535247185, 0.921438942736164,
-0.819304415676723, -0.557606606835027, 0.553967287773965, 0.59374422690214,
-0.139498911690084, -1.21855237203302, -1.40346301895362, -0.0412796763634618,
-1.08195107870699, -0.546342508362831, 0.0139213168149645, -0.639690967379391,
0.94632786977791, 0.0568942770557225, -1.34282090084562, -0.817364267809741,
-1.98214104766627, -1.51814430851916, -0.0382505809651396, 0.10575732155279,
-2.18695925217893, 0.10875035121862, 0.447491725959786, 0.170346052414539,
-0.90812179553985, -1.49158894273669, -0.839981387903382, 0.169156229269889,
1.2793288022046, -0.208086373570586, -0.776638381590285, -0.894404863121422,
0.3104312635355, -0.771282889229743, -0.197236806345268, -0.159618880004912,
1.42290064354751, -0.246923270856233, 0.415172309886975, -1.33617914146576,
0.290031909723034, 1.88966300519165, 0.377282448717211, -0.0651393431958104,
-0.545501384562093, 0.945794258399831, 1.89947150355196, 2.56419565300002,
2.73704935036586, -0.36559270417647, -1.07006596234342, 1.09154310640821,
-1.87530049194147, -1.06807632966135, -0.660814443038525, 0.0204290917818535,
-1.2946807939884, 1.28944245410501, -1.28537147279342, -0.0695452008046457,
-0.188304006500104, -0.413272466874719, -0.028210690963718, 0.365085196775743,
-0.0699726657679815, 0.840562222045676, 0.145068722634266, 0.35181421102121,
-0.494332604087229, 0.176512618928094, 1.04042442128472, 0.121906647122077,
-0.774564944417155, 0.161862712858343, -0.38367734240512, -0.551389473239621,
-1.20146319462698, -1.06782156811273, 1.51742598599892, 0.0807908154337515,
-0.0371794433770168, 0.773904554271313, -0.25017776311253, 1.17470139751782,
0.145519534282001, 1.56714438969376, 0.0218691798161127, -1.21206169749078,
-0.0599590127555985, -1.05075877970307, -0.261363214136757, -0.133054922804493,
1.49949924978141, 1.64674501870684, -0.992628056776876, -0.852811405716583,
0.566161713439368, -1.25209409940426, -0.570141795538106, 0.644670965521457,
1.19072285439163, -0.752910296872976, -0.0356578222789467, 0.127597751978492,
1.00377107966959, -0.950117816733362, 0.564361956328436, 0.0186537346320847,
-1.10140679063213, -0.315528221328533, 0.432151328853167, 1.54679060838341,
-0.0197801105657102, -0.897326148479643, -0.306018724331846,
-1.31330842567612, -0.625158443973035, 1.95498788829569, -0.756434164006855,
-0.684097064600999, 1.63681878468056, -0.408815387480644, 0.812240081505679,
0.90082202887438, -0.666560306374742, 0.264345855797396, -0.15892288645298,
1.72515621809421, 1.47539595123869, 0.399995944963626, -1.51368438207621,
-1.07380119402151, 1.36205368283896, -0.679086013019574, -1.82981487092523,
0.335498500124528, -1.93770673985048, 0.666053194086803, -1.84933260563749,
0.434742986199984, 0.178354832870549, 0.563213086738147, 0.961795002054471,
1.09625533142793, -1.01237302160893, -1.53999682391403, -1.26014440840866,
-0.592590349982087, 0.994105256318871, 0.457920986216253, -1.85223802522623,
-0.665734248804856, 0.0176657223180171, -0.00615587319251447,
-1.42136736584496, -0.57397116213328, -0.461657034057622, 0.584446486494732,
-0.11827984409147, 0.988420175979359, 0.131850480710007, -0.0105813562679858,
-0.467678070709524, -1.22647253841741, 1.60868208774565, -0.420230759989489,
0.0954944184896842, 0.438342454772742, 1.88367434499426, -1.63655752549209,
-1.30346108796825, -0.886184642218888, 0.854850470804401, 0.461177073224207,
0.288075070378977, 0.540877539058837, -0.93701705086041, 0.519508393015691,
1.06512307075819, -0.813459962654222, 1.05076976348984, 1.69863860621354,
-0.650711529718611, -0.95340550547624, 0.26193832735335, 1.91403544090852,
-0.843027757101935, -0.599271260757206, -0.510566903211431, 0.407068874883025,
0.143560476001322, 0.60137888807348, -1.46573285212364, -0.143187122678676,
1.9158719560121, -1.78272060449138, 0.0290262893474306, -0.441901781247268,
1.57762349447791, -0.47064326558986, -1.77324094830785, 0.583653784962373,
-0.227336336113209, 0.465200649136279, 1.49419035165355, 0.733965486688584,
0.791015415714142, 0.725857258395351, 0.0843641960395412, 0.00171962495704086,
1.41892637553522, -1.39258219772995, -1.08630881275546, 0.837460468738585,
0.585582966222519, 0.881055738582873, 0.689470332424646, 0.494353707602386,
-0.186509027425375, 0.501022329230792, 0.410927893260088, 1.18403115375345,
0.185170511856873, 0.844334867602278, 0.363700035046374, 1.0889479107406,
1.45711341178158, 0.107002255057333, -1.67711565865765, -0.848161088255315,
-1.3680129599413, 1.59541581731502, -0.973569309982408, -1.18324265430583,
-0.705864560041248, -0.0346913022660346, 0.0140811615463214,
-0.494395431513258, -1.82035447455315, 1.07017273791028, -2.30293253197102,
-0.104575455834417, 0.277578593716687, 1.32112871986259, -0.760727506538121,
-0.474555408909269, 0.553667260257965, 0.453465999310325, 0.442427598232721,
-0.045712746497441, 0.845836735986847, -0.694021320530004, -0.0296990248253693,
-0.527717538593798, -0.158442691770959, 1.30967520081072, 0.216849123615903,
-0.504829416924364, -0.00996681046508751, 0.973846762037809,
0.032443060472048, -0.360238258592025, -0.908231001901891, -0.371836756752848,
2.73954422535929, 1.32982139692834, -1.13786059941738, -0.544967646160646,
-0.365041010135811, -1.49421793742789, 0.733595288680291, 0.78600230420417,
0.103760587656026, 1.23201083637709, 0.804172965688991, -0.273402588398223,
0.554310695384846, -2.14982498398312, -1.15915679676597, 1.32631954023122,
0.490000409574758, 0.254075769901027, -0.246631375239069, 0.850917553874979,
-0.909269345206182, -0.0702692712940394, 1.32125069577441, -1.21011044897222,
-0.229150344696399, 0.196160684606874, -0.970891434738068, -0.756642046604284,
0.128324989413435, -0.392921331720763, 1.08505078562089, -0.00784949077677098,
0.768781330228401, -0.369822207960505, 0.451498237443724, -0.233520909705141,
0.236458454455808, -0.805641915282221, -0.534150686677402, 0.541153433205408,
-0.915176278427235, -2.42220433931015, 0.587915921492348, 1.42944408943682,
0.195867419968104, 0.794793473837512, 0.499635624936883, 1.3780561336622,
-1.51684341923403, 0.0311634274867169, -0.398690943451709, 0.333613758432056,
0.425881033717247, 1.28658764330175, -0.706412577940861, 0.390946022481137,
1.75028067110576, -0.140159515569751, -1.12012825129879, 0.958741359744639,
0.724255134603152, 0.129482330423787, -1.60253773972941, -1.02932400624686,
0.446535279923931, -0.0432207212279853, 0.133626702858017, -0.208603761626569,
-0.15666955717929, 1.42953745390326, 0.602674881604458, -0.0324306622390073,
-0.905596537473424, -0.753594819274232, -1.13725457498242, -0.374647161739986,
-0.29289068101461, -0.291586817792914, -0.00273741597668191,
-1.30160654862923, -2.5725170344846, 1.09494415076602, -1.4633157960938,
0.41313368946733, -0.145031303471542, -0.706345008940682, 1.00956816887436,
0.753364254407509, -1.84865969541856, 3.24086883096583, 0.369162799801734,
-0.0480681198340486, -1.25894731999657, -0.391852939970014, 0.577955945143175,
-1.22519367424644, -0.865926772987568, -0.373111781598513, 1.02236877917012,
-0.488119066713727, 0.68855108304226, -2.04275896619938, -1.828652204455,
-0.390930847083019, -2.23853929408143, -1.56767493728014, -1.11705373216979,
-0.258377990086525, 0.996808188942432, -0.152653002556605, 2.83660876255091,
0.362054632211018, 1.3506783457378, -0.0715730289830266, 0.315676912944759,
-0.365755738251125, 0.206333273984071, 0.727060564888976, 1.27636432963155,
0.248523993176052, -1.06871289543008, 0.167279269034, -1.17725729036195,
-0.427660686058101, 1.2931948531675, -0.585859010228607, 2.41795338012999,
-0.827777683130388, -0.958804985913871, 1.25292251943034, -0.303900710409884,
-1.82397628580043, 1.43699434506854, 1.57112647848401, -1.40146210492859,
-0.944544225009113, -1.36175611176003, -1.29757200448483, 1.55743856236,
0.36974244608447, -0.960742770997673, 0.931368578344515, 0.495564634785863,
-0.0355841619793648, -0.192170002990557, 0.626681137405153, 0.256401817714925,
-1.3912308448913, -0.536377934451066, 0.760651247460231), X3 = c(0.235166911989031,
-1.54560962446456, 1.0555244136931, 1.06126998529673, 0.233820799021583,
-0.952383711356261, 2.48241371332179, -0.440135467723395, -0.661760215511623,
0.920107413201912, -0.659102455094559, -0.337675426690086, -0.854808361256786,
0.502259449553399, 0.553656568364307, -0.49812425051503, -1.42207323127579,
-1.16151355785463, -0.0742363769596716, 0.997910390599228, -1.15951133183949,
0.863749450418402, 0.475444621986954, -0.685537898694591, 1.00028119504139,
1.59950709383737, -2.57472286389081, -0.017795276064166, -0.465108588397843,
0.712011930761482, -0.208493556587574, -0.282430311037072, -1.44673883089154,
-1.61674571574606, -0.630658815476897, 1.62261098336353, -0.941617364051467,
-0.844649838447514, 1.58514057016603, -1.40760012175797, -1.22701183265932,
1.01400283424707, -0.121566709733217, -0.439845391543516, -0.725102925247947,
-1.7880008004154, 1.17865894493779, 0.745656118602209, 1.5759409708024,
0.366432428454911, 0.811444932572915, -0.448401523869352, -0.377802388627989,
-1.24848926236775, -0.203878807908729, -0.524046365600212, 0.720442704935709,
-0.416965206775114, -0.794107733388832, 0.559346972036873, 0.988548598120505,
-0.431843838450286, -0.988035270649264, -1.43760759175738, -0.309413158055684,
0.553247986864645, -2.17817612199373, -0.510540086155411, 0.496317870117834,
0.752418286672552, -0.0697574532921359, 1.30120442710975, -1.47495257563357,
-1.43231852899041, 1.25726542272384, -0.200961959685597, -0.0644445741544419,
1.20021277176318, -0.310639799089594, -0.0221439535051792, -0.414324562625222,
0.694976960375327, 0.280283127606554, 2.15815281943354, -1.75321481403486,
0.897737259510946, 0.304479058606813, -0.492044793509638, -0.05957161014314,
-0.758548769095991, 0.299964680380577, -1.35719983507937, 2.20545832392165,
0.606776701838168, 1.21980664791837, 0.783914660365783, -0.202900326501162,
-0.641632929155897, -0.327931367863554, -1.58808743132016, -0.702630320963984,
-1.45534789200175, 0.74725887392231, 0.592858569982839, -0.0588362830939324,
0.521835254578634, 0.487701869977597, -2.11060543296052, -0.0938966250413083,
1.02249957186414, -0.646508270441105, 1.24618816878435, -0.146899668661134,
-2.08491922192662, 0.175650382005947, 0.242433678994671, -0.411917032666736,
0.0379054157197397, 0.327508308018907, -1.63054846337721, 0.522555605803037,
0.36698473170233, 0.305877614266204, 1.33678674322929, 0.996956461181733,
0.208640499987566, -0.186135355754609, 0.605402736209071, -0.411546721436854,
0.573680930399579, 0.325970292911929, -0.608088274396729, -0.0154648228956188,
1.6614188078984, 0.238376042560739, 0.18238261418763, 0.890912057190022,
1.27215413101281, -0.579847238231506, -0.646895436058973, 0.0653897598237177,
2.46140555130597, 2.19456305811986, 0.613158667679354, 0.720973472305504,
-1.49662890546257, 1.30506736085783, 0.433832773299359, -0.45549579159466,
-0.192559067012296, -0.115704180411784, 0.543224383196127, -0.272286066883107,
-0.466815975481469, -0.0390743672639525, -1.46888840820789, -0.245567786468027,
0.331327026047115, -0.0423795373273855, 1.93206731409037, -0.409575451355085,
0.140472134864502, 1.7889510822958, -0.0689094167241336, -0.662387216488948,
1.15688204527268, -0.384789902003028, 0.308594074194396, -1.35715963981791,
-1.12194254300464, 2.49589223921779, 0.995268243116563, -1.46999448894304,
0.123891486678308, 0.0215986736967035, -1.09994472330979, -2.21824614085414,
0.647487226512066, -0.599240986220535, -0.628125950488802, 0.518141475122216,
-1.61304154317683, 0.0290395293249301, -1.40594590818126, 0.330222204784007,
-1.00784730283074, 1.11767197048629, 0.0932274574924831, -0.846915669197343,
-1.09338108565759, -0.893874682216853, -0.324592528511734, -0.128791189735794,
1.68824261334484, -0.554931837106649, -0.946772587276144, -0.72952626814721,
1.09789835694781, 0.248498253409404, 0.253382151061149, 0.684343607475279,
0.911449935286189, 0.798059315298877, 0.0169192517329004, -0.380245470122351,
-1.07751456985645, 0.225606447782495, -1.07333335138213, 1.67511062385663,
-0.727849180310979, -1.12762859538912, -1.073931333547, 0.309218347393733,
0.818260006982825, -0.20779357308474, -0.271457968220754, 0.3158362504631,
1.55077366811375, 0.222257715266292, 0.468087960208067, -1.92370929925566,
-0.0106857783412884, 0.317791809400274, -1.30680490081665, -0.0579573933049149,
-0.190523622456505, 0.220557767351201, 0.319743725096346, -1.36275037077271,
1.06979569185302, -0.437743164834623, 0.673867929435652, -0.545473222990672,
-0.182545350555696, -0.332745783663259, 0.464397613737581, 1.2602659693115,
-0.567194658322296, -0.933520833664854, -0.837150856578938, 0.148395062822343,
-0.341568317632959, -1.22479943874475, -0.151220325038102, -1.05555200997692,
-0.662574292192472, -0.650450037712323, 0.0375228646129036, 0.509424306761759,
1.52771931407114, -0.902854159250837, -0.272553749260036, -0.56897431630424,
0.119012041952303, 1.80867352771687, -0.566530128640294, -0.0355404337146849,
-1.40008715801357, 2.37553873180492, -0.438916275579281, -1.60510419309308,
2.77153169221116, 0.365361161100145, -0.127133661677789, -0.448429562484924,
1.78640343432782, -0.405317183823632, -0.70901443237557, 0.292436906627042,
-0.113335658226883, -0.398366446890631, -1.30963239582541, 0.336827498929123,
-1.09455199510024, 0.0331073702484269, 0.607595895548431, -1.22834972545491,
-1.25860059162452, 1.04839193579646, 1.81268467710394, -0.639998862557104,
0.022362803545722, -0.823710672824564, 0.900707323784889, 1.05153600983003,
-0.770695483800181, 1.72098368660129, 0.0988776522091068, -0.32421637944945,
-0.37870524127858, 0.795163826045055, -0.372344253476872, -0.306670720592387,
2.14853544597822, 1.21456850334964, -0.653720177102471, 0.162730699281194,
-0.0673039461491809, -0.234469677660118, 0.220794467202133, 0.451710409941175,
0.656947797540372, 1.40591779646368, 0.11471739524628, -0.12507846348696,
-0.380212233881194, -0.261927707900654, 0.275082979330713, -1.11492496747697,
-1.39801241554971, -1.35681218436126, -0.0457252892086934, 0.71056440396461,
0.509149336756352, -1.31336376749304, -0.596723281236449, -0.22513260729992,
-0.431910525585576, -0.736876688291834, 0.590991329565174, 1.13987537759658,
1.55635251625464, 0.401017241615519, 0.0955239422767607, -0.169419318132375,
0.556498065096749, 0.0743171801242588, 0.973331128420279, 1.0185491289843,
-0.297389533269915, -0.546416814705799, 1.12412517995478, 0.732333267380745,
0.907923633722086, 0.0402063892904532, -0.684942615816965, -0.642997656124741,
0.543672959141733, -0.588443040654512, -0.375864717793694, -1.22750739625699,
0.438334834675777, 0.83466827411041, -0.69516676899471, 0.863628111382428,
-1.76072564715481, -1.26136666495593, 0.210922809402104, -0.85251829325213,
0.0744770186677665, 0.537647911826735, 0.325733435349171, 0.362339588440169,
0.00352192718568032, -1.14441041030976, 0.269100147024781, -2.84615384660908,
-0.786142410803261, -0.534336125298348, -1.07762103128173, -1.56130021143259,
-1.4423279104032, -0.625429705435562, 0.175427463642713, 0.118886567236641,
-0.832934590926834, -0.0490347463308987, -1.27778135043012, 1.15790804324163,
0.0388249013361517, -0.665812432499653, -0.486938703394989, 1.09329438256424,
0.651029882089407, -2.07829659077339, -1.25820029891095, 0.796179949211019,
-0.954210952303175, -0.17661729711448, 0.240683126782568, -1.89592972246115,
1.39830948701353, -0.139053495591307, -1.46943079227912, 1.53360840218871,
0.303059823246588, 1.65114443548784, -0.782421184073954, -0.463774338583296,
-0.325538226972568, -0.159043045231606, -2.01930261346575, 0.774763867468035,
-0.26477124472954, 0.84007470513326, -0.123922744874421, -1.22728804771316,
-0.528256128211439, -2.18124562477149, 0.434024629549972, 0.523007499617641,
-0.00200185540737284, -0.0766644215775852, 1.58495815473077,
0.739412837829272, -0.63014215511772, 1.52777898366391, 1.53696277940377,
-0.867062315501427, 0.724360084246336, 2.14833894014021, 0.571509700865585,
-0.287464366884935, 3.11340116031073, -0.598477198592943, 1.06600767203088,
0.194674064978832, -1.90697438605623, 1.20109149054375, -0.133092453150419,
-0.320652938284726, -1.68826897362486, -0.337770220880769, -0.982672703203861,
-0.690077796993475, 0.167166492630372, -1.23929973307563, 0.848002825963257,
0.238830156738308, -0.516317951931651, -1.05794127646356, -0.483670407896976,
-0.655443516959915, 0.820918632175258, 0.0475071682448853, -1.21317375909899,
1.27241183472832, -0.414926726595318, 2.39186331969734, 0.644892547151376,
1.11155301571601, 0.941781707718137, -0.805709880205148, 0.52991292950858,
0.0375250153492436, -0.11555367035333, -0.00365553825796048,
-1.524612852986, 0.510722527255616, -0.796202571715022, -0.42916731322902,
0.965690529674724, 0.839489497014653, -1.15665361968433, 1.05645216843561,
0.717354936505607, 0.360463421677622, 2.02833804132177, -1.31418361323894,
-0.678836391543647, -1.15361734386075, -0.0280290611592166, -1.01399064598528,
0.912622546450905, -0.393071566513399, 0.69531894664957, -0.337161745150562,
0.748010090250431, 1.14664997154514, 0.046078641516421, 0.0340395842441004,
1.07705950277614, 2.32442075295883, 0.558329750404181, 0.737188791787261,
1.0997452789801, -1.04966156832409, 1.44164539749811, 0.843589726654149,
-0.122362016237077, -2.40682939502512, 0.154173220554412, -1.99086344461029,
1.13163073636425, 1.10010055946346, -0.953370396006902, -0.287877185223855,
0.607339534779602, -0.40912175093054, 0.208750324077137, 1.84948927548512,
0.0775158648604682, 0.845678659206133, 0.968331562923949, 0.612239684927685,
2.12707689097891, -1.71552373737503, 1.70968180273096, 0.963143268023861,
-0.506323096870474), X4 = c(-1.93373820475994, 1.42534332406304,
0.0698345330215879, 1.30006737252469, 1.51848380934951, -1.07686681132851,
-0.741415139193133, 0.219466493362002, -1.76199396046982, -0.442836573771006,
0.803144268756538, -0.0439538524477205, 3.69133870180145, -0.612345347348936,
0.00155578453802317, -0.223828943717176, -0.765613028772885,
-2.44495237454009, 0.311861399233772, -1.19753833440183, 0.154555883126187,
0.22305486006036, -0.195194145861029, 0.211470448159026, -0.0344637972155281,
-0.291715315970595, -1.05784554573083, 0.54169294860592, -0.200881144070408,
-1.40698328374589, 0.0200911416892055, -0.241617199750421, 1.10577283582373,
-1.53114176997846, -0.112921945318097, 1.57900542979774, -1.61073827685733,
1.38622695849217, 0.142534017270623, -1.38488077321303, -0.230398423910874,
-0.161085464693391, 0.854516987974339, 0.584614850315245, -0.387606753441691,
-0.224917716192018, -0.552014949515743, -0.128906527863002, 0.618687388470151,
-0.160460277128529, -1.08058568413577, -0.926538119974329, 1.74798532746737,
-0.163582385797201, 0.922607909607977, 1.72594437943989, 0.830694038982759,
-0.0200147689903405, -0.305455955702348, -1.60354170442958, -0.0492012490658894,
-1.59796166105771, 0.714939463956834, 1.43525366260301, -0.0843911146583574,
-1.85970089323885, -0.750419770042645, -0.779073409324363, 1.65777421221142,
0.547315940024353, -0.439940866131849, 0.87183671400438, 0.294155152235811,
0.0846619655410354, -0.100059738995195, 0.369057614154733, -0.584629717233807,
1.20495456147727, -0.175761741541592, -0.408177561650767, -0.894393796659159,
0.856306864832175, 0.813816202520694, -0.850679232412305, -1.52793869958126,
1.07701738304142, 0.0875940822022084, -0.681440351406824, -0.848925233446121,
0.157027532424454, -0.715908901502509, -0.571222515667492, 0.300149327906353,
-0.818534641908237, -0.529197548096528, -2.49567672918817, 0.290746904913916,
-0.107450122334348, -0.869226234717169, -0.12758955905259, -1.87333842979063,
1.23851905122776, -0.0213077396175956, 1.41554825011772, 0.874567284633781,
0.306947507465402, -0.412214131679612, 1.24856966395887, 0.307373414922483,
-0.88542703496878, -0.160873929196394, 0.801451346067781, 0.200607815679391,
2.20042294413192, -0.929287672549518, 1.76392269864676, -1.71147131990478,
-1.29932643870181, -0.132256475747791, 0.836009720111657, 1.68639733568366,
-0.573443848347604, 0.0134817164982857, 0.821494164933078, 1.24814183458849,
-1.56764581966459, 1.11747233614116, -0.612254293758034, 1.09446949186951,
-1.05935916484116, 0.665625573596694, -0.540975793681556, 0.190899712236875,
1.38340797082366, -0.278364611946494, 0.697924565829638, -0.187085371852494,
0.874473773398461, 0.182048509770598, 1.40760452306889, -1.99229226437618,
2.71149458094107, 1.17635018182277, 0.954965241868484, 0.419582938351611,
1.05241564501942, -0.963919289324739, 0.0602472667765565, -0.296455983699367,
-0.321838401731252, 1.07525246972969, 0.239982990398019, 0.428425308006211,
-0.0572768027908566, 0.415300959685997, -1.20115301549563, -1.61144330578976,
-0.322524019300558, 1.12508174158601, 0.743503576679049, -0.0704454735471252,
-0.580736226383553, -0.887177386272562, 1.29031938502951, -0.048949272986884,
0.702986866042291, -1.33748126262843, -0.831887255117678, 0.00740826004129209,
0.153308688685202, 0.902296572150684, -0.0110226272754086, 0.113048681369327,
0.883488526700137, -0.621892608977765, 2.11133383699257, -0.321827002378345,
-0.778807823778341, -0.559286794185869, 0.698880980754243, 0.558828032681742,
0.216295257611489, -1.24815711945467, 0.354064794724059, 0.72177413018705,
1.55578343987703, 1.11217078686112, -0.46193988013905, 0.38669938593638,
-0.393749564847109, 0.775982099546895, -1.51633652859745, -2.70824738901721,
-0.484289581823892, 0.277600597288583, 0.379529360251971, 0.722564599397581,
0.107485452252441, 0.3631118121705, -1.56621538716574, 1.29915795003875,
0.958231776018024, -0.803728983292858, 0.424369892241479, 0.284552764640204,
0.957574994863857, 0.163919802179141, 1.39922102261193, 0.702879269220266,
0.313267556978943, -0.220372429924027, -0.453002624832267, -0.226888348360665,
0.314521857002964, 0.855133231659681, -1.05449934679903, 1.75374639514308,
-0.379286533532161, -1.50816427313396, 0.416719108842921, -1.07997563924896,
-2.88423766313635, -0.41115726250466, 0.505765308441432, -0.974023857403005,
0.793861178507188, 0.525962229865315, 0.230105896859784, -0.402946878760926,
-0.655495436971157, 0.378518497502879, 2.21607351339682, 0.583571199908405,
-1.37444088373552, -0.490393498326855, 1.98549749193371, -0.665669238391869,
0.973234563811314, 1.3660744617637, 0.0675371227793907, -0.240214990921108,
-0.739287797291935, -0.537413691957833, -1.57715535833546, 1.67339988294562,
-2.33248022107018, 0.0163242670551085, 0.948653790669082, -0.65245376458621,
0.609739902569668, 0.56170354383912, -0.57531643030685, -0.869254335503249,
-0.816293203505476, 1.04278892599062, -1.26233986822578, -2.63409108655131,
0.380405803150485, 0.108057909956152, -0.725480698950786, 1.00916509028261,
2.25042507124525, -0.28497134896032, -1.10863094031242, -0.452112524718297,
-0.86262256113226, -0.163154535790723, -1.11509129369427, -0.125966100364302,
-0.166281563879874, 1.42647090849066, -0.0625943516071165, -0.768026389113677,
0.330932173888028, 1.42414339866998, 0.513642389246681, -1.18108712474838,
0.328008388184954, 1.3710638470995, 1.78689569970286, 0.188595488375034,
-1.17926245393018, -0.441684181905491, -1.13408123651059, -1.22949479896894,
1.64632945266332, -0.799171906284876, -1.50666894161693, 3.34994038063971,
-0.0364682247607278, 2.6489408180703, 0.0975763414127397, -0.657205096067168,
-0.10396968699584, -0.251859823341566, -1.9238724453204, -0.284979252192834,
-0.406415532636072, -0.507736172842549, 0.364113832810168, 0.0620503967556103,
1.677367356788, -1.27085163911494, 0.615036405431494, -0.0128434729645032,
1.44018225223175, 1.4823830050096, -0.375723556553319, 1.09401371183392,
0.868488797890524, 0.0519146376738393, 0.295915239952977, -0.245470405708542,
-2.53500877879813, -0.57328053578306, 1.05035286965634, 0.72243383392114,
-0.404264694899526, -0.304600456095639, -0.502694370032312, 0.144340259672691,
-0.124139603461826, -0.374301345392179, 0.409903955709356, -0.00337570420934983,
-1.77341345306538, 1.67317513451341, -1.28072949311522, 0.0542351638175736,
1.11815009394258, -1.53752977948163, -0.86533191923026, 0.104871777764354,
0.0422496735576814, -1.26158530770624, -1.44936214935747, 1.00606276532656,
0.460157636209464, 0.401560989079487, 1.17495388419007, -0.153055011660774,
0.0603165679172705, -0.48647118798991, 1.12721843959926, -0.682800306420565,
0.0694205558048378, 0.529056980949444, -1.10661809495499, 0.659587994480231,
0.0953406718971067, 1.60759156357154, -0.530573539369522, -0.736814005569338,
0.0628776809363418, -1.1892312174579, -2.26622455987308, -0.331769501417906,
0.0983668116596209, -1.70940991822734, 2.0828230822781, 0.510044703825256,
-0.20267187401259, -1.15858413707042, -0.0921661054076804, 0.804905661528243,
-0.288028082592179, -1.94899174799701, -1.1772938075985, 0.241099779090583,
0.595640776580182, -0.331971177332959, -0.421658702010965, 1.09771664921249,
-0.537665815840612, 1.03350056967964, -0.694011246436367, -0.340806141382472,
0.558484643352542, -0.418378027054596, -1.28450845549526, -0.289111832938375,
-0.792838133116995, -1.64310762576852, 0.256882206973482, -0.618345258342541,
-0.201886061364656, 0.343117552261975, -0.595319485437939, 0.409715146277341,
0.0785003653251272, 0.83692074604851, -0.0287569192747217, -1.3977631147255,
-0.275896445637332, -1.61527039808147, -1.52893849850957, -0.252609633454058,
0.842343106173466, 1.49887610289998, 0.492355997600886, 0.161737674075034,
-1.69124145042445, -1.01233405519038, -1.24416356777573, 0.644865956181452,
-1.58149851049735, -0.694199441479887, -1.7625909754181, 1.16981476329603,
0.149452668816451, -0.308754490585808, 1.09435540024503, -1.73574520874373,
-0.468298264396807, -1.86120337699749, 0.772227709489568, -0.318831125628998,
0.999438574254534, -0.960456681613856, 1.27691613538169, 0.875641112446332,
-0.236222363201191, -1.75172793278007, 1.26573271295195, -0.888876536082824,
1.71570925133548, -1.18291142315041, -0.5819149692067, -1.35780394299019,
-1.03460716548937, 1.94694449182329, -1.17200236287912, -0.300768376364166,
0.425112088509945, -1.34982796290147, 0.120450262807678, -1.03514902848294,
0.829169627653942, -0.350102735409801, 0.59234285457042, 0.0815511170409256,
0.98192853953402, 0.161229249079206, -0.93270978813491, -0.549994043365871,
1.12338243269356, 0.0883819847419598, -1.0389282679338, -0.773785663794087,
-0.0026786089134708, 0.867264665109035, -0.577914414822152, -1.23174287236073,
-0.847853791582689, 0.451715675076358, 0.233664757005596, -0.583119662338004,
-0.577819070681106, -0.539194224087567, 0.0250231785519975, -0.232197126477915,
-1.1886938821869, -0.146287180285922, -0.579582782516535, 0.0706061909332881,
-0.316267878766609, -0.0562776721309076, 0.860446251838862, 0.465656859472603,
0.847241700991263, -0.946920829708357, 0.131347757663749, 0.28967708469916,
-0.0879552875308595, 0.793683497092582, 0.415322083742467, -0.811513694265664,
0.539062163188976, -0.383849966191781, 0.453981973213827, 0.354384496527218,
1.00633320046244, 0.79187082250801, 2.24157130864002, 0.95756296257929,
-1.28683388420937, -0.250358994760245, 1.92138740890005, -1.13976275331181,
-1.06569724352772, -0.106174775099021, -1.48577071715162, -0.141468648538085,
-2.67786365668605, -0.1493831036927, 0.873017566639971, -1.31841296245815,
-0.587228389406438, 0.41897602690193, -0.333311104488673), X5 = c(1.7119736860143,
1.07131727662482, 0.304966696816206, -1.20195548677772, 0.0290218094447572,
0.681409129555558, 0.207035629602609, 0.139822660424912, 1.18311125193949,
-1.34370370848207, -0.683342607720843, -1.22546855751063, -0.441378888960822,
1.03170815510327, -0.510932849707103, 1.20199514544361, 0.156931889030698,
0.77292509900518, -0.201975061629709, 0.249502439913251, -0.720841426197317,
-0.306549227798257, -0.695428974308979, -0.124114692151369, -0.27784514285544,
-0.68388165140592, -0.787587791691493, 0.33590339342152, 2.60155111045584,
-0.497318041061581, 0.576391119857116, -0.115120311638748, -0.105580773780811,
-0.301119555603458, 0.684827371297113, 0.265388517159962, -1.43126075528987,
-0.303447018147865, 1.93068140034186, 0.882563711096575, 1.4355414643284,
-0.843153117669303, -0.447139401311261, 0.960732987844077, -0.866129495899107,
0.0203879885565135, -0.204167609449852, 1.02685669980365, 1.42127838997975,
-0.629338801515118, 0.177038410612706, 0.953067991498408, 0.753446626863429,
-0.824724825613053, 0.25261454296489, 0.311463999158863, 0.622797569833688,
-0.25610667145926, 1.76732032043339, -1.14345274602613, 0.19861758814269,
-1.37773009632008, -1.88483193170097, -1.33157260665023, 0.748863030207251,
-0.000183447169385317, -0.217339805156958, 0.928620743857161,
-0.997381596522006, 0.373320481690449, -1.25429281320507, -1.25933178643918,
1.26518396887985, 0.0992801557308094, 2.30395607265812, -0.69296969658658,
-0.908250420674153, -0.591573418096578, 0.321211679350571, -0.340582852505919,
0.772611230560479, 0.874729267354056, 0.359139344411633, 1.67455111000427,
0.0773920848600656, 0.512473077502008, -1.60354485020044, 0.662469116023851,
0.92702514726264, 1.8166007832544, 0.332040172366975, -1.58907516214294,
0.228677636822866, 1.21843912276259, 0.349660088883085, -0.478356035486079,
-0.108542860046205, 0.627731522444558, 0.923060179120096, -0.38469234798417,
-0.720728508655397, 0.706238362820061, -0.403185722840784, 1.39623602710791,
0.666050758712042, 0.894689389387489, -0.531770614856626, -2.29965090539963,
-2.01065842971156, 0.0447116590423497, -0.301356937571554, -1.79270963662668,
1.34933901776011, 2.11465937824409, 0.895395025582203, 0.863741626294967,
0.700114397642597, 1.92819276145307, 1.29657220968455, 0.459163027831752,
-0.655613261668423, -1.66376715437659, -0.66825708011841, 0.431711102412258,
0.556926748872157, -1.28920671210892, -0.0851068127790606, -0.582907113029252,
-0.488463072258039, -0.668115881759509, -0.247156382267082, -0.768208611877326,
-0.971712531075206, -1.01433852221385, -0.306641562856698, -2.01993106487439,
-0.0460803330185501, -0.697653115250371, -1.62348564622892, -0.387666414879206,
-0.338969952375951, 1.0418684156387, -1.80268558540155, 0.8367039738038,
0.880075670690269, -1.20823768431605, 0.462282442670263, -0.260784234151834,
-0.496195526667276, 1.64122203809637, -0.537308776251702, 0.646537110811688,
0.868075203229132, -1.04391659012808, -0.769514786270181, -0.654149273814973,
-1.519770790253, -0.528069237947325, 0.245208793331674, -1.16633036059622,
-0.892663868219012, 0.377708054867148, -1.43116400106026, 0.654034323864324,
-0.612521796776105, 0.589405617596822, -0.546491810684595, 0.147329858149036,
-0.835777875001805, 0.0552023394262769, 0.823821531345144, -0.654819952910797,
-0.394019535036031, 1.99442654328203, -0.717720465510299, 0.418557716342034,
0.369850101202497, 0.287929347300282, -0.891347549581892, 0.42155925554533,
0.271582788575926, 1.26370920904887, 0.118066563571555, -0.199412386991719,
-0.818431308868623, -1.63651304284191, -1.0685968981378, -0.952996227090951,
0.687645234336731, -0.815061940085057, 0.603694628244014, 0.412147909580035,
-0.206804083147018, 0.0414595151525871, 1.42101407001068, -0.772333168517605,
-0.36715528182275, -0.645769748466085, -0.797500015908976, -1.47053452900125,
-2.45013054731, 0.965384228952807, 0.371294415647258, -0.708012432799977,
-0.643017460281517, -1.61476196766501, -1.74984352531976, 1.07876117540568,
0.0631276519052421, -0.420202725063968, -0.645555145072444, -0.907503851021506,
0.0660821470069631, -0.731369201998508, 1.19420451305215, -0.520924802443087,
-1.14091468622061, 0.22129381838838, -0.511320273400606, 1.3316784927569,
1.22763824663593, -1.58038523513465, -0.249755935799222, -0.979265720222157,
1.31947978415664, -1.77485079638638, -0.272286038124023, 0.306559585146208,
-1.47347729041626, -1.41825070055156, -0.136888650224625, -0.353088923983719,
-0.471759763516742, 0.488709208300078, 0.56759195344071, 1.71360371255022,
0.792729071809627, 0.192999416257585, -0.370446440077093, -0.191266300410183,
0.570658202540687, -0.393964789606773, -0.0170887048137151, -0.130687344777394,
0.620346502819779, -0.282076241986632, 1.43816361902378, -0.893070838383901,
0.887623736566643, 0.887152812213269, -0.123133883666266, -0.58072699153542,
0.28740191892104, -1.44888678927464, 0.4914498990264, -0.364672108631446,
0.00173792386284865, -0.463984971756781, -0.356197535146811,
0.349145048183719, 1.40497830235271, 0.687460063553204, -0.746660869350125,
-0.532705893049589, -0.816091562625296, -1.02118096283383, -0.554574475241282,
0.00548188499081486, 0.399237144448995, 0.482847127231115, -1.2464440633789,
0.430681156452465, -1.01592906000006, 0.428275821383661, 2.56135037706846,
1.50510533746908, -0.346142949144243, -0.230413091431846, -0.699594925114113,
0.800530817332395, 0.77880877222621, 1.26915054504727, -1.2673054875848,
0.0544339704344847, -0.365246985829283, 2.24323273888306, -0.0580071742060647,
1.01530623640886, 0.88596117034378, 0.0736274147221825, -1.2060636684866,
-1.61379185475049, -1.83284032472748, -2.07779433805224, -1.29143997067767,
-0.0777092263177311, 1.22078720128511, 0.633872482491824, -0.675806899450196,
1.04916310985949, 0.680322681190561, 1.97446418142024, -2.20614166480175,
-1.18172708441512, 0.233645062013171, -0.95627252053883, 0.526882537743591,
-1.34517559036723, 0.330709338895602, 0.0812657359566235, -0.594051241524249,
0.805699799986343, -1.52772312267977, 1.30127111910854, -0.844481544568762,
-0.505164431157234, -1.05379615394756, 0.816939399139188, 0.930246589189672,
2.34018387746246, -0.420073234911996, -0.993356266949382, 0.0273393651165991,
-0.742170036958038, -0.272163797152066, 0.252163310673595, -0.131972648760799,
1.02406074275985, 0.0471930957349488, 0.775845101718488, 0.0598735336783787,
0.241288343964859, -0.787630040129999, 0.0610221309810195, -2.14551326485333,
-0.75609724382956, 0.299672758048853, -0.374837857572659, -1.91934348093209,
0.0391806517081521, 0.0306457560211935, 0.574976541415005, -0.663320639402181,
1.30514496851284, 0.598345782549676, 2.01745424825608, -0.496131872220772,
0.621700586146571, -0.512305998354651, -0.235909924152165, 1.64150460414683,
0.503852952980914, 0.0972701491544967, -0.617294717154215, -1.02090392341229,
-0.998685540417468, 0.79418547232047, 0.631539950343523, -0.144796632328337,
1.13640885224859, -0.0371037018544592, 0.212002459091031, -0.919669702133306,
-1.47277610390861, 0.154900692923054, -1.45141318741383, 0.0935357724447942,
2.65759563752817, 1.23136872006544, -0.451332673607717, -0.880426999484647,
0.470698147374306, 0.802155658471192, 0.85564379962559, 0.829965439998099,
-0.610050990880054, -1.64058527587318, -0.128909603943353, -0.682355542753813,
-0.0599416007557871, 0.125770293764691, 0.278159063242917, -0.52713147259988,
0.162800221045392, 0.497933496469573, -0.708556888862464, -1.16540755100887,
1.10630462447019, -1.7481270746969, -1.88201721907901, -0.868271710198514,
0.89160543380629, 0.634538056467215, 0.105095093490444, 0.321818814579756,
3.11669777387118, 1.68148983236011, -1.94753019485617, -0.400983132980736,
0.183057538799734, 2.40396395213764, 0.166787974412314, 1.33070577305105,
0.450978272804477, -0.242087804543819, -0.44868065819495, 0.282070140693296,
-1.2421439469027, 0.521304220995309, 1.0276007582888, -0.106954030613369,
-1.29492082310527, -2.2579330906076, -0.0665616557109968, 1.31212028207152,
0.977842460529606, -1.01171742784296, -0.457157196487696, -0.859177619903031,
0.855863721825133, 0.357079074662266, -0.706413817339544, -0.106401511100596,
1.79307423363504, -1.3091401182149, -0.203313973122911, -0.561824753645833,
1.5027110728869, 1.49213579280515, 1.27589442569299, -0.122857083166744,
0.306751679343614, -0.29885552415157, 1.60562317116063, -0.725296388307122,
-0.51769995717658, -0.0907278296198716, 1.49056398992021, -0.734257736601658,
1.33636884521368, 0.508737456006756, -0.757587889702504, 0.114469918717578,
1.40519175859396, 1.25060870224619, 0.087731540830819, 2.82371742484401,
-0.0524854934361179, 0.5544704822039, 0.331654721048409, 1.06676862944924,
-3.28135403491948, -0.265047396327579, 0.024305092022956, 0.119862870287071,
-0.222202769398633, 1.01962304868841, 1.61291825548754, 0.278026493303321,
0.857118169755971, -0.113857945798874, -0.938022511490772, -0.207084153675403,
1.91888366936888, -0.610046664536509, 0.316397462159397, -0.338792869805022,
0.291192538121514, 0.874677923437032, -0.863968526215652, 0.933549540700206,
1.36790284508529, 1.05776235404576, -1.5776883191251, 1.27351965210124,
0.254708420444487, 0.209291880373081, -0.0431023885646256, -1.12809924557251,
-0.0817436247384996, -1.54967224995437, -0.173398099521145, 0.775345791588293,
-1.02712943418319, 1.01357151487741, -0.227681248759765, 0.136339954872168,
-0.0378451497918923, 0.237411917966556, -0.7312465892866, 1.05016969136118,
0.261501409551261, 1.59167923896068, -0.922985461612463, -0.0212390350901611,
1.63683172873316, 0.273935415834194, 0.378756022172379, -1.42647398290912,
0.509174141698259)), row.names = c(NA, 500L), class = "data.frame")
'))
fit <- suppressWarnings(brma(yi~., data = df, iter = 50, seed = 30))

CI95 <- summary(fit$fit)$summary
CI95 <- CI95[paste0("betas[", 1:(ncol(fit$X)-1), "]"), c("2.5%", "97.5%")]
selected <- apply(CI95, 1, function(x){ !(sum(sign(x)) == 0)})

test_that("ci selects relevant vars", {
  expect_true(selected[1])
  expect_true(all(!selected[-1]))
})
#hpdi <- bayestestR::hdi(fit$fit, parameters = "betas")
#hpdi <- cbind(hpdi$CI_low, hpdi$CI_high)
#selected <- apply(CI95, 1, function(x){ !(sum(sign(x)) == 0)})
# fitrma <- rma(df$yi, df$vi)
# res <- rma(object$Y, object$vi, mods = object$X[, -1])