tests/testthat/helper-df.R

In USCbiostats/partition: Agglomerative Partitioning Framework for Dimension Reduction

#  Data frames for testing. Produced on macOS by:
#  set.seed(1234)
#  df <- datapasta::tribble_paste(simulate_block_data(5, lower_corr = .5, upper_corr = .65, n = 100))
#
#  set.seed(1234)
#  df8 <- datapasta::tribble_paste(simulate_block_data(8, lower_corr = .5, upper_corr = .65, n = 100))
#
# set.seed(1234)
# ind_df <- datapasta::tribble_paste(purrr::map_dfc(1:10, ~rnorm(30)))

df <- tibble::tribble(
  ~block1_x1, ~block1_x2, ~block1_x3, ~block1_x4, ~block1_x5,
  -0.237742209461955, -1.7468943534667, -0.602171628770607, -0.666939530938579, -0.288662937329955,
  -1.12541820814331, -1.99151465678661, -0.50213384618046, -0.83485712073692, -1.05796847012522,
  1.41193096101551, 1.08458110439499, 1.22961649244113, 1.59065466278372, 1.49359848220345,
  0.887258421049964, 0.548796830491356, 0.802228005922945, -0.1004766369051, 0.361059127070248,
  0.531070260870366, 0.294542765665722, 0.381723015628544, -1.345968796593, 0.0257519655266092,
  -0.193002549932806, -1.05327780166055, -0.0596952948054842, -0.558740672211739, -1.01229757881256,
  0.186182645695615, 0.448777207504034, 1.69055983710438, 0.36894042608875, -0.102361656212709,
  -1.06329782523489, -0.232480245111604, -0.902975237123917, -1.75061975494365, 0.505978194416766,
  -0.169572514017666, 0.386258376108453, -0.162929406274663, -0.498029306382979, -1.11978600562078,
  -0.743228395925674, -0.8709753426146, 0.433872769065892, -0.230947190629792, 0.20632319030895,
  0.676405767416754, 0.118931057938497, -0.29890033618675, -0.416147494194538, -0.141474932974505,
  0.80544388058084, -0.566237264124029, 0.389413220352713, -0.645039813469254, 0.135031438171065,
  -0.358160136890498, -1.48356533849744, -1.12689722421985, -0.422129161210386, 0.520773201872349,
  1.33764596220113, 0.257964963508153, 0.593443029120749, -0.553766635878178, 0.312471907672867,
  -0.454382859895813, 0.545914796282897, 0.831370887398494, -0.151522834563121, -0.841817726174514,
  0.120516653359592, 0.101146581684564, 0.132530853387268, -0.346012273385059, -0.0605028549282583,
  -0.996216123551874, 0.301186398685704, -0.778713151365938, 0.970574624960811, -2.27894692975328,
  0.126694008724696, -2.1709183089373, -1.181408735589, -0.77431582995618, -0.151867148375903,
  1.70386876576736, 0.764835697837035, 2.66330530101082, 1.6798714255374, 0.0933818639022896,
  1.8051428165305, 2.58275527614334, 1.20968555327203, 2.09081777137201, 1.16790392657112,
  0.537692294728853, -0.914339280156386, -0.95021069733173, -0.0189682039981228, -0.899329223526896,
  1.44434641431359, -0.156810252890919, -0.589249498931947, 0.334068043368475, -1.23262569298053,
  -0.216614113115541, -0.328443932828774, 0.145166856780025, -0.494324118060808, 0.257274833112748,
  -0.445603485728397, -1.93825497208988, -0.870417496265389, -1.47653434058982, -0.265183698708395,
  -1.20285290788038, 0.29097264419949, -0.143917144330074, -1.3996335669429, -0.692882172434711,
  -0.550564287639656, 0.0744439281564837, 1.31207889273634, -0.548206277754439, -0.487590544583691,
  0.591710742427423, 0.65983824912473, 1.84193137266793, 1.51597679320991, 1.37939111666249,
  -0.0689606698178618, -1.52665175925078, -0.168648519577115, 0.0938311375198182, -0.073726810894719,
  -0.293478797154901, 0.740874021160048, -0.249049092027697, 0.295346522501181, -0.207787921975245,
  -0.202052163454057, 0.160099006802963, -0.481915891763073, -0.289359373993491, 0.388275535605467,
  -0.159749115820984, -1.36824107465773, -2.00470989027067, -0.672404907720876, -0.95633687951996,
  -0.450647383784427, 1.57305751545439, 0.160544434139777, 0.972169836251192, -0.260001672592332,
  -2.26444607514111, -1.04022679461987, -1.16183948268297, -0.381032875494167, -0.130142713703549,
  -0.747022726640052, -0.892972127470809, -0.844825610342624, -1.38739386906445, -1.335123301003,
  0.95317364409961, 0.711679351719452, 0.777879029075122, 1.43236019316856, 0.627541380251329,
  -0.415265805755277, 0.634011366922417, -0.681528634982841, 0.0230239128143307, 0.354015978920784,
  2.11175491829046, 0.989902145189101, 1.02551347774898, 2.40614039979803, 1.22699174240237,
  0.122908243956709, -0.90644353058165, -0.32548450986347, -0.750878576839809, -0.801179576030276,
  -0.700510283243827, 0.191596168248103, 0.272171360985917, -1.18400669248754, 0.814105487073626,
  0.748275598075933, 0.252937669205736, -0.0232007415730908, 1.34807418595938, 1.03058632717493,
  -0.660313118294064, 1.36653190176704, 0.621180873880604, 0.621133585419937, -0.107505750709294,
  0.108452410357306, 1.27492141651303, 1.45274843496597, -0.198554720780075, 1.97232686693674,
  1.03657256051459, 1.68242783605941, 1.88730724045374, 0.973326283995032, 1.55825213488729,
  0.933141368863568, 0.549971431131413, 2.46763370728146, 0.208307416344126, 0.984318211205781,
  0.596483571296051, 1.63552183459941, 0.697039854947444, 1.18278978813283, 0.585800842226221,
  -1.75027642643974, -0.427757376983494, -0.873347186700699, -0.614309583336205, -1.82059835588649,
  1.6278725042964, 0.34933410998886, -0.721749158656186, 0.472589992813243, 0.588538031699521,
  -0.504901851476242, -0.115025323383913, -1.51530673746365, -1.08252588742326, -0.123869841424621,
  -1.44450476921863, -0.556745494015269, -1.91667164125984, -1.20596778816092, -0.389510290724234,
  -1.66372380175111, 0.348792801539146, -1.51973253389476, -1.09945001954185, -2.46005317818108,
  0.264016588709021, -0.37887292131002, 1.78551625510911, 0.395449420435525, 0.244164847081411,
  0.313908272555754, -0.385534067333659, -0.876151479189995, 0.950474045976045, -0.0371161791168911,
  -0.274400511307855, -0.716712648100143, 1.05498399232979, 0.318902553071679, 1.61049913320941,
  0.540205678397596, 0.890994160287517, -1.42375942775568, -1.45186582588668, 0.0214906196611844,
  0.428305204667967, 0.236362923430077, 0.53475269716595, 0.104614919097825, -0.56791419974093,
  0.0320888290638134, 0.330821058702447, 1.44563886509582, -0.77688502720261, -0.754168129160946,
  0.193300110664152, -0.709653447904073, 0.373593078751382, 0.369023001841704, -1.28162307906612,
  -0.734229968431337, -1.66786905021158, -0.348641359503768, -0.925852811595592, -0.849080585039146,
  -1.63629129287932, -1.0825842427875, -2.1181609696938, -1.59396299620952, -2.20541863932419,
  0.00897709108748923, 0.40928103908134, -0.821351834304487, -0.64267280199771, 1.28310551680009,
  -0.244061259395567, 1.20401850525885, -1.54872668960205, 0.0596677152917353, -0.812131484469677,
  -0.849134537169869, 0.115522772254556, 0.674943890307856, -0.416794353350476, -0.170162178224452,
  -0.0513049012338856, -0.131615040636304, 0.690617221345763, 0.0909096629224279, -1.44113739774838,
  1.38763735091504, 0.0143537421285662, 0.263644751357176, 0.125093687928935, 1.19813716188215,
  -0.436215506160083, -1.61032690641727, -1.02086316004222, -0.975950307617328, -0.120659996809503,
  -3.11571499870586, -1.64303566050197, -0.368541261429676, -2.66965777041436, -1.25352737847144,
  -2.54814941922541, -3.56630489368014, -2.6409644718476, -2.03450017795973, -1.32160253775658,
  -0.103096900302135, 0.0492402014105182, 0.309645770659678, -0.864210888665018, 0.0466748220554323,
  -0.350828903269501, 0.322727609485588, 0.970392871723502, -1.03937916316183, -0.704816228521899,
  1.07922093814595, 0.723151530013932, 1.03519959846644, 0.135605103910432, 0.0204453479520904,
  -1.485996206318, 0.171994656509046, 0.429707226189113, -1.03944686843866, 0.588038327608526,
  0.992437217695723, 1.14875864737144, 1.5058248685754, 1.54518961189392, 0.665440941753727,
  0.107675833037335, 0.284495472529794, -0.440289315193751, 0.836259237560444, 1.08877372384162,
  0.21393984497512, -0.563161803498733, 0.53541625760736, -0.423702303529905, -0.660637820905796,
  0.449129368860227, 0.945878703139183, -0.354202747629876, -0.164858685823116, -0.169511159136537,
  -0.276672684799608, -0.723281834528578, -0.741645199070683, -0.494860530965411, -0.612227897389842,
  -0.247085614948556, 0.124799136794176, -0.346341273974488, 0.669879426831191, -0.838748932938112,
  0.397778732593478, 0.869207323090074, 0.604370099803241, -0.124103630097602, 0.31915410888402,
  1.31166897478655, 0.310785264381444, -1.42828124726767, 1.07121491302299, 0.310783014048731,
  1.66857609899539, 1.1471971555648, 0.707328232872388, 1.70670048571804, 0.496863519200437,
  1.63721837777384, 1.21453953230365, 1.81068579372855, 2.37577720105343, 1.04930653198463,
  0.79886177915172, 0.974626091162253, -0.501336336406987, -1.20772626775669, -1.55145144651688,
  -1.38571907598347, 0.256252484485967, -0.699889634184507, -0.961669313223408, 0.227792472239295,
  -2.10596759966694, -1.08580240855629, -1.96940617232119, -2.68203002040695, -1.97330940540924,
  -1.73095316677954, -0.799737379720062, -0.660529914235511, -0.827370835207185, -0.740234625923773,
  -2.60628178338809, 0.0340696926399396, -0.398308305233382, -0.580519008396361, -0.0585449041775841,
  -0.766019101236445, -0.783288093090667, 0.140114493570816, -0.611594134877827, -0.470150641457462,
  -0.554083671108293, -1.13767948573668, -0.197542724391689, 0.48336721898271, 0.00840287287056209,
  0.0602903379481994, -0.903016918739088, 0.00823327078961682, 0.342080068884654, 0.222968194870666,
  -0.986656754733363, -0.169451008359098, -0.718770796401987, -0.808337382934717, -0.238507027664946,
  -0.463487102442066, -0.734863139399783, -0.472800400074516, 0.0247435283720239, -0.86305272882832,
  -0.111742958466329, 0.00532630477852075, 0.038844867640199, 1.35836298980264, -0.308326088076794,
  -0.667470561134237, -1.9224367632223, -2.29007233474185, -2.20187223904174, -1.78731370632623,
  0.792425271313084, 1.14550507796839, 0.286521903652354, -0.475158149696524, 0.571865383936357,
  -0.100894605465532, -1.29458934886668, -1.02076865253184, 0.112417813102173, -0.524226058920247,
  -1.45072231143489, -1.12698497303363, -1.37341939895917, -0.849921744574999, -1.19982326298906,
  -0.40345646643196, -0.691974768511001, 0.00330823634141154, -0.99478208896796, -0.0234470442792971,
  -0.304044088893262, -0.873258621934643, -1.06486356106795, -1.02466252158879, -0.946621495049788,
  1.2794236414504, 1.35674984558455, 0.674480430819382, 1.63313938733096, 2.62131535820334,
  1.55778396376379, 0.486536679427975, 0.362429340753564, -0.083633009919296, -0.710178952773706
)

