tests/testthat/helper-P_alt_ref.R

In CFWP/rags2ridges: Ridge Estimation of Precision Matrices from High-Dimensional Data

P_alt_ref <-
  structure(c(0.758600561072105, -0.00338810609418109, -0.0623066279976906,
-0.00260035110755526, 0.0178293946196486, 0.000822489551531889,
0.0239384852551682, -0.0184532318511254, -0.0470808852814545,
0.0104108210270205, -0.0131022275926124, 0.0277590913746056,
-0.0020174916271718, -0.00508998519037171, -0.0298904141910938,
-0.013527762208041, 0.0551271528473371, -0.0409270256989276,
0.0187078578382886, -0.0037077888981888, -0.0198084868315493,
-0.0335506700598574, 0.0157456814726741, 0.0292757598746973,
0.0070194748199832, -0.00338810609418109, 0.824243512019962,
-0.020123673354599, -0.00864722011629189, -0.0310212956718874,
0.00703626593517872, 0.0298748647825641, -0.0201608755313694,
-0.00132053571962083, 0.0127310719731462, 0.0255789789155052,
-0.00206825074333836, 0.0027161744187932, -0.0342188270218914,
-0.00173730177825528, 0.0113814004330804, 0.0263055225233794,
0.0107451693049185, 9.04934447234652e-05, -0.0169032091404673,
-0.000866878558117635, -0.025686112982925, 0.0229810410879122,
0.00464901439253241, 0.00114807932656811, -0.0623066279976906,
-0.020123673354599, 0.764718836906693, -0.0387376011447737, 0.0260853909560819,
0.0161283800561263, -0.0126229658293518, -0.0178116583994944,
-0.0504291179458689, 0.0410111881802256, 0.0206386236762735,
0.00643291818428587, -0.0193861661006143, 0.0282031435170908,
-0.0339935742267411, 0.0121921153094193, 0.0472344210542267,
-0.0371031906198694, -0.0205405664312319, -0.0142311345595523,
-0.0348359520851541, -0.0670830767035716, 0.0103389296326936,
0.00633182170581777, 0.00955611800932911, -0.00260035110755526,
-0.00864722011629189, -0.0387376011447737, 0.817518071631295,
0.0251327895640087, 0.00221157949345998, -0.0372816974762916,
0.0111872795468449, -0.0102469052147224, 0.000460885656114321,
0.0126209007612666, 0.0140749509450876, 0.0215940084841907, 0.0374757352112963,
-0.00678550459343584, -0.00416395523778559, 0.00413469602420109,
-0.00671770225076804, -0.0284800378486691, -0.00245239559762217,
-0.0118549708621031, -0.0323202749342912, 0.00387512291662165,
0.0273137627469334, 0.0140203937276171, 0.0178293946196486, -0.0310212956718874,
0.0260853909560819, 0.0251327895640087, 0.774812407268239, -0.00771619358588277,
0.0622737544850774, -0.00598320239177839, -0.00501608513352127,
0.0127228114788402, 0.0508161286433173, -0.0151120086232483,
-0.0282098101036915, -0.0583074970645977, 0.0235773205180534,
0.0360939053966803, 0.0336406101855991, 0.0339468316827992, 0.0222918528282783,
-0.0181630567086739, 0.0271915077035819, 0.0354872112069761,
0.0125139342448151, -0.014949799485051, -0.0120916851029499,
0.000822489551531889, 0.00703626593517872, 0.0161283800561263,
0.00221157949345998, -0.00771619358588277, 0.830340686247631,
-0.0279487542613176, -0.00169405995472572, -0.00084019720274789,
-0.00422588289912311, -0.018572840063632, 0.0023936548060057,
-0.00187373213919661, 0.0168437454580421, 0.0147906191609424,
0.00086428909031354, -0.0185548657357496, -0.00524812891093217,
-0.000454172981537416, -0.0105699847588093, 0.0183676160515079,
0.0397788161926457, -0.0368897092471009, -0.00145627878699195,
-0.0100608023935621, 0.0239384852551682, 0.0298748647825641,
-0.0126229658293518, -0.0372816974762916, 0.0622737544850774,
-0.0279487542613176, 0.730220491320939, -0.00777814551127696,
0.00465531585503553, 0.0229314532477848, -0.0356778466944321,
0.00230444642532654, 0.00986484559306426, 0.068879429561491,
0.0161798347269037, -0.0341333098885124, -0.0320542571634737,
-0.00260724636264029, -0.0607228637614893, -0.00919777846412325,
0.0132388836917436, 0.0160051421326064, -0.0354770804889038,
0.0102771226197775, 0.00942645597283885, -0.0184532318511254,
-0.0201608755313694, -0.0178116583994944, 0.0111872795468449,
-0.00598320239177839, -0.00169405995472572, -0.00777814551127696,
0.811790777181458, -0.00161881747397968, 0.0334725836834229,
-0.012348125012886, 0.00121086594646141, -0.00475618728322902,
-0.0479384267178884, 0.00467039337611826, -0.0177158353336795,
0.0226730295261033, 0.0121930022821526, -0.00440211638323524,
-0.0263081971810387, 0.0104355892666679, -0.0098254125648275,
0.0145577460964728, 0.00740365668414964, 0.0174421783300645,
-0.0470808852814545, -0.00132053571962083, -0.0504291179458689,
-0.0102469052147224, -0.00501608513352127, -0.00084019720274789,
0.00465531585503553, -0.00161881747397968, 0.811236128250273,
0.0281494770785046, 0.0253943227332372, 0.000894942431281707,
-0.031356849674288, 0.0277609347730861, -0.00589317147504174,
0.0070383765447762, 0.0251858785116766, -0.0236799071363608,
-0.00281125024372098, 0.00116675149486246, 0.0016139403528044,
-0.0095763668154801, -0.00562326668818852, -0.00128754004490594,
0.000710426073496843, 0.0104108210270205, 0.0127310719731462,
0.0410111881802256, 0.000460885656114321, 0.0127228114788402,
-0.00422588289912311, 0.0229314532477848, 0.0334725836834229,
0.0281494770785046, 0.803040160159218, -0.0251907951735298, 0.0220445024070067,
0.0448545753810155, 0.00435226961876894, -0.00378500777856161,
-0.0058047255272756, -0.0368767433961413, -0.00327475803040139,
0.0260398597822189, 0.0179069906771476, -0.00788950592756505,
0.00907200480985894, -0.00923746854893787, 0.0246045874284944,
0.00525190626839316, -0.0131022275926124, 0.0255789789155052,
0.0206386236762735, 0.0126209007612666, 0.0508161286433173, -0.018572840063632,
-0.0356778466944321, -0.012348125012886, 0.0253943227332372,
-0.0251907951735298, 0.791984096766798, 0.0145247777224261, 0.0267107839510327,
0.00968026781482444, -0.00795998673270217, -0.0289796530256464,
-0.0403380770799726, -0.0206727116555445, 0.00806201858316909,
0.00064618929611705, -0.00715451615634698, 0.011443046717336,
-0.0301450863313937, 0.0075322244729094, 0.0028295809361802,
0.0277590913746056, -0.00206825074333836, 0.00643291818428587,
0.0140749509450876, -0.0151120086232483, 0.0023936548060057,
0.00230444642532654, 0.00121086594646141, 0.000894942431281707,
0.0220445024070067, 0.0145247777224261, 0.828124273986132, -0.0393495307778205,
0.0178370735492578, 0.00171731695912306, 0.0232900959023066,
-0.0115900459278005, -0.0054939352931823, -0.00858366213693819,
0.00497462593747903, 0.00186658819009463, 0.0096174706044638,
-0.0143661300928685, -0.0558881608174201, -0.0369055638459932,
-0.0020174916271718, 0.0027161744187932, -0.0193861661006143,
0.0215940084841907, -0.0282098101036915, -0.00187373213919661,
0.00986484559306426, -0.00475618728322902, -0.031356849674288,
0.0448545753810155, 0.0267107839510327, -0.0393495307778205,
0.792186925280109, 0.0197055843831158, -0.00326764452630204,
0.0417812937208945, 0.0127985120047226, -0.0181878880915271,
-0.00112169863645392, -0.00458112571188361, -0.000930292790156896,
0.016893000489517, -0.025345356991157, -0.0663671412119859, -0.0367185905289149,
-0.00508998519037171, -0.0342188270218914, 0.0282031435170908,
0.0374757352112963, -0.0583074970645977, 0.0168437454580421,
0.068879429561491, -0.0479384267178884, 0.0277609347730861, 0.00435226961876894,
0.00968026781482444, 0.0178370735492578, 0.0197055843831158,
0.722693528445077, 0.0115663222306361, -0.00822686765022426,
0.0619991233243263, 0.0594074079470342, 0.0344334134161658, -0.0328519922273378,
0.0121719092423157, -0.00136230909275438, 0.0656398582918311,
0.0387998319052686, 0.0408166311356406, -0.0298904141910938,
-0.00173730177825528, -0.0339935742267411, -0.00678550459343584,
0.0235773205180534, 0.0147906191609424, 0.0161798347269037, 0.00467039337611826,
-0.00589317147504174, -0.00378500777856161, -0.00795998673270217,
0.00171731695912306, -0.00326764452630204, 0.0115663222306361,
0.831133081799636, 0.0175783825185603, 0.0136635392579702, -0.0310048712599734,
0.00789732874060054, 0.0013102395863143, -0.0394764834709119,
-0.0385068384399685, 0.00129791091004903, -0.00992182577030925,
-0.00892283839200172, -0.013527762208041, 0.0113814004330804,
0.0121921153094193, -0.00416395523778559, 0.0360939053966803,
0.00086428909031354, -0.0341333098885124, -0.0177158353336795,
0.0070383765447762, -0.0058047255272756, -0.0289796530256464,
0.0232900959023066, 0.0417812937208945, -0.00822686765022426,
0.0175783825185603, 0.793711232700342, -0.0105018670842856, 0.0163663948213657,
-0.0145393445949808, 0.0147201267208539, 0.0281843152773664,
-0.00248035223347269, 0.027566446389641, 0.0487962437910841,
0.0303086817466001, 0.0551271528473371, 0.0263055225233794, 0.0472344210542267,
0.00413469602420109, 0.0336406101855991, -0.0185548657357496,
-0.0320542571634737, 0.0226730295261033, 0.0251858785116766,
-0.0368767433961413, -0.0403380770799726, -0.0115900459278005,
0.0127985120047226, 0.0619991233243263, 0.0136635392579702, -0.0105018670842856,
0.75736487224833, -0.0151030874104978, -0.00110829598219355,
0.0247241993426164, 0.0136283336041015, 0.0316888661580609, -0.0630359426295792,
-0.0258561943335216, -0.0108541671274037, -0.0409270256989276,
0.0107451693049185, -0.0371031906198694, -0.00671770225076804,
0.0339468316827992, -0.00524812891093217, -0.00260724636264029,
0.0121930022821526, -0.0236799071363608, -0.00327475803040139,
-0.0206727116555445, -0.0054939352931823, -0.0181878880915271,
0.0594074079470342, -0.0310048712599734, 0.0163663948213657,
-0.0151030874104978, 0.807436923856226, 0.00514335323431027,
0.011040917578049, -0.0299530088049486, -0.0190895494626625,
-0.0360209710818492, -0.0284780774109566, -0.029443190735552,
0.0187078578382886, 9.04934447234652e-05, -0.0205405664312319,
-0.0284800378486691, 0.0222918528282783, -0.000454172981537416,
-0.0607228637614893, -0.00440211638323524, -0.00281125024372098,
0.0260398597822189, 0.00806201858316909, -0.00858366213693819,
-0.00112169863645392, 0.0344334134161658, 0.00789732874060054,
-0.0145393445949808, -0.00110829598219355, 0.00514335323431027,
0.822099185084688, -0.00147868382783753, 0.00667869514972723,
-0.0109601019481038, 0.00273315047367748, -0.000579801374667589,
-0.000703876922132167, -0.0037077888981888, -0.0169032091404673,
-0.0142311345595523, -0.00245239559762217, -0.0181630567086739,
-0.0105699847588093, -0.00919777846412325, -0.0263081971810387,
0.00116675149486246, 0.0179069906771476, 0.00064618929611705,
0.00497462593747903, -0.00458112571188361, -0.0328519922273378,
0.0013102395863143, 0.0147201267208539, 0.0247241993426164, 0.011040917578049,
-0.00147868382783753, 0.831548893282178, -0.00232846644950124,
0.00130642436675289, -0.00232370065282019, 0.00752671365719037,
0.0131367454512168, -0.0198084868315493, -0.000866878558117635,
-0.0348359520851541, -0.0118549708621031, 0.0271915077035819,
0.0183676160515079, 0.0132388836917436, 0.0104355892666679, 0.0016139403528044,
-0.00788950592756505, -0.00715451615634698, 0.00186658819009463,
-0.000930292790156896, 0.0121719092423157, -0.0394764834709119,
0.0281843152773664, 0.0136283336041015, -0.0299530088049486,
0.00667869514972723, -0.00232846644950124, 0.814424903194164,
-0.0440213967258272, -0.000147457217076317, -0.0114020195916847,
-0.00684194842017591, -0.0335506700598574, -0.025686112982925,
-0.0670830767035716, -0.0323202749342912, 0.0354872112069761,
0.0397788161926457, 0.0160051421326064, -0.0098254125648275,
-0.0095763668154801, 0.00907200480985894, 0.011443046717336,
0.0096174706044638, 0.016893000489517, -0.00136230909275438,
-0.0385068384399685, -0.00248035223347269, 0.0316888661580609,
-0.0190895494626625, -0.0109601019481038, 0.00130642436675289,
-0.0440213967258272, 0.777513999673338, 0.0413707831131927, 0.0163870077491636,
0.0151914605021154, 0.0157456814726741, 0.0229810410879122, 0.0103389296326936,
0.00387512291662165, 0.0125139342448151, -0.0368897092471009,
-0.0354770804889038, 0.0145577460964728, -0.00562326668818852,
-0.00923746854893787, -0.0301450863313937, -0.0143661300928685,
-0.025345356991157, 0.0656398582918311, 0.00129791091004903,
0.027566446389641, -0.0630359426295792, -0.0360209710818492,
0.00273315047367748, -0.00232370065282019, -0.000147457217076317,
0.0413707831131927, 0.781806841833501, -0.0417448243061757, -0.0263768835344989,
0.0292757598746973, 0.00464901439253241, 0.00633182170581777,
0.0273137627469334, -0.014949799485051, -0.00145627878699195,
0.0102771226197775, 0.00740365668414964, -0.00128754004490594,
0.0246045874284944, 0.0075322244729094, -0.0558881608174201,
-0.0663671412119859, 0.0387998319052686, -0.00992182577030925,
0.0487962437910841, -0.0258561943335216, -0.0284780774109566,
-0.000579801374667589, 0.00752671365719037, -0.0114020195916847,
0.0163870077491636, -0.0417448243061757, 0.768658496444235, -0.0648558658628665,
0.0070194748199832, 0.00114807932656811, 0.00955611800932911,
0.0140203937276171, -0.0120916851029499, -0.0100608023935621,
0.00942645597283885, 0.0174421783300645, 0.000710426073496843,
0.00525190626839316, 0.0028295809361802, -0.0369055638459932,
-0.0367185905289149, 0.0408166311356406, -0.00892283839200172,
0.0303086817466001, -0.0108541671274037, -0.029443190735552,
-0.000703876922132167, 0.0131367454512168, -0.00684194842017591,
0.0151914605021154, -0.0263768835344989, -0.0648558658628665,
0.797590609089375), .Dim = c(25L, 25L), .Dimnames = list(c("a",
"b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n",
"o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y"), c("a",
"b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n",
"o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y")))