df8 <- tibble::tribble(
  ~block1_x1, ~block1_x2, ~block1_x3, ~block1_x4, ~block1_x5, ~block1_x6, ~block1_x7, ~block1_x8,
  1.21094042678606, 0.446405661520545, 0.692454994987266, 0.74937053277441, 0.712021072813738, 0.473086081718405, 1.19653549749667, -0.823856674616562,
  0.283178968074947, 0.957339126194482, 0.583884135418498, 0.0171835046787902, 0.0677068354340448, -0.333856946872413, 0.698383317056034, 1.007756406689,
  1.71742688171217, 1.73519378082916, 2.14720922404923, 1.12856420049295, 1.23272571536682, 1.28575433119281, 1.09886202480563, 0.33904335757476,
  0.627633710786577, 1.22667235618021, 0.27266602724882, 1.42637632482777, 1.58777794434201, 1.88139362194637, 0.729769003208395, -0.120292774358927,
  2.02088825319485, 2.0192250580443, 0.0713114011175969, 2.12422938325653, 1.35759530456021, 2.78638275636484, 2.85022403453347, 1.03175056211818,
  2.03120794328398, 1.65742978845278, 1.16318304477985, 0.751216795994607, 0.122876189802028, 1.66180335354412, 0.54040039910317, 0.862819315826279,
  0.184012053648272, -0.157733369298868, 0.304552307477152, -0.00422534049317311, 0.847411410296985, -0.287041061726391, 0.609542392142471, 0.435594252785071,
  -0.0225506557386296, -0.0253930437251367, 0.934725067293833, 0.5555828092679, -0.218859002014566, 0.682597439692773, 0.591185857117809, 0.567477479583194,
  -1.16165974952994, -1.20425750159973, -1.17549123991874, -0.84659322482967, -1.69538497438788, -1.10513178279519, -1.08672678064929, -1.21996763110019,
  0.581169918745407, 1.57440750628639, 0.765088014712744, 1.01562803340926, 1.04442238337064, -0.104693585153268, 0.832035319076354, 1.27594982248556,
  1.57319712570567, 0.12867960431911, -0.388131091617475, 1.26309907845109, 0.53167682115136, 0.435237497785071, 1.30556725378943, 0.746421319429388,
  0.72724119259205, 0.427698408221003, 0.661028741976834, -0.362179082620787, 0.504627016037147, -0.214645354493499, -0.321387347898042, 0.42285219423358,
  0.672632262437163, 0.67878892897883, 1.31071960174581, 0.0964858510660026, 1.5974740887704, 0.513212068961072, 0.480232652516449, 1.17246755683138,
  1.3309756383635, 0.943665919386384, 0.0500060124513858, 1.32822790119348, 1.22270488290248, 0.894872135713247, -0.191994373580212, 0.747292458538782,
  0.673662994274684, -0.388337552641083, 0.635987689580192, 2.18765476048734, 1.7409120255305, 0.467752401585532, 0.703469092208377, 1.22605662626975,
  -0.11600189604636, 0.726893122709188, 1.60616904241938, 1.35713974727218, 1.32911439028947, 1.01638240745259, 1.56768895813909, 0.718936913334111,
  0.068836562855834, 0.775332464103032, 0.422899124659787, 0.839747014065339, 0.536944476521138, 0.0752233173402548, 0.415335473674075, 0.286880322559786,
  -0.0989213683471042, 0.700007450687565, -0.0576731987198734, 1.54656713882117, -0.122240518482493, 0.596807900337563, 0.218516334445897, 0.451499014492498,
  0.642833347311101, 0.906769621972335, 1.86748633176549, 2.02713259095023, 2.22135201417352, 2.11972410402087, 1.39631994946049, 0.653365958358939,
  0.703147503136183, 0.323912416811675, 0.235304818548372, 1.19773030648994, 0.736886192455437, 0.696120066541636, -0.613522833116724, 0.522745264161733,
  0.408974790385652, 0.346058606557205, 0.132489722002504, 2.1732174931505, 1.47346162634056, 0.837598836491397, 0.739692816209928, 1.13135223162389,
  0.960047755334496, 0.252370800683859, 1.39063731005516, 0.759026362355304, 0.746906385937924, 1.14309809927955, 0.656745581268371, 0.756900760756001,
  -0.780161309926439, 0.558449421787196, -0.19878418492903, 0.140877263693596, 0.379725316719023, 0.737949223325586, 0.554277591193898, -0.340355136663416,
  -0.402833671173663, -0.368467505172345, -0.869152783007195, -0.574465786325879, -0.347457074934658, -1.22008345794304, 0.00671933339528621, 0.079288485236391,
  -0.551647320700446, -1.88818062855801, -0.609576966259044, -2.32514051328087, -1.21659580896984, -1.61338743036942, -2.18717330047274, -0.380201411522361,
  0.797954994768474, -0.169373857666038, 0.715598496750126, -0.489275339906563, 1.91077551032587, 1.80630853793413, 0.714299736978446, -0.19939487244146,
  -1.31685045138298, -0.994179168627395, -0.770867126218796, -1.41519784804489, -1.80570686421624, -1.34653254639324, -1.29322744924465, -1.57000903656617,
  1.32486022386362, 1.7865811131429, 0.564325963541908, 0.861403021546099, 0.208457722743304, 1.36265213388254, -0.187195917665679, 1.64966924655595,
  0.325768421878608, -0.704154128687264, -0.236864054128726, -0.169622409220929, -0.469313470500195, -0.711901886664757, -1.32062944398629, -1.00918005420031,
  -0.97127860255569, -2.51317861636047, -2.32592601836659, -2.86247332892379, -2.01862338299515, -2.01217059281153, -2.32091436530067, -1.66205832353018,
  0.0236710914517542, 0.236165506996644, 0.171484692918785, -0.111290256002915, 0.246344391569833, 0.275482321344435, -0.391042167498904, -0.223303094565919,
  0.963220680538849, 0.785559422379176, -0.380337911598295, 1.1173414146211, 0.397144362266432, 0.615428336453598, 1.25938958862271, -0.384594285459863,
  -0.0949556758685046, 0.400117250764706, 0.522064882065441, -0.0478445027348428, 0.600230747101425, -0.968821109596993, 0.21111098356316, -0.572040275961038,
  -0.574315365321924, -1.07220988348499, -1.79633687291861, -1.49557862497633, -1.81021559627931, -2.68516280967878, -0.791334891731863, -1.42063921920443,
  0.466763726583547, 0.5112066472323, 0.977765513105667, 0.709478970774613, 2.45611041215401, 0.084738644149346, 1.59517966965942, 0.657216283736232,
  -0.693706581490459, -0.702100678816345, -1.20587902215893, -1.81415223438105, -0.710600798083617, -1.52029909579956, -0.612898022412428, -1.69868080012381,
  -1.23538158086989, -1.26075781813623, -0.450649409237532, -1.38499704675912, -1.97483668314297, -1.34463085255598, -0.525811324501368, -0.516398379793825,
  0.894459696928005, -0.50233726504001, -0.937403667670407, 0.0980094528766143, 0.347994878326843, -1.38822045800561, -0.914869351018528, 0.185314384335882,
  -0.353877914040042, -0.74286238747574, -1.12563357670754, 1.47502757304209, -0.319271297930731, -0.18665696852928, 0.673329234919132, 0.514706253358676,
  -0.589427185521509, -0.405772423163609, 0.962999923684908, 0.827952755777531, 1.03360756173199, 1.15975993580924, -0.603942805344672, 0.603087380958433,
  0.419215021776992, 0.633392943576683, 0.575863880737158, 0.510280334106609, 0.292558392217827, 0.112681920456984, -0.193453835700356, 0.0480711858226749,
  0.184475911811898, -1.16188312736174, 0.353219780379553, -0.248554476503764, -0.804811061949079, -0.427500647766568, -0.787875944295463, -1.3301736377731,
  -2.26358315697741, -2.40205521583491, -1.27454413448153, -0.862652961640651, -0.873508035110975, -2.30086945352669, -2.26727293489628, -1.32088786274255,
  0.377457094231838, 0.0130729258698163, -0.125051523806301, -0.0317945466826565, 0.0406809956394584, 0.879213480531936, 0.00544825636732501, -0.151358029644466,
  0.977307227977532, 1.48756674380396, 2.0910237900729, 0.668801376794747, 1.09131890894614, 1.26320074534518, 0.696959643409583, 0.846891025092837,
  -0.403097956931169, -0.321081573906455, -0.293004622798982, 1.34121955248881, 1.92946322794829, 0.58497513542785, 0.0301052912349133, 1.84771210702662,
  -0.111109538328683, -0.0261488402720179, -0.690354360710969, 0.0605004525368977, -0.117162692810939, 0.0254484499007403, -0.719552322545669, -0.125983608915054,
  0.587345144948209, 0.111025133759495, 0.622649902360755, 0.220830025383584, 1.36009819659832, -0.235686991666688, 0.0604270280029378, -0.644939150006611,
  0.459523925163391, -0.806766819973296, 0.800124618551654, 0.247864856824515, -0.251383230461514, 1.13981556456312, 1.11388784506318, -1.50591383519797,
  -1.1849130306498, 0.73469607259536, 0.541183132349326, 1.06346915530475, 0.621327068135056, 0.339216429617093, -0.0125536875821512, -1.00338642686503,
  0.461547771073048, 1.21436574236685, 1.2851243152838, -0.0448035027548805, 1.66309351015552, 0.911730475337819, 1.82224170248895, 1.6825241073015,
  0.807565207852498, 0.259340666440184, -0.0822189981868566, 0.549783771871437, 0.160232022306705, -0.396287301961677, -0.557754752364711, 0.388784824925652,
  -0.43663638078579, 0.0222790084604965, -1.40368062296271, -0.72648406934479, -0.430093358785787, -1.20221852502467, -0.66341911189662, -0.748708348563253,
  -0.726298252747144, 0.0201423677665573, -2.12164382986696, 0.549122165001752, -0.237297496907239, -0.458081530722606, -1.83231872534676, 0.189907301477681,
  0.475720021392392, -1.75463289253996, -0.818627949429956, -1.40049986500688, 0.598967008150085, -1.02108642377579, 0.301350464982046, 0.0336571341092724,
  0.207751882502428, 1.8413095509503, 0.900200029788691, -0.870662201397068, 0.905124241751401, 0.0612186975120819, -0.164380829214473, -0.245286436877281,
  -0.760129129668461, 0.333115617299798, -0.549442297422772, 0.107347742608268, 0.561050261459194, 0.778945309919068, 0.811745042595978, -0.0414088754918941,
  1.01746653412558, 1.39028780002802, 0.550707060045198, 1.5668382048373, 1.04526941141316, 1.35966660425259, 0.240343952575933, 0.638098976613803,
  0.811243999698114, 0.116016404196724, 0.0528828123415552, 0.456766664738249, -0.588720322555798, -0.0732551824655642, -0.761476265880607, 0.333405446844328,
  -1.24360090054548, -0.644464129119192, 1.7487029525618, -0.606773412645426, -0.813699585736196, 0.660792083612787, 0.791534424137211, -1.52156237344551,
  -2.05157431042993, -0.603311699060785, -2.15630695209523, -1.4444424149844, -1.95810831495796, 0.0315089011555406, -1.26595427262087, -1.74332469076998,
  -0.364690877505324, -1.00617112120724, -0.812563769532332, -1.67903763297999, -1.29301756559819, -1.45337024591718, 0.0465536475414452, 0.0143129990994393,
  0.213493561059878, 0.0672902259685405, 0.627070696392879, 0.534730929200376, 1.06295828434894, -0.902852217356075, 0.131985801777312, 1.50739644711302,
  0.0166391137313508, -0.52029628185441, 0.0706071650406182, 0.133409873218303, 0.0701028496826346, -0.907864233956832, -1.22235581476054, 0.0296046291805401,
  0.834826024455726, 0.638730013498711, -0.490894991325342, 1.55086150645488, 0.0859242152742947, 1.80612749513432, 1.21119854327847, 1.7775811062004,
  -0.484588197869459, -0.0364344087427312, -0.661797313303868, -0.961612548981886, -1.22922442403948, -0.459932634697741, -0.921071550995173, -0.999486332860619,
  -1.14756087418088, -0.922780694187464, -0.876633320430896, -1.01994518932162, -0.569209270768877, -0.152314595207332, -1.39511231186957, -0.291983881828324,
  -2.17993411253931, -1.88237189587056, -1.29094548074357, -1.77233840409138, -2.19125140597929, 0.0393671933234199, -2.51742004650682, -2.08947824547324,
  -1.36578304154723, 0.0577872522522296, -0.628133894519964, -0.334400894705566, -0.238248643609796, 0.212512310261962, -0.18423705483265, -0.247661966999361,
  -0.0209860505405859, 0.582314438479741, 0.336958065704565, -0.796528048620653, 0.465280780182978, 0.360864940841092, 1.05293018032908, 1.13389764997575,
  -0.128169104161119, -0.536333996213575, -0.484320592488318, 0.212345854535774, 0.564736800016033, 0.535254142341581, -0.355868404873028, -0.244788020796281,
  0.174685223626476, 0.313976338019073, 0.697232511762446, 1.58314880988018, 0.448053434908569, -0.611819239832991, 0.669612492533797, 0.0101482580457357,
  0.598841897607938, 1.13790266584696, 0.0472517448909117, 1.24468375640882, 0.559898367653542, 0.947427937509701, 0.0835955731840923, 0.770857774954964,
  0.0833876418265501, -0.206065404876815, -0.654476112684701, 0.0389231592345826, 0.168729539695638, -0.525909650276158, 0.248061126265995, -0.254368598388875,
  0.860880487762668, 1.34169085346786, 0.383359024467392, -0.303222586165419, 1.08298458484393, -0.363098752324695, 1.06767095874696, 1.79264353689469,
  -1.17910460388697, 0.46531614178629, 0.398690006279393, 0.679863247326086, 0.000502748647290267, -0.987982483680818, -0.465206154455031, -0.0291066286941637,
  -0.366080099474057, -0.956869064659763, -0.645633554458844, -0.0867791814288797, -0.165737517212564, 0.258813556562666, -0.066949190368097, -0.294052924499931,
  0.11526865287216, 0.652831355270077, 0.804640676635552, 0.119459734056545, -0.251328430034104, -0.16323264330123, -0.355718236746853, -0.575991331451064,
  -0.502633051760432, -1.17569876771999, 1.00220619262426, 0.434344741640417, 0.200817805186613, 0.0388768334207096, 0.518840532692591, 0.788034752565329,
  0.508700894844632, -0.144711146673269, 1.05293806067852, 0.428313767846919, 0.033438733097856, 0.528707126379516, 0.965481211622423, 0.897821137176913,
  0.171813909663781, 1.36587432374018, 0.528811785023257, 0.910159792966264, 1.49710874583421, 0.507284791945795, 1.1990621650265, 1.07254982605356,
  -1.65371821626648, -0.544215973546366, -0.075710223530042, -0.51672341019141, -1.01267881962021, 0.470464253084719, -0.696233340830386, -1.52748750141224,
  0.69016870122705, -1.10678110664163, -0.309807424775119, 0.621412480359487, 0.112300427271317, 0.036192762294127, 0.52386094875654, -0.704311559948725,
  -0.822725401296514, -0.91921851225422, -0.0527752982824797, -0.515252443273295, 0.121563214730227, -1.28010908324618, -1.03246865828728, -0.939298447484006,
  2.00102585744894, 1.88845607048697, 1.66672517866566, 0.276863771769597, 1.42387794114969, -0.680115923091402, 1.38752297915333, 0.194556435395073,
  -0.486738745980697, -0.244765521990976, 0.626758767709152, 0.358562792311304, -0.380192631985048, -0.0540397674475594, -0.721090093959269, -0.199888109552302,
  -0.24077062569793, -0.53111660105657, -0.926639475653618, -0.848130387927968, -0.373186796302423, -0.0310807671173423, -0.849321558182458, -0.611496541900265,
  -0.429149953472872, -0.0395098865600815, -0.76067913461976, -0.176531571018611, -0.0357021915421178, 0.906874873572623, -0.153313528629551, 0.848840253819708,
  -0.917907439972792, 1.41389566329372, -0.0379753483061197, 0.779299239322859, 0.69418149498583, -0.0571967467992997, -0.262088244225491, -0.389103195496896,
  0.890602606137995, 0.720981983954436, 0.382360562296662, 1.0212627121914, 0.701216991816037, -0.00914656324645816, 0.792134506858267, 0.614840802442519,
  -2.48139255112371, -1.69397008732017, -2.84575525941344, -1.59925872763553, -0.964889520751767, -1.37661211733806, -1.88543798958376, -0.662233653000613,
  -0.579887551486465, -0.61872280117946, -1.62961607474977, -0.665450300241236, -0.486773282521042, -0.750843319416463, 0.191880025391083, -0.3899271356462,
  -0.985819706047435, -1.70854377945954, -1.52069201901673, -1.29954528524773, -1.87118735140208, -2.18695673259181, -1.04824670086847, -1.3254435015116,
  0.338525138685785, 0.399050645499135, 0.148953767326112, -0.081527933671998, -0.751476956228001, -0.697036339116077, 0.773811324398943, -0.649541468287196,
  0.682417169154764, 0.167656977925414, -0.171595227614284, 0.627935537923142, 1.48095245605958, -0.584823710344664, -0.0908528341646883, 2.00627799748042,
  1.15687979848952, 1.48055595923292, 0.579539026445326, 1.00956947742114, 1.68647690059609, 1.37267622092927, 1.34074710475118, 1.27490769886114,
  -0.335730140445998, 0.862446831232025, 1.5638842838173, 0.478527304747318, 0.292119530528285, 0.634145526859397, 0.282500536073292, 0.397169796683323,
  0.256214594038828, -0.0325694312187572, -0.719976797734455, -0.286258309857598, 0.0644890526321065, -0.168204170445701, -0.296976662063209, -0.30672875560858,
  -1.72791929478259, -0.621187178453788, -0.262827688024341, -0.78361419864708, -1.56582833193748, -0.64914879330406, -0.411440209197376, -0.613381746225845,
  -1.40052114993083, -0.278500883909107, 0.467826619047882, 0.393590906221568, -0.831360822978352, 0.0903130827860726, 0.0207579254408054, -0.114384404175724
)

ind_df <- tibble::tribble(
  ~V1, ~V2, ~V3, ~V4, ~V5, ~V6, ~V7, ~V8, ~V9, ~V10,
  -1.20706574938542, 1.10229754620026, 0.656588464332807, -0.0531588187433239, -0.191392168556024, -0.377237647496313, -2.7322195229558, 0.418057822385083, 0.0591351681787969, -0.304613889457735,
  0.27742924211066, -0.475593078869057, 2.54899107071786, 0.255196000995833, -0.781906646699876, 0.0976194631092374, -0.0997905884418961, -0.400235237343163, 0.413398894737046, 1.8250110640863,
  1.08444117668306, -0.709440037512506, -0.0347603898038376, 1.70596400724007, 2.05816198776349, 1.63874464512173, 0.976031734922396, 1.49349310261748, -1.09777217457042, 0.670559370567588,
  -2.34569770262935, -0.501258060594761, -0.669633579661957, 1.00151325236345, 0.750501453155831, -0.875592474189569, 0.413868915451097, -1.60708093984972, 0.711175257270441, 0.948632573255153,
  0.42912468881105, -1.6290934690787, -0.00760475571097463, -0.49558344300146, 1.82420830237829, 0.121759998641046, 0.912322161610113, -0.415751788401515, 0.718888729854143, 2.04940300167091,
  0.506055892157574, -1.16761926209419, 1.77708444814343, 0.355550296999749, 0.080059641091988, 1.36213066084498, 1.98373220068438, 0.42200837321742, 0.251651069028968, -0.651113609237535,
  -0.574739960134649, -2.18003964894867, -1.13860773675091, -1.13460804353385, -0.631409298966366, -0.23462108692271, 1.16910851401363, -0.151736536534977, 1.35727443615177, 0.808619272846293,
  -0.546631855784187, -1.34099319210003, 1.36782717942326, 0.878203626952291, -1.51328812003373, -1.05338280794309, -0.50873701541522, -0.60615111526422, 0.404468471278607, 0.986580613954563,
  -0.564451999093283, -0.294293858763713, 1.32956479078236, 0.972916753376122, -0.636099831085051, -0.869783605635912, 0.704180178465512, -0.304721068966714, 0.264364269837939, -0.00617079609070003,
  -0.890037829044104, -0.46589754040611, 0.336472797203817, 2.12111710537568, 0.226301532497161, -0.390127029647055, -0.198416273822079, 0.629536099884472, 0.268043904143697, 0.319052357931912,
  -0.477192699753547, 1.44949626528713, 0.00689283844195796, 0.414523534374985, 1.01369034746575, -0.847350073129572, -0.538070788884863, 0.895171980275539, 0.436930577039483, -1.01182190274184,
  -0.998386444859704, -1.06864272367458, -0.455468738161428, -0.47471847352936, 0.252750135066342, -0.260639392099399, -2.85575865501923, 0.660212631820405, 1.06012390548736, 0.470167547726389,
  -0.77625389463799, -0.855364633737507, -0.366523932873933, 0.0659934937044614, -1.17194831284112, -0.414419706341893, -0.789646852263761, 2.27348352044748, 0.452190396528715, -0.700970331629097,
  0.0644588172762693, -0.280623001957454, 0.648286567503148, -0.502477782393866, 0.668714328525034, -0.183050797719434, 0.487814635163685, 1.17349757263239, 0.663198615687065, 0.813682862526491,
  0.959494058970771, -0.994340076295665, 2.07027086133094, -0.825998587129336, -1.65010093484436, 0.407056097880578, 2.16803253951933, 0.287709728313787, -1.13637355399084, -0.811430783992772,
  -0.110285494390774, -0.968514317872049, -0.15339841246697, 0.166989279752984, -0.365852248191901, 0.624633128202147, 0.500694614280786, -0.659770093821306, -0.370497517092117, 0.31939748709946,
  -0.511009505806642, -1.10731819264177, -1.39070094670149, -0.896264626244759, -0.31611832883308, 1.67820574370471, 0.62021020366732, 2.91914013071762, 1.47696958979247, -0.846522653163624,
  -0.911195416629811, -1.25198588563894, -0.723581777110154, 0.168185387655757, -1.94824604732137, -0.0686936535649907, -0.965903210133575, 0.677415500438328, -1.22390375051376, -0.245763179128733,
  -0.83717168026894, -0.523828118987356, 0.258261762167853, 0.354968261014854, 0.920057522390905, -0.320839912658177, 0.162654708118265, -0.684320344136007, 0.258068387396106, -1.55285901110546,
  2.41583517848934, -0.4968499572667, -0.317059114961199, -0.0521051168711336, -0.622871594878875, 1.47100571704891, -2.07823754188738, 0.186492083080971, 0.405002805433516, 0.128434032925753,
  0.134088220152031, -1.80603125680195, -0.177789957664294, -0.195934618716253, -0.334036649997458, 1.7043293978271, 0.485226820569252, -0.324393300483657, 0.97580332180945, 0.985443389404868,
  -0.490685896690943, -0.582075924689333, -0.169994076854541, -0.64906975160576, 1.39514789252962, 0.0432440375575291, 0.696768778564913, -0.274704218225806, -0.348876736539909, 0.183247523067191,
  -0.440547872353227, -1.10888962442678, -1.37230188587669, -1.10976723139873, 0.63667441103895, -0.332657319133519, 0.185513915583057, -0.933503340589868, 0.158625439491262, -1.76622921343046,
  0.459589441005854, -1.01496200949201, -0.173787170414033, 0.849274202655058, -0.108431696990383, -1.8222354175631, 0.700733515544461, 0.116845344986082, -1.76325506654115, -0.620533696615944,
  -0.693720246937475, -0.162309523556819, 0.850232257121884, 0.022362526076024, 0.513762778404674, 1.41126239874678, 0.311681028661359, 0.319160238648117, 0.338596047099905, 1.65604303699874,
  -1.44820491038647, 0.563055818994517, 0.697608711668253, 0.831140617306835, 0.399271807273958, -0.837582434076861, 0.760462361967838, -1.07754212275943, -0.666565029559273, 1.80980538558388,
  0.574755720900728, 1.64781747281506, 0.549997351091101, -1.24428785134423, 1.6628564474304, -1.12376279439532, 1.84246362620766, -3.23315213292314, -0.238646624327644, -1.17503676801214,
  -1.02365572296388, -0.773353423943695, -0.402731975447623, 0.169026413766175, 0.275893403585483, 3.04376588609529, 1.1123628412626, -0.254874652654534, -1.18776528245719, -0.366703258827641,
  -0.0151383003641817, 1.6059096288573, -0.191593770478477, 0.673166306947679, 0.506272623207687, 0.235021308250671, 0.0326639575014441, 0.0295178303214797, 0.384935321768578, 0.353625448927287,
  -0.935948601168394, -1.15780854769441, -1.19452787960251, -0.0262763764485261, 0.347551975023811, -0.0332586101133057, -1.11444896479736, 0.594273774110513, 0.66657951565448, 0.319156220867898
)