# h_get_kr_comp works as expected on ar1 ungrouped mmrm

    list(P = structure(c(-8.6951404485695, -4.18484163528792, -3.2993613446609, 
    -1.64605311219472, -4.18484163528792, -4.18484163528792, -1.64605311219472, 
    -1.64605311219472), dim = c(4L, 2L)), Q = structure(c(17.390280897139, 
    8.36968327057585, 6.59872268932179, 3.29210622438944, 6.59872268932179, 
    3.29210622438943, 3.13460478136063, 1.58300324944804, 8.36968327057585, 
    8.36968327057585, 3.29210622438944, 3.29210622438944, 3.29210622438943, 
    3.29210622438943, 1.58300324944804, 1.58300324944804), dim = c(8L, 
    2L)), R = structure(c(17.390280897139, 8.36968327057585, 6.59872268932179, 
    3.29210622438944, 6.59872268932179, 3.29210622438944, 0.587917298512552, 
    0.305218430155293, 8.36968327057585, 8.36968327057585, 3.29210622438944, 
    3.29210622438944, 3.29210622438944, 3.29210622438944, 0.305218430155293, 
    0.305218430155293), dim = c(8L, 2L)))

# h_get_kr_comp works as expected on ar1 grouped mmrm

    list(P = structure(c(-4.06278289431356, -1.90710315499515, -1.54720401850159, 
    -0.731435977362822, -4.64225304233885, -2.28093254212952, -1.75816393625941, 
    -0.913236191436237, -1.90710315499515, -1.90710315499515, -0.731435977362822, 
    -0.731435977362822, -2.28093254212952, -2.28093254212952, -0.913236191436237, 
    -0.913236191436237), dim = c(8L, 2L)), Q = structure(c(8.12556578862711, 
    3.8142063099903, 3.09440803700318, 1.46287195472564, 3.09440803700318, 
    1.46287195472564, 1.50236371269529, 0.705888243063821, 9.2845060846777, 
    4.56186508425903, 3.51632787251882, 1.82647238287247, 3.51632787251882, 
    1.82647238287247, 1.64340023685874, 0.874305512352496, 3.8142063099903, 
    3.8142063099903, 1.46287195472564, 1.46287195472564, 1.46287195472564, 
    1.46287195472564, 0.705888243063821, 0.705888243063821, 4.56186508425903, 
    4.56186508425903, 1.82647238287247, 1.82647238287247, 1.82647238287247, 
    1.82647238287247, 0.874305512352496, 0.874305512352496), dim = c(16L, 
    2L)), R = structure(c(8.12556578862711, 3.8142063099903, 3.09440803700317, 
    1.46287195472564, 3.09440803700317, 1.46287195472564, 0.374121019881623, 
    0.249364197538307, 9.2845060846777, 4.56186508425903, 3.51632787251882, 
    1.82647238287247, 3.51632787251882, 1.82647238287247, 0.221459167589304, 
    0.0615916069137739, 3.8142063099903, 3.8142063099903, 1.46287195472564, 
    1.46287195472564, 1.46287195472564, 1.46287195472564, 0.249364197538307, 
    0.249364197538307, 4.56186508425903, 4.56186508425903, 1.82647238287247, 
    1.82647238287247, 1.82647238287247, 1.82647238287247, 0.0615916069137739, 
    0.0615916069137739), dim = c(16L, 2L)))

# h_get_kr_comp works as expected on ar1h ungrouped mmrm

    list(P = structure(c(-1.79034554536764, -0.865071368460441, -5.82101562553573, 
    -2.95177251644943, -6.15521719218183, -2.69485885209774, -0.659265438675531, 
    -0.328975732000032, -4.69076853080195, -2.32932625809294, -0.865071368460441, 
    -0.865071368460441, -2.95177251644943, -2.95177251644943, -2.69485885209774, 
    -2.69485885209774, -0.328975732000032, -0.328975732000032, -2.32932625809294, 
    -2.32932625809294), dim = c(10L, 2L)), Q = structure(c(4.05951568830365, 
    1.97682793975525, -0.526326779866945, -0.273366906829198, 0.0422437157207733, 
    0.0239370819242503, 0.00525846657779472, 0.00274462207058319, 
    2.38531167608663, 1.17243038090577, -0.526326779866943, -0.273366906829197, 
    12.9013371824117, 6.54479953227488, -0.721775024593032, -0.361442939234647, 
    -0.0112041268802527, -0.00644465331218001, 3.0880451804449, 1.56556194846262, 
    0.0422437157207732, 0.0239370819242502, -0.721775024593032, -0.361442939234648, 
    13.4036155607239, 5.93182594673928, -0.413649867487985, -0.204602385233392, 
    2.23648410889379, 1.06988980588918, 0.00525846657779476, 0.00274462207058321, 
    -0.0112041268802529, -0.00644465331218008, -0.413649867487985, 
    -0.204602385233392, 1.73812640514151, 0.866253880475053, 1.67169609617858, 
    0.850770380928311, 2.38531167608663, 1.17243038090577, 3.08804518044491, 
    1.56556194846262, 2.23648410889379, 1.06988980588918, 1.67169609617858, 
    0.850770380928312, 5.89930908653327, 2.9547519729988, 1.97682793975525, 
    1.97682793975525, -0.273366906829198, -0.273366906829198, 0.0239370819242503, 
    0.0239370819242503, 0.00274462207058319, 0.00274462207058319, 
    1.17243038090577, 1.17243038090577, -0.273366906829197, -0.273366906829197, 
    6.54479953227488, 6.54479953227488, -0.361442939234647, -0.361442939234647, 
    -0.00644465331218001, -0.00644465331218001, 1.56556194846262, 
    1.56556194846262, 0.0239370819242502, 0.0239370819242502, -0.361442939234648, 
    -0.361442939234648, 5.93182594673928, 5.93182594673928, -0.204602385233392, 
    -0.204602385233392, 1.06988980588918, 1.06988980588918, 0.00274462207058321, 
    0.00274462207058321, -0.00644465331218008, -0.00644465331218008, 
    -0.204602385233392, -0.204602385233392, 0.866253880475053, 0.866253880475053, 
    0.850770380928311, 0.850770380928311, 1.17243038090577, 1.17243038090577, 
    1.56556194846262, 1.56556194846262, 1.06988980588918, 1.06988980588918, 
    0.850770380928312, 0.850770380928312, 2.9547519729988, 2.9547519729988
    ), dim = c(50L, 2L)), R = structure(c(2.96240897331513, 1.42238548072338, 
    0.417361718170828, 0.218899143583644, 0.181488154022618, 0.0785059709793652, 
    0.0194322452266972, 0.0103521416344979, 1.83626555995802, 0.891091637751762, 
    0.417361718170828, 0.218899143583644, 10.1434543553421, 5.14145677354892, 
    0.978147017146087, 0.487962654696781, 0.103068160412428, 0.0552264610695179, 
    3.50694460747186, 1.78958342885721, 0.181488154022618, 0.0785059709793652, 
    0.978147017146087, 0.487962654696781, 11.031411953902, 4.76481328555208, 
    0.119387259292939, 0.0584357929672563, 3.19791810224854, 1.54017974411235, 
    0.0194322452266972, 0.0103521416344979, 0.103068160412428, 0.0552264610695179, 
    0.119387259292939, 0.0584357929672563, 1.076643212419, 0.533937068328793, 
    0.840408791925489, 0.43779770546456, 1.83626555995802, 0.891091637751762, 
    3.50694460747186, 1.78958342885721, 3.19791810224854, 1.54017974411235, 
    0.840408791925489, 0.43779770546456, -1.52132333457777, -0.807845536912824, 
    1.42238548072338, 1.42238548072338, 0.218899143583644, 0.218899143583644, 
    0.0785059709793652, 0.0785059709793652, 0.0103521416344979, 0.0103521416344979, 
    0.891091637751762, 0.891091637751762, 0.218899143583644, 0.218899143583644, 
    5.14145677354892, 5.14145677354892, 0.487962654696781, 0.487962654696781, 
    0.0552264610695179, 0.0552264610695179, 1.78958342885721, 1.78958342885721, 
    0.0785059709793652, 0.0785059709793652, 0.487962654696781, 0.487962654696781, 
    4.76481328555208, 4.76481328555208, 0.0584357929672563, 0.0584357929672563, 
    1.54017974411235, 1.54017974411235, 0.0103521416344979, 0.0103521416344979, 
    0.0552264610695179, 0.0552264610695179, 0.0584357929672563, 0.0584357929672563, 
    0.533937068328793, 0.533937068328793, 0.43779770546456, 0.43779770546456, 
    0.891091637751762, 0.891091637751762, 1.78958342885721, 1.78958342885721, 
    1.54017974411235, 1.54017974411235, 0.43779770546456, 0.43779770546456, 
    -0.807845536912824, -0.807845536912824), dim = c(50L, 2L)))

# h_get_kr_comp works as expected on ar1h grouped mmrm

    list(P = structure(c(-0.718260171632992, -0.376656928472061, 
    -3.00843865658628, -1.40765750785259, -2.76391416003229, -1.07866695929769, 
    -0.431856139745158, -0.223854275009984, -2.43857162206673, -1.11194176460251, 
    -1.0942956942798, -0.493210001053829, -2.7534859528175, -1.48314024847623, 
    -3.53867477106767, -1.69313910910057, -0.235391027624912, -0.104161163793399, 
    -2.27890100144704, -1.18630188088423, -0.376656928472061, -0.376656928472061, 
    -1.40765750785259, -1.40765750785259, -1.07866695929769, -1.07866695929769, 
    -0.223854275009984, -0.223854275009984, -1.11194176460251, -1.11194176460251, 
    -0.493210001053829, -0.493210001053829, -1.48314024847623, -1.48314024847623, 
    -1.69313910910057, -1.69313910910057, -0.104161163793399, -0.104161163793399, 
    -1.18630188088423, -1.18630188088423), dim = c(20L, 2L)), Q = structure(c(1.61405151813123, 
    0.842304314976652, -0.194938371630068, -0.0963568841557508, 0.0151831896117182, 
    0.00600129895877371, 0.00222400715310905, 0.00136512716444657, 
    1.03021580973796, 0.521017635734831, -0.194938371630068, -0.0963568841557508, 
    6.49924886263715, 3.03241266433917, -0.289281557741161, -0.119594004843377, 
    0.00184837990662808, -0.0011467596348556, 1.64643807947665, 0.728347555279989, 
    0.0151831896117182, 0.0060012989587737, -0.28928155774116, -0.119594004843377, 
    5.9594577897997, 2.33712616841546, -0.157531101605681, -0.0661995439354867, 
    1.33499223250972, 0.564171470735483, 0.00222400715310904, 0.00136512716444657, 
    0.0018483799066281, -0.00114675963485559, -0.157531101605681, 
    -0.0661995439354867, 1.01717099403626, 0.513689726425864, 0.865497122409143, 
    0.410346867454723, 1.03021580973796, 0.521017635734831, 1.64643807947665, 
    0.728347555279989, 1.33499223250972, 0.564171470735483, 0.865497122409143, 
    0.410346867454723, 3.06915764749534, 1.39832890968095, 2.49619463451987, 
    1.14750942557791, -0.339307742580091, -0.183643101626147, 0.029313972341686, 
    0.0216458590558123, 0.00239052427812837, 0.000907819100087188, 
    1.34603884088911, 0.640031070999603, -0.33930774258009, -0.183643101626147, 
    6.30208832767771, 3.41176917161596, -0.441414889664325, -0.255569849674672, 
    -0.0143937897982884, -0.0062757233626728, 1.50911855360525, 0.851911284141987, 
    0.0293139723416859, 0.0216458590558122, -0.441414889664325, -0.255569849674672, 
    7.75847602783546, 3.76979060744093, -0.269025568377475, -0.149588398620923, 
    0.892434556838096, 0.447489969192127, 0.00239052427812837, 0.000907819100087192, 
    -0.0143937897982884, -0.00627572336267279, -0.269025568377476, 
    -0.149588398620923, 0.75181088914746, 0.363278630470307, 0.810210051561633, 
    0.433171437434735, 1.34603884088911, 0.640031070999604, 1.50911855360525, 
    0.851911284141986, 0.892434556838097, 0.447489969192127, 0.810210051561632, 
    0.433171437434735, 2.94117697334452, 1.56921183169663, 0.842304314976652, 
    0.842304314976652, -0.0963568841557508, -0.0963568841557508, 
    0.00600129895877371, 0.00600129895877371, 0.00136512716444657, 
    0.00136512716444657, 0.521017635734831, 0.521017635734831, -0.0963568841557508, 
    -0.0963568841557508, 3.03241266433917, 3.03241266433917, -0.119594004843377, 
    -0.119594004843377, -0.0011467596348556, -0.0011467596348556, 
    0.728347555279989, 0.728347555279989, 0.0060012989587737, 0.0060012989587737, 
    -0.119594004843377, -0.119594004843377, 2.33712616841546, 2.33712616841546, 
    -0.0661995439354867, -0.0661995439354867, 0.564171470735483, 
    0.564171470735483, 0.00136512716444657, 0.00136512716444657, 
    -0.00114675963485559, -0.00114675963485559, -0.0661995439354867, 
    -0.0661995439354867, 0.513689726425864, 0.513689726425864, 0.410346867454723, 
    0.410346867454723, 0.521017635734831, 0.521017635734831, 0.728347555279989, 
    0.728347555279989, 0.564171470735483, 0.564171470735483, 0.410346867454723, 
    0.410346867454723, 1.39832890968095, 1.39832890968095, 1.14750942557791, 
    1.14750942557791, -0.183643101626147, -0.183643101626147, 0.0216458590558123, 
    0.0216458590558123, 0.000907819100087188, 0.000907819100087188, 
    0.640031070999603, 0.640031070999603, -0.183643101626147, -0.183643101626147, 
    3.41176917161596, 3.41176917161596, -0.255569849674672, -0.255569849674672, 
    -0.0062757233626728, -0.0062757233626728, 0.851911284141987, 
    0.851911284141987, 0.0216458590558122, 0.0216458590558122, -0.255569849674672, 
    -0.255569849674672, 3.76979060744093, 3.76979060744093, -0.149588398620923, 
    -0.149588398620923, 0.447489969192127, 0.447489969192127, 0.000907819100087192, 
    0.000907819100087192, -0.00627572336267279, -0.00627572336267279, 
    -0.149588398620923, -0.149588398620923, 0.363278630470307, 0.363278630470307, 
    0.433171437434735, 0.433171437434735, 0.640031070999604, 0.640031070999604, 
    0.851911284141986, 0.851911284141986, 0.447489969192127, 0.447489969192127, 
    0.433171437434735, 0.433171437434735, 1.56921183169663, 1.56921183169663
    ), dim = c(100L, 2L)), R = structure(c(1.20638214030796, 0.636783855257291, 
    0.171668344709015, 0.0880587756730742, 0.0494727932997941, 0.023466446363362, 
    0.00899706494922053, 0.00500477965039436, 0.75725696379412, 0.381690648762004, 
    0.171668344709015, 0.0880587756730742, 5.31975454981535, 2.50375298782224, 
    0.47219814892482, 0.194822077785761, 0.0532562697233614, 0.0286811744241045, 
    1.90934126580531, 0.865749651756116, 0.0494727932997941, 0.023466446363362, 
    0.47219814892482, 0.194822077785761, 4.92410443522873, 1.90423810512876, 
    0.0820529426112383, 0.0348072893174903, 1.66206052843889, 0.703713339497124, 
    0.00899706494922053, 0.00500477965039436, 0.0532562697233614, 
    0.0286811744241045, 0.0820529426112383, 0.0348072893174903, 0.719406002206497, 
    0.379215306627979, 0.548484486095152, 0.272729889189781, 0.75725696379412, 
    0.381690648762004, 1.90934126580531, 0.865749651756116, 1.66206052843889, 
    0.703713339497124, 0.548484486095152, 0.272729889189781, -0.601804605067262, 
    -0.170663841213831, 1.78901201618981, 0.791450839152809, 0.241348862680719, 
    0.128079214815883, 0.150213923833012, 0.0629172850722615, 0.00801658585605418, 
    0.00397266306670601, 1.0918922361035, 0.51298351486652, 0.241348862680719, 
    0.128079214815883, 4.7220221838332, 2.52596158517651, 0.496240545049418, 
    0.288721088789936, 0.0473603140716624, 0.0235186081701361, 1.60613353693086, 
    0.895081116846602, 0.150213923833012, 0.0629172850722615, 0.496240545049418, 
    0.288721088789936, 6.40673970392387, 3.02147969375636, 0.0241553693290422, 
    0.0131601505825947, 1.58396813123353, 0.825375973293336, 0.00801658585605418, 
    0.00397266306670601, 0.0473603140716624, 0.0235186081701361, 
    0.0241553693290422, 0.0131601505825947, 0.391249785993066, 0.167670905767361, 
    0.275808098626194, 0.139163156761993, 1.0918922361035, 0.51298351486652, 
    1.60613353693086, 0.895081116846602, 1.58396813123353, 0.825375973293337, 
    0.275808098626194, 0.139163156761993, -0.852400645250967, -0.570443244254977, 
    0.636783855257291, 0.636783855257291, 0.0880587756730742, 0.0880587756730742, 
    0.023466446363362, 0.023466446363362, 0.00500477965039436, 0.00500477965039436, 
    0.381690648762004, 0.381690648762004, 0.0880587756730742, 0.0880587756730742, 
    2.50375298782224, 2.50375298782224, 0.194822077785761, 0.194822077785761, 
    0.0286811744241045, 0.0286811744241045, 0.865749651756116, 0.865749651756116, 
    0.023466446363362, 0.023466446363362, 0.194822077785761, 0.194822077785761, 
    1.90423810512876, 1.90423810512876, 0.0348072893174903, 0.0348072893174903, 
    0.703713339497124, 0.703713339497124, 0.00500477965039436, 0.00500477965039436, 
    0.0286811744241045, 0.0286811744241045, 0.0348072893174903, 0.0348072893174903, 
    0.379215306627979, 0.379215306627979, 0.272729889189781, 0.272729889189781, 
    0.381690648762004, 0.381690648762004, 0.865749651756116, 0.865749651756116, 
    0.703713339497124, 0.703713339497124, 0.272729889189781, 0.272729889189781, 
    -0.170663841213831, -0.170663841213831, 0.791450839152809, 0.791450839152809, 
    0.128079214815883, 0.128079214815883, 0.0629172850722615, 0.0629172850722615, 
    0.00397266306670601, 0.00397266306670601, 0.51298351486652, 0.51298351486652, 
    0.128079214815883, 0.128079214815883, 2.52596158517651, 2.52596158517651, 
    0.288721088789936, 0.288721088789936, 0.0235186081701361, 0.0235186081701361, 
    0.895081116846602, 0.895081116846602, 0.0629172850722615, 0.0629172850722615, 
    0.288721088789936, 0.288721088789936, 3.02147969375636, 3.02147969375636, 
    0.0131601505825947, 0.0131601505825947, 0.825375973293336, 0.825375973293336, 
    0.00397266306670601, 0.00397266306670601, 0.0235186081701361, 
    0.0235186081701361, 0.0131601505825947, 0.0131601505825947, 0.167670905767361, 
    0.167670905767361, 0.139163156761993, 0.139163156761993, 0.51298351486652, 
    0.51298351486652, 0.895081116846602, 0.895081116846602, 0.825375973293337, 
    0.825375973293337, 0.139163156761993, 0.139163156761993, -0.570443244254977, 
    -0.570443244254977), dim = c(100L, 2L)))

# h_get_kr_comp works as expected on cs ungrouped mmrm

    list(P = structure(c(-12.6467669835108, -6.16330011417841, -12.3347599528103, 
    -6.25879150544113, -6.16330011417841, -6.16330011417841, -6.25879150544113, 
    -6.25879150544113), dim = c(4L, 2L)), Q = structure(c(25.2935339670216, 
    12.3266002283568, 24.6695199056206, 12.5175830108823, 24.6695199056206, 
    12.5175830108823, 27.7268601940156, 14.445200476913, 12.3266002283568, 
    12.3266002283568, 12.5175830108823, 12.5175830108823, 12.5175830108823, 
    12.5175830108823, 14.445200476913, 14.445200476913), dim = c(8L, 
    2L)), R = structure(c(25.2935339670216, 12.3266002283568, 24.6695199056206, 
    12.5175830108823, 24.6695199056206, 12.5175830108823, -0.50996481636375, 
    -0.258761700506712, 12.3266002283568, 12.3266002283568, 12.5175830108823, 
    12.5175830108823, 12.5175830108823, 12.5175830108823, -0.258761700506712, 
    -0.258761700506712), dim = c(8L, 2L)))

# h_get_kr_comp works as expected on cs grouped mmrm

    list(P = structure(c(-5.79040987039101, -2.69622359371823, -5.54006698106742, 
    -2.61470704194564, -6.85238176173803, -3.4693427118829, -6.78847471226715, 
    -3.65278553240862, -2.69622359371823, -2.69622359371823, -2.61470704194564, 
    -2.61470704194564, -3.4693427118829, -3.4693427118829, -3.65278553240862, 
    -3.65278553240862), dim = c(8L, 2L)), Q = structure(c(11.580819740782, 
    5.39244718743646, 11.0801339621348, 5.22941408389129, 11.0801339621348, 
    5.22941408389129, 12.2063377093331, 5.76659516650927, 13.7047635234761, 
    6.9386854237658, 13.5769494245343, 7.30557106481723, 13.5769494245343, 
    7.30557106481723, 15.5103171982089, 8.72656270524852, 5.39244718743646, 
    5.39244718743646, 5.22941408389129, 5.22941408389129, 5.22941408389129, 
    5.22941408389129, 5.76659516650927, 5.76659516650927, 6.9386854237658, 
    6.9386854237658, 7.30557106481723, 7.30557106481723, 7.30557106481723, 
    7.30557106481723, 8.72656270524852, 8.72656270524852), dim = c(16L, 
    2L)), R = structure(c(11.580819740782, 5.39244718743646, 11.0801339621348, 
    5.22941408389129, 11.0801339621348, 5.22941408389129, -0.30931020819444, 
    -0.145982996645259, 13.704763523476, 6.9386854237658, 13.5769494245343, 
    7.30557106481723, 13.5769494245343, 7.30557106481723, -0.204804177059731, 
    -0.110202330663289, 5.39244718743646, 5.39244718743646, 5.22941408389129, 
    5.22941408389129, 5.22941408389129, 5.22941408389129, -0.145982996645259, 
    -0.145982996645259, 6.9386854237658, 6.9386854237658, 7.30557106481723, 
    7.30557106481723, 7.30557106481723, 7.30557106481723, -0.110202330663289, 
    -0.110202330663289), dim = c(16L, 2L)))

# h_get_kr_comp works as expected on csh ungrouped mmrm

    list(P = structure(c(-2.03701262608935, -1.00052247776723, -7.05923690958296, 
    -3.57799336955767, -8.16203988746347, -3.63862848227887, -1.07833827077964, 
    -0.53193609434129, -11.9031880039272, -5.93495681527675, -1.00052247776723, 
    -1.00052247776723, -3.57799336955767, -3.57799336955767, -3.63862848227887, 
    -3.63862848227887, -0.53193609434129, -0.53193609434129, -5.93495681527675, 
    -5.93495681527675), dim = c(10L, 2L)), Q = structure(c(4.18044917735307, 
    2.05482294917959, -0.0407848324886912, -0.0209703608295715, -0.0396118677345096, 
    -0.0186152239479709, -0.0260272249511593, -0.0141924088675787, 
    5.07626172482924, 2.50457037319024, -0.0407848324886912, -0.0209703608295715, 
    14.2398180613698, 7.21810271039126, -0.0399716788726617, -0.0198730848403028, 
    -0.0405877308424876, -0.0212725256060485, 7.5299681999349, 3.83018107293988, 
    -0.0396118677345096, -0.0186152239479709, -0.0399716788726621, 
    -0.019873084840303, 16.4436665422894, 7.33574262607663, -0.0400032207552723, 
    -0.0199973527306222, 7.20794308632108, 3.49372081136179, -0.0260272249511593, 
    -0.0141924088675787, -0.0405877308424876, -0.0212725256060485, 
    -0.0400032207552724, -0.0199973527306222, 2.26329471810819, 1.11933447588683, 
    3.99220299676926, 2.04144137306159, 5.07626172482924, 2.50457037319024, 
    7.5299681999349, 3.83018107293988, 7.20794308632108, 3.49372081136179, 
    3.99220299676926, 2.04144137306159, 24.8523743719767, 12.6002411792785, 
    2.05482294917959, 2.05482294917959, -0.0209703608295715, -0.0209703608295715, 
    -0.0186152239479709, -0.0186152239479709, -0.0141924088675787, 
    -0.0141924088675787, 2.50457037319024, 2.50457037319024, -0.0209703608295715, 
    -0.0209703608295715, 7.21810271039126, 7.21810271039126, -0.0198730848403028, 
    -0.0198730848403028, -0.0212725256060485, -0.0212725256060485, 
    3.83018107293988, 3.83018107293988, -0.0186152239479709, -0.0186152239479709, 
    -0.019873084840303, -0.019873084840303, 7.33574262607663, 7.33574262607663, 
    -0.0199973527306222, -0.0199973527306222, 3.49372081136179, 3.49372081136179, 
    -0.0141924088675787, -0.0141924088675787, -0.0212725256060485, 
    -0.0212725256060485, -0.0199973527306222, -0.0199973527306222, 
    1.11933447588683, 1.11933447588683, 2.04144137306159, 2.04144137306159, 
    2.50457037319024, 2.50457037319024, 3.83018107293988, 3.83018107293988, 
    3.49372081136179, 3.49372081136179, 2.04144137306159, 2.04144137306159, 
    12.6002411792785, 12.6002411792785), dim = c(50L, 2L)), R = structure(c(3.62646015171492, 
    1.77994657150706, 0.194577174570883, 0.101524296412967, 0.187676877584633, 
    0.0848483696009194, 0.0653110483082618, 0.0347257180135227, 4.65890587412076, 
    2.30151224712676, 0.194577174570883, 0.101524296412967, 13.3526664842825, 
    6.76574174074506, 0.440383367043367, 0.219945863885872, 0.130846793269214, 
    0.0687748380714383, 7.97163203126489, 4.06223522202594, 0.187676877584633, 
    0.0848483696009194, 0.440383367043367, 0.219945863885872, 15.5713163648869, 
    6.9121308813966, 0.12470316541203, 0.0603318496743565, 7.83585196706486, 
    3.80076116719439, 0.0653110483082618, 0.0347257180135227, 0.130846793269214, 
    0.0687748380714383, 0.12470316541203, 0.0603318496743565, 1.83581553456977, 
    0.900039782923264, 3.33998613540399, 1.70540499420641, 4.65890587412076, 
    2.30151224712676, 7.97163203126489, 4.06223522202594, 7.83585196706486, 
    3.80076116719439, 3.33998613540399, 1.70540499420641, -3.36914441237685, 
    -1.67986312450835, 1.77994657150706, 1.77994657150706, 0.101524296412967, 
    0.101524296412967, 0.0848483696009194, 0.0848483696009194, 0.0347257180135227, 
    0.0347257180135227, 2.30151224712676, 2.30151224712676, 0.101524296412967, 
    0.101524296412967, 6.76574174074506, 6.76574174074506, 0.219945863885872, 
    0.219945863885872, 0.0687748380714383, 0.0687748380714383, 4.06223522202594, 
    4.06223522202594, 0.0848483696009194, 0.0848483696009194, 0.219945863885872, 
    0.219945863885872, 6.9121308813966, 6.9121308813966, 0.0603318496743565, 
    0.0603318496743565, 3.80076116719439, 3.80076116719439, 0.0347257180135227, 
    0.0347257180135227, 0.0687748380714383, 0.0687748380714383, 0.0603318496743565, 
    0.0603318496743565, 0.900039782923264, 0.900039782923264, 1.70540499420641, 
    1.70540499420641, 2.30151224712676, 2.30151224712676, 4.06223522202594, 
    4.06223522202594, 3.80076116719439, 3.80076116719439, 1.70540499420641, 
    1.70540499420641, -1.67986312450835, -1.67986312450835), dim = c(50L, 
    2L)))

# h_get_kr_comp works as expected on csh grouped mmrm

    list(P = structure(c(-0.808423004039597, -0.42303528589623, -3.51395286784669, 
    -1.62808167702558, -3.66900095545319, -1.44462727308772, -0.561212736828637, 
    -0.275003207847231, -5.43263017639977, -2.46445513379045, -1.25145829463279, 
    -0.581848153274448, -3.53389060408957, -1.9242252079518, -4.58448065520947, 
    -2.24065885624875, -0.533419159079337, -0.265464016029177, -6.58726486945041, 
    -3.52120809211001, -0.42303528589623, -0.42303528589623, -1.62808167702558, 
    -1.62808167702558, -1.44462727308772, -1.44462727308772, -0.275003207847231, 
    -0.275003207847231, -2.46445513379045, -2.46445513379045, -0.581848153274448, 
    -0.581848153274448, -1.9242252079518, -1.9242252079518, -2.24065885624875, 
    -2.24065885624875, -0.265464016029177, -0.265464016029177, -3.52120809211001, 
    -3.52120809211001), dim = c(20L, 2L)), Q = structure(c(1.66842157990971, 
    0.871133663761099, -0.0209008142650711, -0.0100305523961556, 
    -0.0178269921929883, -0.00793341607742487, -0.0128477653724519, 
    -0.0070991234950584, 2.06949458234312, 1.02875752677384, -0.0209008142650711, 
    -0.0100305523961556, 7.0924352984277, 3.28527781088797, -0.0211513192481603, 
    -0.00876052658648782, -0.0224774292210814, -0.0103233778541602, 
    3.58347745264035, 1.60158544044135, -0.0178269921929883, -0.00793341607742488, 
    -0.0211513192481604, -0.00876052658648785, 7.39755207694861, 
    2.91451790593945, -0.0205718546010929, -0.00856941710009696, 
    3.2619138037878, 1.37406680318752, -0.0128477653724519, -0.00709912349505842, 
    -0.0224774292210815, -0.0103233778541603, -0.0205718546010929, 
    -0.00856941710009696, 1.1783225228519, 0.575998334143778, 1.95037451402827, 
    0.924500497178181, 2.06949458234312, 1.02875752677384, 3.58347745264035, 
    1.60158544044135, 3.2619138037878, 1.37406680318752, 1.95037451402827, 
    0.924500497178181, 11.2859622756427, 5.13653371726492, 2.55645673949381, 
    1.1915137370751, -0.0195671123949259, -0.0106330610200356, -0.0210355375405398, 
    -0.0102002681095835, -0.0129375002927734, -0.00698410139658193, 
    3.06445491567787, 1.50665726039307, -0.0195671123949259, -0.0106330610200356, 
    7.12411361043572, 3.88037443234093, -0.018782332161554, -0.0107604586347984, 
    -0.0179829577000994, -0.0105304967825001, 3.9923549887729, 2.24811368178813, 
    -0.0210355375405397, -0.0102002681095835, -0.018782332161554, 
    -0.0107604586347984, 9.22808909653114, 4.51328389050564, -0.0193099164101076, 
    -0.0110054512637606, 4.04214758135205, 2.15907062883514, -0.0129375002927734, 
    -0.00698410139658194, -0.0179829577000994, -0.0105304967825001, 
    -0.0193099164101075, -0.0110054512637606, 1.11706869256165, 0.559448081501197, 
    2.075572253098, 1.12857461320368, 3.06445491567787, 1.50665726039307, 
    3.9923549887729, 2.24811368178813, 4.04214758135205, 2.15907062883514, 
    2.075572253098, 1.12857461320368, 13.8603912746329, 7.62661624062883, 
    0.871133663761099, 0.871133663761099, -0.0100305523961556, -0.0100305523961556, 
    -0.00793341607742487, -0.00793341607742487, -0.0070991234950584, 
    -0.0070991234950584, 1.02875752677384, 1.02875752677384, -0.0100305523961556, 
    -0.0100305523961556, 3.28527781088797, 3.28527781088797, -0.00876052658648782, 
    -0.00876052658648782, -0.0103233778541602, -0.0103233778541602, 
    1.60158544044135, 1.60158544044135, -0.00793341607742488, -0.00793341607742488, 
    -0.00876052658648785, -0.00876052658648785, 2.91451790593945, 
    2.91451790593945, -0.00856941710009696, -0.00856941710009696, 
    1.37406680318752, 1.37406680318752, -0.00709912349505842, -0.00709912349505842, 
    -0.0103233778541603, -0.0103233778541603, -0.00856941710009696, 
    -0.00856941710009696, 0.575998334143778, 0.575998334143778, 0.924500497178181, 
    0.924500497178181, 1.02875752677384, 1.02875752677384, 1.60158544044135, 
    1.60158544044135, 1.37406680318752, 1.37406680318752, 0.924500497178181, 
    0.924500497178181, 5.13653371726492, 5.13653371726492, 1.1915137370751, 
    1.1915137370751, -0.0106330610200356, -0.0106330610200356, -0.0102002681095835, 
    -0.0102002681095835, -0.00698410139658193, -0.00698410139658193, 
    1.50665726039307, 1.50665726039307, -0.0106330610200356, -0.0106330610200356, 
    3.88037443234093, 3.88037443234093, -0.0107604586347984, -0.0107604586347984, 
    -0.0105304967825001, -0.0105304967825001, 2.24811368178813, 2.24811368178813, 
    -0.0102002681095835, -0.0102002681095835, -0.0107604586347984, 
    -0.0107604586347984, 4.51328389050564, 4.51328389050564, -0.0110054512637606, 
    -0.0110054512637606, 2.15907062883514, 2.15907062883514, -0.00698410139658194, 
    -0.00698410139658194, -0.0105304967825001, -0.0105304967825001, 
    -0.0110054512637606, -0.0110054512637606, 0.559448081501197, 
    0.559448081501197, 1.12857461320368, 1.12857461320368, 1.50665726039307, 
    1.50665726039307, 2.24811368178813, 2.24811368178813, 2.15907062883514, 
    2.15907062883514, 1.12857461320368, 1.12857461320368, 7.62661624062883, 
    7.62661624062883), dim = c(100L, 2L)), R = structure(c(1.43013019887986, 
    0.75250367968948, 0.0869588595738112, 0.0444342812523745, 0.0668747805230002, 
    0.0305368954583644, 0.0328821691025214, 0.0185957153922416, 1.84686708407433, 
    0.925500705725709, 0.0869588595738112, 0.0444342812523745, 6.64005555201499, 
    3.08192390073833, 0.22998071825887, 0.0950020182115941, 0.0709106058457135, 
    0.0348031538488619, 3.83635290905174, 1.72345937095788, 0.0668747805230002, 
    0.0305368954583644, 0.22998071825887, 0.0950020182115941, 6.97952185018945, 
    2.73793455592097, 0.0616245619350529, 0.0257810765845161, 3.54584342522518, 
    1.49675547218975, 0.0328821691025214, 0.0185957153922416, 0.0709106058457135, 
    0.0348031538488619, 0.0616245619350529, 0.0257810765845161, 0.957008136773988, 
    0.470826469868843, 1.63619693444828, 0.783194718707559, 1.84686708407433, 
    0.925500705725709, 3.83635290905174, 1.72345937095788, 3.54584342522518, 
    1.49675547218975, 1.63619693444828, 0.783194718707559, -1.61516767587601, 
    -0.732703707319704, 2.24407478047685, 1.03665537792168, 0.105040994363005, 
    0.0559337749841914, 0.121433656100556, 0.0549643542120603, 0.0323671583251628, 
    0.0161427994309649, 2.87144405597379, 1.40931992817964, 0.105040994363005, 
    0.0559337749841914, 6.6913492633272, 3.63649020985092, 0.210476580668222, 
    0.122000440002419, 0.0609143698207194, 0.0340259910660731, 4.17592225762125, 
    2.35136617465746, 0.121433656100556, 0.0549643542120603, 0.210476580668222, 
    0.122000440002419, 8.77348520041339, 4.27000651197236, 0.0635658732367762, 
    0.0343464063106608, 4.38718741253271, 2.3441664758411, 0.0323671583251628, 
    0.0161427994309649, 0.0609143698207194, 0.0340259910660731, 0.0635658732367762, 
    0.0343464063106608, 0.909990916776014, 0.446412835250656, 1.73997601277306, 
    0.937563605541819, 2.87144405597379, 1.40931992817964, 4.17592225762125, 
    2.35136617465746, 4.38718741253272, 2.3441664758411, 1.73997601277306, 
    0.937563605541819, -1.75324099255011, -0.937191154862655, 0.75250367968948, 
    0.75250367968948, 0.0444342812523745, 0.0444342812523745, 0.0305368954583644, 
    0.0305368954583644, 0.0185957153922416, 0.0185957153922416, 0.925500705725709, 
    0.925500705725709, 0.0444342812523745, 0.0444342812523745, 3.08192390073833, 
    3.08192390073833, 0.0950020182115941, 0.0950020182115941, 0.0348031538488619, 
    0.0348031538488619, 1.72345937095788, 1.72345937095788, 0.0305368954583644, 
    0.0305368954583644, 0.0950020182115941, 0.0950020182115941, 2.73793455592097, 
    2.73793455592097, 0.0257810765845161, 0.0257810765845161, 1.49675547218975, 
    1.49675547218975, 0.0185957153922416, 0.0185957153922416, 0.0348031538488619, 
    0.0348031538488619, 0.0257810765845161, 0.0257810765845161, 0.470826469868843, 
    0.470826469868843, 0.783194718707559, 0.783194718707559, 0.925500705725709, 
    0.925500705725709, 1.72345937095788, 1.72345937095788, 1.49675547218975, 
    1.49675547218975, 0.783194718707559, 0.783194718707559, -0.732703707319704, 
    -0.732703707319704, 1.03665537792168, 1.03665537792168, 0.0559337749841914, 
    0.0559337749841914, 0.0549643542120603, 0.0549643542120603, 0.0161427994309649, 
    0.0161427994309649, 1.40931992817964, 1.40931992817964, 0.0559337749841914, 
    0.0559337749841914, 3.63649020985092, 3.63649020985092, 0.122000440002419, 
    0.122000440002419, 0.0340259910660731, 0.0340259910660731, 2.35136617465746, 
    2.35136617465746, 0.0549643542120603, 0.0549643542120603, 0.122000440002419, 
    0.122000440002419, 4.27000651197236, 4.27000651197236, 0.0343464063106608, 
    0.0343464063106608, 2.3441664758411, 2.3441664758411, 0.0161427994309649, 
    0.0161427994309649, 0.0340259910660731, 0.0340259910660731, 0.0343464063106608, 
    0.0343464063106608, 0.446412835250656, 0.446412835250656, 0.937563605541819, 
    0.937563605541819, 1.40931992817964, 1.40931992817964, 2.35136617465746, 
    2.35136617465746, 2.3441664758411, 2.3441664758411, 0.937563605541819, 
    0.937563605541819, -0.937191154862655, -0.937191154862655), dim = c(100L, 
    2L)))

# h_get_kr_comp works as expected on toep ungrouped mmrm

    list(P = structure(c(-10.4649919809507, -5.09980194330786, -1.56048137311846, 
    -0.808812406678307, -2.48927157235529, -1.16791552528374, -2.77399300774652, 
    -1.49122481144767, -5.09980194330786, -5.09980194330786, -0.808812406678307, 
    -0.808812406678307, -1.16791552528374, -1.16791552528374, -1.49122481144767, 
    -1.49122481144767), dim = c(8L, 2L)), Q = structure(c(20.9299839619014, 
    10.1996038866157, 3.12096274623692, 1.61762481335661, 4.97854314471058, 
    2.33583105056747, 5.54798601549304, 2.98244962289535, 3.12096274623691, 
    1.61762481335661, 2.39381101566067, 1.14080841847656, 0.788915646491231, 
    0.526403375819015, -0.182914095108906, -0.1061023225055, 4.97854314471058, 
    2.33583105056747, 0.788915646491231, 0.526403375819015, 3.4876901449821, 
    1.62422435316422, -0.225379504120805, -0.115180771384814, 5.54798601549304, 
    2.98244962289535, -0.182914095108907, -0.1061023225055, -0.225379504120805, 
    -0.115180771384813, 4.00434285654571, 2.15522666817699, 10.1996038866157, 
    10.1996038866157, 1.61762481335661, 1.61762481335661, 2.33583105056747, 
    2.33583105056747, 2.98244962289535, 2.98244962289535, 1.61762481335661, 
    1.61762481335661, 1.14080841847656, 1.14080841847656, 0.526403375819015, 
    0.526403375819015, -0.1061023225055, -0.1061023225055, 2.33583105056747, 
    2.33583105056747, 0.526403375819015, 0.526403375819015, 1.62422435316422, 
    1.62422435316422, -0.115180771384814, -0.115180771384814, 2.98244962289535, 
    2.98244962289535, -0.1061023225055, -0.1061023225055, -0.115180771384813, 
    -0.115180771384813, 2.15522666817699, 2.15522666817699), dim = c(32L, 
    2L)), R = structure(c(20.9299839619014, 10.1996038866157, 3.12096274623692, 
    1.61762481335661, 4.97854314471058, 2.33583105056747, 5.54798601549304, 
    2.98244962289535, 3.12096274623692, 1.61762481335661, -1.8138633962374, 
    -0.940142730422131, 1.70194758263057e-15, 9.56685996663469e-16, 
    -1.56803271802754e-15, -8.01565031335252e-16, 4.97854314471058, 
    2.33583105056747, -8.57643629068556e-16, -2.99012038864644e-16, 
    -0.172174431287057, -0.08078073665815, -2.91009233818094e-16, 
    -1.553651241983e-16, 5.54798601549304, 2.98244962289535, -5.9467830854063e-16, 
    -3.023936195487e-16, 1.31769195754743e-15, 6.68990398368701e-16, 
    2.13528218072949, 1.14787087006128, 10.1996038866157, 10.1996038866157, 
    1.61762481335661, 1.61762481335661, 2.33583105056747, 2.33583105056747, 
    2.98244962289535, 2.98244962289535, 1.61762481335661, 1.61762481335661, 
    -0.940142730422131, -0.940142730422131, 9.56685996663469e-16, 
    9.56685996663469e-16, -8.01565031335252e-16, -8.01565031335252e-16, 
    2.33583105056747, 2.33583105056747, -2.99012038864644e-16, -2.99012038864644e-16, 
    -0.08078073665815, -0.08078073665815, -1.553651241983e-16, -1.553651241983e-16, 
    2.98244962289535, 2.98244962289535, -3.023936195487e-16, -3.023936195487e-16, 
    6.68990398368701e-16, 6.68990398368701e-16, 1.14787087006128, 
    1.14787087006128), dim = c(32L, 2L)))

# h_get_kr_comp works as expected on toep grouped mmrm

    list(P = structure(c(-4.77897465405157, -2.29386935385607, -0.793072415826694, 
    -0.374727333344531, -1.03995722991535, -0.478399236048439, -1.28519417397142, 
    -0.718022024194972, -5.70169720180231, -2.80911672522844, -0.767745383815121, 
    -0.425567819567383, -1.4568430061353, -0.694947215857784, -1.49112838670037, 
    -0.772726547700233, -2.29386935385607, -2.29386935385607, -0.374727333344531, 
    -0.374727333344531, -0.478399236048439, -0.478399236048439, -0.718022024194972, 
    -0.718022024194972, -2.80911672522844, -2.80911672522844, -0.425567819567383, 
    -0.425567819567383, -0.694947215857784, -0.694947215857784, -0.772726547700233, 
    -0.772726547700233), dim = c(16L, 2L)), Q = structure(c(9.55794930810314, 
    4.58773870771214, 1.58614483165339, 0.749454666689062, 2.07991445983069, 
    0.956798472096877, 2.57038834794284, 1.43604404838994, 1.58614483165339, 
    0.749454666689062, 1.08479590239467, 0.468142315398684, 0.390107557765571, 
    0.250423234368456, -0.0513606761411175, -0.0232584601838305, 
    2.07991445983069, 0.956798472096877, 0.39010755776557, 0.250423234368456, 
    1.37637431223237, 0.644632813061845, -0.053205257900069, -0.0358651307463664, 
    2.57038834794284, 1.43604404838994, -0.0513606761411175, -0.0232584601838305, 
    -0.0532052579000692, -0.0358651307463664, 1.79317462933322, 1.00314909048537, 
    11.4033944036046, 5.61823345045688, 1.53549076763024, 0.851135639134766, 
    2.9136860122706, 1.38989443171557, 2.98225677340074, 1.54545309540046, 
    1.53549076763024, 0.851135639134766, 1.33186315281313, 0.685827364006526, 
    0.395124600696467, 0.261628037489687, -0.138182513747744, -0.0856897842546906, 
    2.9136860122706, 1.38989443171557, 0.395124600696467, 0.261628037489687, 
    2.14851764031506, 1.00163097334135, -0.184710056369491, -0.0833486805934527, 
    2.98225677340074, 1.54545309540046, -0.138182513747744, -0.0856897842546906, 
    -0.184710056369491, -0.0833486805934525, 2.22076205079775, 1.15214113793894, 
    4.58773870771214, 4.58773870771214, 0.749454666689062, 0.749454666689062, 
    0.956798472096877, 0.956798472096877, 1.43604404838994, 1.43604404838994, 
    0.749454666689062, 0.749454666689062, 0.468142315398684, 0.468142315398684, 
    0.250423234368456, 0.250423234368456, -0.0232584601838305, -0.0232584601838305, 
    0.956798472096877, 0.956798472096877, 0.250423234368456, 0.250423234368456, 
    0.644632813061845, 0.644632813061845, -0.0358651307463664, -0.0358651307463664, 
    1.43604404838994, 1.43604404838994, -0.0232584601838305, -0.0232584601838305, 
    -0.0358651307463664, -0.0358651307463664, 1.00314909048537, 1.00314909048537, 
    5.61823345045688, 5.61823345045688, 0.851135639134766, 0.851135639134766, 
    1.38989443171557, 1.38989443171557, 1.54545309540046, 1.54545309540046, 
    0.851135639134766, 0.851135639134766, 0.685827364006526, 0.685827364006526, 
    0.261628037489687, 0.261628037489687, -0.0856897842546906, -0.0856897842546906, 
    1.38989443171557, 1.38989443171557, 0.261628037489687, 0.261628037489687, 
    1.00163097334135, 1.00163097334135, -0.0833486805934527, -0.0833486805934527, 
    1.54545309540046, 1.54545309540046, -0.0856897842546906, -0.0856897842546906, 
    -0.0833486805934525, -0.0833486805934525, 1.15214113793894, 1.15214113793894
    ), dim = c(64L, 2L)), R = structure(c(9.55794930810314, 4.58773870771214, 
    1.58614483165339, 0.749454666689062, 2.07991445983069, 0.956798472096877, 
    2.57038834794284, 1.43604404838994, 1.58614483165339, 0.749454666689062, 
    -0.883034458750025, -0.41723446859995, -1.18015865112958e-16, 
    -4.69890136130028e-17, -4.17217435446425e-16, -2.10414226674813e-16, 
    2.07991445983069, 0.956798472096877, 8.01364931809665e-16, 4.01139655344015e-16, 
    -0.13043312001117, -0.0600016069640068, 5.72259535084501e-17, 
    2.53490057568381e-17, 2.57038834794284, 1.43604404838994, -9.5063694619071e-17, 
    -4.75324707811443e-17, 3.60000567587197e-16, 1.82529291627502e-16, 
    0.91271179187259, 0.509920743168223, 11.4033944036046, 5.61823345045688, 
    1.53549076763024, 0.851135639134766, 2.9136860122706, 1.38989443171557, 
    2.98225677340074, 1.54545309540047, 1.53549076763024, 0.851135639134766, 
    -0.922181347520019, -0.511172992483027, 4.70282754075449e-16, 
    2.3568317251726e-16, -3.20161456300972e-17, -2.45534480440682e-17, 
    2.9136860122706, 1.38989443171557, 6.76534931017288e-17, 3.7224724001313e-17, 
    -0.0323250012977548, -0.0154197600976008, 4.46116797140687e-16, 
    2.30121641236407e-16, 2.98225677340074, 1.54545309540047, -6.65176478118635e-16, 
    -3.50383008868953e-16, 1.87043535347851e-16, 9.57079195884779e-17, 
    1.22400228299058, 0.634297533967185, 4.58773870771214, 4.58773870771214, 
    0.749454666689062, 0.749454666689062, 0.956798472096877, 0.956798472096877, 
    1.43604404838994, 1.43604404838994, 0.749454666689062, 0.749454666689062, 
    -0.41723446859995, -0.41723446859995, -4.69890136130028e-17, 
    -4.69890136130028e-17, -2.10414226674813e-16, -2.10414226674813e-16, 
    0.956798472096877, 0.956798472096877, 4.01139655344015e-16, 4.01139655344015e-16, 
    -0.0600016069640068, -0.0600016069640068, 2.53490057568381e-17, 
    2.53490057568381e-17, 1.43604404838994, 1.43604404838994, -4.75324707811443e-17, 
    -4.75324707811443e-17, 1.82529291627502e-16, 1.82529291627502e-16, 
    0.509920743168223, 0.509920743168223, 5.61823345045688, 5.61823345045688, 
    0.851135639134766, 0.851135639134766, 1.38989443171557, 1.38989443171557, 
    1.54545309540047, 1.54545309540047, 0.851135639134766, 0.851135639134766, 
    -0.511172992483027, -0.511172992483027, 2.3568317251726e-16, 
    2.3568317251726e-16, -2.45534480440682e-17, -2.45534480440682e-17, 
    1.38989443171557, 1.38989443171557, 3.7224724001313e-17, 3.7224724001313e-17, 
    -0.0154197600976008, -0.0154197600976008, 2.30121641236407e-16, 
    2.30121641236407e-16, 1.54545309540047, 1.54545309540047, -3.50383008868953e-16, 
    -3.50383008868953e-16, 9.57079195884779e-17, 9.57079195884779e-17, 
    0.634297533967185, 0.634297533967185), dim = c(64L, 2L)))

# h_get_kr_comp works as expected on toeph ungrouped mmrm

    list(P = structure(c(-3.00698932531873, -1.48201163181958, -5.47937172723774, 
    -2.77529910511584, -5.73724157545812, -2.4757324905986, -1.61910177737906, 
    -0.837469428192996, -4.15106334018347, -2.1186017870264, -3.98050322412734, 
    -1.93591221859969, -1.56116019632859, -0.834862299843971, -1.48201163181958, 
    -1.48201163181958, -2.77529910511584, -2.77529910511584, -2.4757324905986, 
    -2.4757324905986, -0.837469428192996, -0.837469428192996, -2.1186017870264, 
    -2.1186017870264, -1.93591221859969, -1.93591221859969, -0.834862299843971, 
    -0.834862299843971), dim = c(14L, 2L)), Q = structure(c(6.5311283002833, 
    3.2352857680526, -0.593459512463005, -0.303880262345611, 0.0747735253456771, 
    0.0303614287595468, 0.00153633747148627, 0.00225632917262039, 
    1.39989587260588, 0.753568251092083, 2.64530161508997, 1.20054151118485, 
    2.17884439266233, 1.16943865926876, -0.593459512463005, -0.303880262345611, 
    12.6457117513049, 6.40636748061512, -1.10439620741595, -0.549861692887666, 
    0.0108874230494882, -0.00202731515015272, 3.69205805056602, 1.86107700790178, 
    1.2116186156243, 0.686439224339102, -0.467094736153213, -0.256558174056112, 
    0.074773525345677, 0.0303614287595467, -1.10439620741595, -0.549861692887668, 
    12.8689033339538, 5.64739917654653, -0.364797500967244, -0.176433931221216, 
    2.07362105403505, 1.04741584070462, 2.16249417059151, 0.960761488085782, 
    -0.44968915739307, -0.238727047796987, 0.00153633747148552, 0.00225632917262, 
    0.0108874230494881, -0.00202731515015283, -0.364797500967244, 
    -0.176433931221216, 3.59057729520438, 1.85114377358474, 1.13655170316, 
    0.575142474354321, 1.94159204694891, 1.02408221358965, 1.86025989354113, 
    0.995571162272287, 1.39989587260588, 0.753568251092084, 3.69205805056602, 
    1.86107700790178, 2.07362105403504, 1.04741584070462, 1.13655170316, 
    0.575142474354321, 3.70516591603265, 1.87702614002169, 1.69393674880182, 
    0.920771467307149, 0.990011691676252, 0.522715249330153, 2.64530161508997, 
    1.20054151118485, 1.2116186156243, 0.686439224339103, 2.1624941705915, 
    0.960761488085782, 1.94159204694891, 1.02408221358965, 1.69393674880182, 
    0.920771467307149, 4.74394647596858, 2.2300931246091, 1.20411295961672, 
    0.669440520940178, 2.17884439266233, 1.16943865926876, -0.467094736153214, 
    -0.256558174056113, -0.44968915739307, -0.238727047796988, 1.86025989354113, 
    0.995571162272287, 0.990011691676252, 0.522715249330152, 1.20411295961672, 
    0.669440520940178, 2.32574872139835, 1.2400095101842, 3.2352857680526, 
    3.2352857680526, -0.303880262345611, -0.303880262345611, 0.0303614287595468, 
    0.0303614287595468, 0.00225632917262039, 0.00225632917262039, 
    0.753568251092083, 0.753568251092083, 1.20054151118485, 1.20054151118485, 
    1.16943865926876, 1.16943865926876, -0.303880262345611, -0.303880262345611, 
    6.40636748061512, 6.40636748061512, -0.549861692887666, -0.549861692887666, 
    -0.00202731515015272, -0.00202731515015272, 1.86107700790178, 
    1.86107700790178, 0.686439224339102, 0.686439224339102, -0.256558174056112, 
    -0.256558174056112, 0.0303614287595467, 0.0303614287595467, -0.549861692887668, 
    -0.549861692887668, 5.64739917654653, 5.64739917654653, -0.176433931221216, 
    -0.176433931221216, 1.04741584070462, 1.04741584070462, 0.960761488085782, 
    0.960761488085782, -0.238727047796987, -0.238727047796987, 0.00225632917262, 
    0.00225632917262, -0.00202731515015283, -0.00202731515015283, 
    -0.176433931221216, -0.176433931221216, 1.85114377358474, 1.85114377358474, 
    0.575142474354321, 0.575142474354321, 1.02408221358965, 1.02408221358965, 
    0.995571162272287, 0.995571162272287, 0.753568251092084, 0.753568251092084, 
    1.86107700790178, 1.86107700790178, 1.04741584070462, 1.04741584070462, 
    0.575142474354321, 0.575142474354321, 1.87702614002169, 1.87702614002169, 
    0.920771467307149, 0.920771467307149, 0.522715249330153, 0.522715249330153, 
    1.20054151118485, 1.20054151118485, 0.686439224339103, 0.686439224339103, 
    0.960761488085782, 0.960761488085782, 1.02408221358965, 1.02408221358965, 
    0.920771467307149, 0.920771467307149, 2.2300931246091, 2.2300931246091, 
    0.669440520940178, 0.669440520940178, 1.16943865926876, 1.16943865926876, 
    -0.256558174056113, -0.256558174056113, -0.238727047796988, -0.238727047796988, 
    0.995571162272287, 0.995571162272287, 0.522715249330152, 0.522715249330152, 
    0.669440520940178, 0.669440520940178, 1.2400095101842, 1.2400095101842
    ), dim = c(98L, 2L)), R = structure(c(6.08978788364807, 3.0055211932777, 
    0.701691778263758, 0.371244204757312, -0.0341047346347422, -0.0151957924699192, 
    -0.743396276639627, -0.397546341925934, 1.43986688796008, 0.761790652727582, 
    2.19977657348443, 0.980138055576815, 1.56116019632859, 0.834862299843971, 
    0.701691778263758, 0.371244204757312, 9.4073869266804, 4.76044091365443, 
    0.877272648719455, 0.433731153160151, -0.0276078991881398, -0.0148180613402049, 
    3.24002456079143, 1.65180411028486, 1.78072665064292, 0.955774163022878, 
    8.29107858922171e-17, 4.45009271709909e-17, -0.0341047346347422, 
    -0.0151957924699192, 0.877272648719455, 0.433731153160151, 10.1873377924412, 
    4.30544463934581, 0.443977444390381, 0.22748498116115, 2.7111964522234, 
    1.35681113429882, 2.19977657348443, 0.980138055576815, 2.72055851228794e-17, 
    1.39395865653808e-17, -0.743396276639627, -0.397546341925934, 
    -0.0276078991881398, -0.0148180613402049, 0.443977444390381, 
    0.22748498116115, 3.56523028619551, 1.85981827849098, 0.911038779392043, 
    0.46679767674154, 1.78072665064292, 0.955774163022878, 1.56116019632859, 
    0.834862299843971, 1.43986688796008, 0.761790652727582, 3.24002456079143, 
    1.65180411028486, 2.7111964522234, 1.35681113429882, 0.911038779392043, 
    0.46679767674154, -4.41301015049721, -2.25229306922496, 8.95773947626632e-16, 
    3.7053983962677e-16, -4.07584933439769e-18, -8.03763808739569e-18, 
    2.19977657348443, 0.980138055576815, 1.78072665064292, 0.955774163022878, 
    2.19977657348443, 0.980138055576815, 1.78072665064292, 0.955774163022878, 
    1.10697118265991e-15, 5.76654034714764e-16, 0.185048974723699, 
    0.0899983120313873, -2.17644680983035e-16, -1.11516692523047e-16, 
    1.56116019632859, 0.834862299843971, 8.29107858922171e-17, 4.45009271709909e-17, 
    2.72055851228794e-17, 1.39395865653808e-17, 1.56116019632859, 
    0.834862299843971, -2.7723197332311e-16, -1.50124535553202e-16, 
    4.93001350491584e-16, 2.58985653612848e-16, 1.6386708182908, 
    0.876312688001377, 3.0055211932777, 3.0055211932777, 0.371244204757312, 
    0.371244204757312, -0.0151957924699192, -0.0151957924699192, 
    -0.397546341925934, -0.397546341925934, 0.761790652727582, 0.761790652727582, 
    0.980138055576815, 0.980138055576815, 0.834862299843971, 0.834862299843971, 
    0.371244204757312, 0.371244204757312, 4.76044091365443, 4.76044091365443, 
    0.433731153160151, 0.433731153160151, -0.0148180613402049, -0.0148180613402049, 
    1.65180411028486, 1.65180411028486, 0.955774163022878, 0.955774163022878, 
    4.45009271709909e-17, 4.45009271709909e-17, -0.0151957924699192, 
    -0.0151957924699192, 0.433731153160151, 0.433731153160151, 4.30544463934581, 
    4.30544463934581, 0.22748498116115, 0.22748498116115, 1.35681113429882, 
    1.35681113429882, 0.980138055576815, 0.980138055576815, 1.39395865653808e-17, 
    1.39395865653808e-17, -0.397546341925934, -0.397546341925934, 
    -0.0148180613402049, -0.0148180613402049, 0.22748498116115, 0.22748498116115, 
    1.85981827849098, 1.85981827849098, 0.46679767674154, 0.46679767674154, 
    0.955774163022878, 0.955774163022878, 0.834862299843971, 0.834862299843971, 
    0.761790652727582, 0.761790652727582, 1.65180411028486, 1.65180411028486, 
    1.35681113429882, 1.35681113429882, 0.46679767674154, 0.46679767674154, 
    -2.25229306922496, -2.25229306922496, 3.7053983962677e-16, 3.7053983962677e-16, 
    -8.03763808739569e-18, -8.03763808739569e-18, 0.980138055576815, 
    0.980138055576815, 0.955774163022878, 0.955774163022878, 0.980138055576815, 
    0.980138055576815, 0.955774163022878, 0.955774163022878, 5.76654034714764e-16, 
    5.76654034714764e-16, 0.0899983120313873, 0.0899983120313873, 
    -1.11516692523047e-16, -1.11516692523047e-16, 0.834862299843971, 
    0.834862299843971, 4.45009271709909e-17, 4.45009271709909e-17, 
    1.39395865653808e-17, 1.39395865653808e-17, 0.834862299843971, 
    0.834862299843971, -1.50124535553202e-16, -1.50124535553202e-16, 
    2.58985653612848e-16, 2.58985653612848e-16, 0.876312688001377, 
    0.876312688001377), dim = c(98L, 2L)))

# h_get_kr_comp works as expected on toeph grouped mmrm

    list(P = structure(c(-1.16534642663848, -0.617730004029541, -2.93605237882595, 
    -1.36410532618533, -2.57022935505834, -0.993242967635988, -0.83929348605521, 
    -0.44262273305075, -2.25062910519018, -1.0347587187416, -1.64724939689702, 
    -0.838800243654627, -0.747425794514912, -0.417975196874121, -1.93149897196878, 
    -0.899922134708449, -2.35291168800038, -1.27077247596784, -3.46603842793893, 
    -1.62945911981695, -0.768920942343845, -0.385714041082597, -1.8105140408284, 
    -0.999314558850525, -2.48441219400465, -1.15819705558246, -0.793022313932502, 
    -0.406728560149045, -0.617730004029541, -0.617730004029541, -1.36410532618533, 
    -1.36410532618533, -0.993242967635988, -0.993242967635988, -0.44262273305075, 
    -0.44262273305075, -1.0347587187416, -1.0347587187416, -0.838800243654627, 
    -0.838800243654627, -0.417975196874121, -0.417975196874121, -0.899922134708449, 
    -0.899922134708449, -1.27077247596784, -1.27077247596784, -1.62945911981695, 
    -1.62945911981695, -0.385714041082597, -0.385714041082597, -0.999314558850525, 
    -0.999314558850525, -1.15819705558246, -1.15819705558246, -0.406728560149045, 
    -0.406728560149045), dim = c(28L, 2L)), Q = structure(c(2.52512805609827, 
    1.33631285988805, -0.194510066409994, -0.0938254669145597, 0.00770015020974288, 
    -0.00271950038154752, -0.00762528662106141, -0.00430788453286216, 
    0.784062874462438, 0.420801507866724, 0.920927746341893, 0.431074838052149, 
    0.987819891321598, 0.554387944157006, -0.194510066409994, -0.0938254669145597, 
    6.46573578461373, 2.99678167162854, -0.384835984555503, -0.157660720026383, 
    -0.0142849759963301, -0.0170848323169338, 1.76403010355829, 0.793317572908637, 
    0.767394976381576, 0.428923217829994, -0.224847064926918, -0.129328665451576, 
    0.00770015020974275, -0.00271950038154758, -0.384835984555503, 
    -0.157660720026383, 5.66074021143961, 2.20385805096424, -0.143145666977163, 
    -0.056991895284335, 1.40076448652414, 0.594413458279819, 0.545042151357083, 
    0.285930137356766, -0.141496868396007, -0.0778587722406688, -0.00762528662106118, 
    -0.00430788453286202, -0.0142849759963302, -0.0170848323169338, 
    -0.143145666977163, -0.056991895284335, 1.84364290170498, 0.963630078235631, 
    0.552400745835497, 0.260984898428013, 1.06113391971349, 0.531672294070345, 
    0.873375631031152, 0.488749887283482, 0.784062874462438, 0.420801507866724, 
    1.76403010355829, 0.793317572908637, 1.40076448652414, 0.594413458279819, 
    0.552400745835497, 0.260984898428013, 2.00311989747102, 0.908063047818195, 
    1.02706854641899, 0.488954226216658, 0.485396430884327, 0.283178394662565, 
    0.920927746341894, 0.431074838052149, 0.767394976381576, 0.428923217829993, 
    0.545042151357083, 0.285930137356766, 1.06113391971349, 0.531672294070344, 
    1.02706854641899, 0.488954226216658, 2.04605176276994, 0.984207356000674, 
    0.595377881181462, 0.324080792804815, 0.987819891321598, 0.554387944157006, 
    -0.224847064926918, -0.129328665451577, -0.141496868396007, -0.0778587722406688, 
    0.873375631031152, 0.488749887283482, 0.485396430884327, 0.283178394662566, 
    0.595377881181463, 0.324080792804815, 1.05815834179493, 0.594996263811497, 
    4.20309992283127, 1.98055169797221, -0.449619715340287, -0.243166329381912, 
    0.0974282284692847, 0.0564670613588065, 0.0120895079772999, 0.00599183946778872, 
    0.433492403912431, 0.223706976868754, 1.9499873841612, 0.888046839981789, 
    1.16054897795489, 0.594380527868517, -0.449619715340287, -0.243166329381912, 
    5.91457925516596, 3.21584014587567, -0.792897616956362, -0.457686450461697, 
    0.0337614531314446, 0.0265575859036322, 2.16258687700507, 1.19149411651926, 
    0.243888364890728, 0.125028926499639, -0.218347746629152, -0.107423692359673, 
    0.0974282284692846, 0.0564670613588064, -0.792897616956362, -0.457686450461698, 
    7.8667709871528, 3.79568297714231, -0.239224742787876, -0.135545348405521, 
    0.381422240022637, 0.234899283198939, 1.95726925570278, 0.861042885328497, 
    -0.348495305512027, -0.185487653661225, 0.0120895079773002, 0.00599183946778886, 
    0.0337614531314445, 0.0265575859036321, -0.239224742787875, -0.13554534840552, 
    1.73121566636682, 0.874424005199293, 0.643526560716657, 0.348528741114098, 
    0.817679383254582, 0.44227545935499, 0.992338702051291, 0.511987938450471, 
    0.433492403912432, 0.223706976868754, 2.16258687700507, 1.19149411651926, 
    0.381422240022637, 0.234899283198938, 0.643526560716658, 0.348528741114098, 
    2.11456734945215, 1.15812030993228, 0.406722255302426, 0.269369871911639, 
    0.537945268525199, 0.260848322981185, 1.9499873841612, 0.888046839981789, 
    0.243888364890727, 0.125028926499639, 1.95726925570278, 0.861042885328497, 
    0.817679383254582, 0.44227545935499, 0.406722255302426, 0.269369871911639, 
    3.01189861592364, 1.37471508064468, 0.56009847676798, 0.32090201063869, 
    1.16054897795489, 0.594380527868517, -0.218347746629152, -0.107423692359673, 
    -0.348495305512026, -0.185487653661225, 0.992338702051292, 0.511987938450471, 
    0.537945268525199, 0.260848322981185, 0.560098476767981, 0.32090201063869, 
    1.28283742354991, 0.651952120451489, 1.33631285988805, 1.33631285988805, 
    -0.0938254669145597, -0.0938254669145597, -0.00271950038154752, 
    -0.00271950038154752, -0.00430788453286216, -0.00430788453286216, 
    0.420801507866724, 0.420801507866724, 0.431074838052149, 0.431074838052149, 
    0.554387944157006, 0.554387944157006, -0.0938254669145597, -0.0938254669145597, 
    2.99678167162854, 2.99678167162854, -0.157660720026383, -0.157660720026383, 
    -0.0170848323169338, -0.0170848323169338, 0.793317572908637, 
    0.793317572908637, 0.428923217829994, 0.428923217829994, -0.129328665451576, 
    -0.129328665451576, -0.00271950038154758, -0.00271950038154758, 
    -0.157660720026383, -0.157660720026383, 2.20385805096424, 2.20385805096424, 
    -0.056991895284335, -0.056991895284335, 0.594413458279819, 0.594413458279819, 
    0.285930137356766, 0.285930137356766, -0.0778587722406688, -0.0778587722406688, 
    -0.00430788453286202, -0.00430788453286202, -0.0170848323169338, 
    -0.0170848323169338, -0.056991895284335, -0.056991895284335, 
    0.963630078235631, 0.963630078235631, 0.260984898428013, 0.260984898428013, 
    0.531672294070345, 0.531672294070345, 0.488749887283482, 0.488749887283482, 
    0.420801507866724, 0.420801507866724, 0.793317572908637, 0.793317572908637, 
    0.594413458279819, 0.594413458279819, 0.260984898428013, 0.260984898428013, 
    0.908063047818195, 0.908063047818195, 0.488954226216658, 0.488954226216658, 
    0.283178394662565, 0.283178394662565, 0.431074838052149, 0.431074838052149, 
    0.428923217829993, 0.428923217829993, 0.285930137356766, 0.285930137356766, 
    0.531672294070344, 0.531672294070344, 0.488954226216658, 0.488954226216658, 
    0.984207356000674, 0.984207356000674, 0.324080792804815, 0.324080792804815, 
    0.554387944157006, 0.554387944157006, -0.129328665451577, -0.129328665451577, 
    -0.0778587722406688, -0.0778587722406688, 0.488749887283482, 
    0.488749887283482, 0.283178394662566, 0.283178394662566, 0.324080792804815, 
    0.324080792804815, 0.594996263811497, 0.594996263811497, 1.98055169797221, 
    1.98055169797221, -0.243166329381912, -0.243166329381912, 0.0564670613588065, 
    0.0564670613588065, 0.00599183946778872, 0.00599183946778872, 
    0.223706976868754, 0.223706976868754, 0.888046839981789, 0.888046839981789, 
    0.594380527868517, 0.594380527868517, -0.243166329381912, -0.243166329381912, 
    3.21584014587567, 3.21584014587567, -0.457686450461697, -0.457686450461697, 
    0.0265575859036322, 0.0265575859036322, 1.19149411651926, 1.19149411651926, 
    0.125028926499639, 0.125028926499639, -0.107423692359673, -0.107423692359673, 
    0.0564670613588064, 0.0564670613588064, -0.457686450461698, -0.457686450461698, 
    3.79568297714231, 3.79568297714231, -0.135545348405521, -0.135545348405521, 
    0.234899283198939, 0.234899283198939, 0.861042885328497, 0.861042885328497, 
    -0.185487653661225, -0.185487653661225, 0.00599183946778886, 
    0.00599183946778886, 0.0265575859036321, 0.0265575859036321, 
    -0.13554534840552, -0.13554534840552, 0.874424005199293, 0.874424005199293, 
    0.348528741114098, 0.348528741114098, 0.44227545935499, 0.44227545935499, 
    0.511987938450471, 0.511987938450471, 0.223706976868754, 0.223706976868754, 
    1.19149411651926, 1.19149411651926, 0.234899283198938, 0.234899283198938, 
    0.348528741114098, 0.348528741114098, 1.15812030993228, 1.15812030993228, 
    0.269369871911639, 0.269369871911639, 0.260848322981185, 0.260848322981185, 
    0.888046839981789, 0.888046839981789, 0.125028926499639, 0.125028926499639, 
    0.861042885328497, 0.861042885328497, 0.44227545935499, 0.44227545935499, 
    0.269369871911639, 0.269369871911639, 1.37471508064468, 1.37471508064468, 
    0.32090201063869, 0.32090201063869, 0.594380527868517, 0.594380527868517, 
    -0.107423692359673, -0.107423692359673, -0.185487653661225, -0.185487653661225, 
    0.511987938450471, 0.511987938450471, 0.260848322981185, 0.260848322981185, 
    0.32090201063869, 0.32090201063869, 0.651952120451489, 0.651952120451489
    ), dim = c(196L, 2L)), R = structure(c(2.38636859006454, 1.27640950818973, 
    0.299811296302048, 0.158068174883225, 0.00279003270916513, 0.00133790304043232, 
    -0.358277065798788, -0.200355578054302, 0.730699387843839, 0.38524338492037, 
    0.705486705363002, 0.33830169982924, 0.747425794514912, 0.417975196874121, 
    0.299811296302048, 0.158068174883225, 5.12516256228642, 2.38623512092223, 
    0.443406450829786, 0.181928003449773, 0.0037244482336479, 0.00197935311544084, 
    1.81136854935842, 0.828637888036339, 0.941762691534018, 0.500498543825387, 
    0, 0, 0.00279003270916513, 0.00133790304043232, 0.443406450829786, 
    0.181928003449773, 4.51403041189552, 1.71864714631234, 0.180231814682217, 
    0.084572882469426, 1.51992971734634, 0.649515333821227, 0.705486705363002, 
    0.33830169982924, 0, 0, -0.358277065798788, -0.200355578054302, 
    0.0037244482336479, 0.00197935311544084, 0.180231814682217, 0.084572882469426, 
    1.85290777499334, 0.999048808570935, 0.439260555831765, 0.206120830705258, 
    0.941762691534018, 0.500498543825387, 0.747425794514912, 0.417975196874121, 
    0.730699387843839, 0.38524338492037, 1.81136854935842, 0.828637888036339, 
    1.51992971734634, 0.649515333821227, 0.439260555831765, 0.206120830705258, 
    -2.16385624599342, -0.994863663444867, 5.68133788598532e-16, 
    2.47142246708727e-16, 1.62197998054206e-16, 8.78171719502026e-17, 
    0.705486705363002, 0.33830169982924, 0.941762691534018, 0.500498543825387, 
    0.705486705363002, 0.33830169982924, 0.941762691534018, 0.500498543825387, 
    4.76269634975693e-16, 1.96713191949753e-16, -0.0195428315371362, 
    -0.00995145719035032, -3.37985414813524e-17, -2.68431839378769e-17, 
    0.747425794514912, 0.417975196874121, 0, 0, 0, 0, 0.747425794514912, 
    0.417975196874121, 1.40030786957636e-16, 7.52231631296611e-17, 
    5.80656121414861e-17, 2.35858708210969e-17, 0.787421252125022, 
    0.440341442983551, 3.92555625104901, 1.82400563295951, 0.359627361179614, 
    0.188286257097002, -0.0555723617532272, -0.0244174735934565, 
    -0.36661330653783, -0.188030147046157, 0.633090267412372, 0.331460310652171, 
    1.69801363056219, 0.746075957140217, 0.793022313932502, 0.406728560149045, 
    0.359627361179614, 0.188286257097002, 3.97252736398467, 2.13453044919508, 
    0.399405797266414, 0.232216089531637, -0.0257371464299575, -0.0134878438880299, 
    1.33620674377846, 0.740254974486479, 0.786398563442463, 0.412121098442241, 
    6.88047685999525e-17, 3.60579204129628e-17, -0.0555723617532272, 
    -0.0244174735934565, 0.399405797266414, 0.232216089531637, 6.31881283454396, 
    2.90396064888803, 0.269430585820709, 0.147158974807688, 1.17742377341603, 
    0.667854248198354, 1.69801363056219, 0.746075957140216, 2.98115026191718e-17, 
    1.62825989096625e-17, -0.36661330653783, -0.188030147046157, 
    -0.0257371464299575, -0.0134878438880299, 0.269430585820709, 
    0.147158974807688, 1.66076175183477, 0.825787098291692, 0.474307297049938, 
    0.259059584364047, 0.786398563442463, 0.412121098442241, 0.793022313932502, 
    0.406728560149045, 0.633090267412372, 0.331460310652171, 1.33620674377846, 
    0.740254974486479, 1.17742377341603, 0.667854248198354, 0.474307297049938, 
    0.259059584364047, -2.08100463525789, -1.14861204174762, 6.11240039446025e-16, 
    2.72598778647846e-16, 2.74958369634776e-16, 1.46178956428128e-16, 
    1.69801363056219, 0.746075957140217, 0.786398563442463, 0.412121098442241, 
    1.69801363056219, 0.746075957140217, 0.786398563442463, 0.412121098442241, 
    1.44065656968666e-15, 6.67807609956293e-16, 0.243407924472636, 
    0.113473256213263, -4.683472264395e-17, -2.93995157844416e-17, 
    0.793022313932502, 0.406728560149045, 6.88047685999525e-17, 3.60579204129628e-17, 
    2.98115026191718e-17, 1.62825989096625e-17, 0.793022313932502, 
    0.406728560149045, 3.97810899344248e-16, 2.10982311508024e-16, 
    2.89645151330948e-16, 1.42923519416834e-16, 0.818656962264193, 
    0.419876164475804, 1.27640950818973, 1.27640950818973, 0.158068174883225, 
    0.158068174883225, 0.00133790304043232, 0.00133790304043232, 
    -0.200355578054302, -0.200355578054302, 0.38524338492037, 0.38524338492037, 
    0.33830169982924, 0.33830169982924, 0.417975196874121, 0.417975196874121, 
    0.158068174883225, 0.158068174883225, 2.38623512092223, 2.38623512092223, 
    0.181928003449773, 0.181928003449773, 0.00197935311544084, 0.00197935311544084, 
    0.828637888036339, 0.828637888036339, 0.500498543825387, 0.500498543825387, 
    0, 0, 0.00133790304043232, 0.00133790304043232, 0.181928003449773, 
    0.181928003449773, 1.71864714631234, 1.71864714631234, 0.084572882469426, 
    0.084572882469426, 0.649515333821227, 0.649515333821227, 0.33830169982924, 
    0.33830169982924, 0, 0, -0.200355578054302, -0.200355578054302, 
    0.00197935311544084, 0.00197935311544084, 0.084572882469426, 
    0.084572882469426, 0.999048808570935, 0.999048808570935, 0.206120830705258, 
    0.206120830705258, 0.500498543825387, 0.500498543825387, 0.417975196874121, 
    0.417975196874121, 0.38524338492037, 0.38524338492037, 0.828637888036339, 
    0.828637888036339, 0.649515333821227, 0.649515333821227, 0.206120830705258, 
    0.206120830705258, -0.994863663444867, -0.994863663444867, 2.47142246708727e-16, 
    2.47142246708727e-16, 8.78171719502026e-17, 8.78171719502026e-17, 
    0.33830169982924, 0.33830169982924, 0.500498543825387, 0.500498543825387, 
    0.33830169982924, 0.33830169982924, 0.500498543825387, 0.500498543825387, 
    1.96713191949753e-16, 1.96713191949753e-16, -0.00995145719035032, 
    -0.00995145719035032, -2.68431839378769e-17, -2.68431839378769e-17, 
    0.417975196874121, 0.417975196874121, 0, 0, 0, 0, 0.417975196874121, 
    0.417975196874121, 7.52231631296611e-17, 7.52231631296611e-17, 
    2.35858708210969e-17, 2.35858708210969e-17, 0.440341442983551, 
    0.440341442983551, 1.82400563295951, 1.82400563295951, 0.188286257097002, 
    0.188286257097002, -0.0244174735934565, -0.0244174735934565, 
    -0.188030147046157, -0.188030147046157, 0.331460310652171, 0.331460310652171, 
    0.746075957140217, 0.746075957140217, 0.406728560149045, 0.406728560149045, 
    0.188286257097002, 0.188286257097002, 2.13453044919508, 2.13453044919508, 
    0.232216089531637, 0.232216089531637, -0.0134878438880299, -0.0134878438880299, 
    0.740254974486479, 0.740254974486479, 0.412121098442241, 0.412121098442241, 
    3.60579204129628e-17, 3.60579204129628e-17, -0.0244174735934565, 
    -0.0244174735934565, 0.232216089531637, 0.232216089531637, 2.90396064888803, 
    2.90396064888803, 0.147158974807688, 0.147158974807688, 0.667854248198354, 
    0.667854248198354, 0.746075957140216, 0.746075957140216, 1.62825989096625e-17, 
    1.62825989096625e-17, -0.188030147046157, -0.188030147046157, 
    -0.0134878438880299, -0.0134878438880299, 0.147158974807688, 
    0.147158974807688, 0.825787098291692, 0.825787098291692, 0.259059584364047, 
    0.259059584364047, 0.412121098442241, 0.412121098442241, 0.406728560149045, 
    0.406728560149045, 0.331460310652171, 0.331460310652171, 0.740254974486479, 
    0.740254974486479, 0.667854248198354, 0.667854248198354, 0.259059584364047, 
    0.259059584364047, -1.14861204174762, -1.14861204174762, 2.72598778647846e-16, 
    2.72598778647846e-16, 1.46178956428128e-16, 1.46178956428128e-16, 
    0.746075957140217, 0.746075957140217, 0.412121098442241, 0.412121098442241, 
    0.746075957140217, 0.746075957140217, 0.412121098442241, 0.412121098442241, 
    6.67807609956293e-16, 6.67807609956293e-16, 0.113473256213263, 
    0.113473256213263, -2.93995157844416e-17, -2.93995157844416e-17, 
    0.406728560149045, 0.406728560149045, 3.60579204129628e-17, 3.60579204129628e-17, 
    1.62825989096625e-17, 1.62825989096625e-17, 0.406728560149045, 
    0.406728560149045, 2.10982311508024e-16, 2.10982311508024e-16, 
    1.42923519416834e-16, 1.42923519416834e-16, 0.419876164475804, 
    0.419876164475804), dim = c(196L, 2L)))

# h_get_kr_comp works as expected on us ungrouped mmrm

    list(P = structure(c(-1.2699673929175, -0.588742202043726, -6.82514993043203, 
    -3.45693333935257, -9.8394742053602, -4.38608332954382, -1.71999429203232, 
    -0.878051126343321, -2.91611111561874, -1.47672797560752, -3.9475345602692, 
    -1.86082722841886, -4.88747892078616, -2.38135111967859, -1.61169975187939, 
    -0.853845012463919, -1.82471490268072, -0.964053659127503, -1.97423011216691, 
    -0.993978584137231, -0.588742202043726, -0.588742202043726, -3.45693333935257, 
    -3.45693333935257, -4.38608332954382, -4.38608332954382, -0.878051126343321, 
    -0.878051126343321, -1.47672797560752, -1.47672797560752, -1.86082722841886, 
    -1.86082722841886, -2.38135111967859, -2.38135111967859, -0.853845012463919, 
    -0.853845012463919, -0.964053659127503, -0.964053659127503, -0.993978584137231, 
    -0.993978584137231), dim = c(20L, 2L)), Q = structure(c(4.17025096000998, 
    2.02319792779033, -1.80511962631823, -0.93868371391423, -0.00287708209117312, 
    -0.0086509631584054, 0.177680534234428, 0.101621153369753, 0.325306272159715, 
    0.172612744784715, 2.19814924992701, 0.967728792436853, -1.06675331303583, 
    -0.543982541096168, 1.49372003891626, 0.79287179629133, -0.0122052068863463, 
    -0.00419709598461175, 0.615110147435515, 0.337766150853831, -1.80511962631823, 
    -0.938683713914229, 15.9007824521382, 8.08597989959634, -0.182519601151349, 
    -0.0829407674906134, -0.262843363804544, -0.150488739486357, 
    6.15111891879216, 3.11473579196429, 2.34260738531228, 1.16379184391463, 
    5.1260582228139, 2.55922737894271, 0.826878277826615, 0.421582534010358, 
    1.92203639433515, 1.016403880464, -0.133351113165369, -0.0982593689626557, 
    -0.0028770820911732, -0.00865096315840546, -0.18251960115135, 
    -0.0829407674906134, 20.088714216143, 8.97376301350833, -0.224369122180083, 
    -0.110004623771663, -0.219596776369183, -0.109758968133752, 3.99343107948407, 
    1.8978828413984, 5.7433881109757, 2.77508653778261, -0.461895901276455, 
    -0.234092347800561, -0.459879517755406, -0.234885494101186, 0.530502987280638, 
    0.269288125828197, 0.177680534234427, 0.101621153369753, -0.262843363804545, 
    -0.150488739486357, -0.224369122180083, -0.110004623771663, 3.74952053581485, 
    1.91497446257491, -0.424606183345201, -0.224133617400221, -0.63911859418498, 
    -0.307749020912163, -0.0277351791814634, -0.0276291362719829, 
    1.36469708829236, 0.727328042426712, 2.19947813566804, 1.15078602787681, 
    2.93619820278304, 1.47916226055509, 0.325306272159715, 0.172612744784715, 
    6.15111891879216, 3.11473579196429, -0.219596776369183, -0.109758968133752, 
    -0.4246061833452, -0.224133617400221, 2.97935377461391, 1.50913657615605, 
    1.82544016268882, 0.906808054718061, 1.66948076871957, 0.835570899106784, 
    0.602284636111834, 0.322749704623587, 0.480090183706303, 0.259094953937373, 
    -0.202595110559752, -0.102283547150911, 2.19814924992701, 0.967728792436854, 
    2.34260738531228, 1.16379184391462, 3.99343107948407, 1.8978828413984, 
    -0.63911859418498, -0.307749020912163, 1.82544016268882, 0.906808054718061, 
    4.62333874415418, 2.12561958059929, 1.75558333694134, 0.872712636715284, 
    0.374934479532951, 0.203575155106735, -0.287951791927617, -0.141992684743038, 
    -0.358187564504981, -0.151150238906356, -1.06675331303583, -0.543982541096168, 
    5.1260582228139, 2.55922737894271, 5.7433881109757, 2.77508653778261, 
    -0.0277351791814633, -0.0276291362719829, 1.66948076871957, 0.835570899106784, 
    1.75558333694134, 0.872712636715284, 4.65859735345995, 2.31253624337909, 
    -0.0651888760784456, -0.0555479422942721, 0.276097248377661, 
    0.142284996361329, 0.178937425782917, 0.0634647228668441, 1.49372003891626, 
    0.79287179629133, 0.826878277826614, 0.421582534010357, -0.461895901276455, 
    -0.234092347800561, 1.36469708829236, 0.727328042426712, 0.602284636111834, 
    0.322749704623587, 0.374934479532951, 0.203575155106735, -0.0651888760784456, 
    -0.0555479422942721, 1.58225784896983, 0.829555601518808, 1.1492031369315, 
    0.608172473525109, 1.4535383862367, 0.757585173635869, -0.0122052068863468, 
    -0.00419709598461205, 1.92203639433515, 1.01640388046399, -0.459879517755406, 
    -0.234885494101186, 2.19947813566804, 1.15078602787681, 0.480090183706303, 
    0.259094953937373, -0.287951791927617, -0.141992684743038, 0.276097248377661, 
    0.142284996361329, 1.1492031369315, 0.608172473525109, 2.11414662860027, 
    1.1087552255315, 1.93771968122846, 0.994915603900179, 0.615110147435515, 
    0.337766150853831, -0.13335111316537, -0.0982593689626562, 0.530502987280638, 
    0.269288125828196, 2.93619820278304, 1.47916226055509, -0.202595110559753, 
    -0.102283547150911, -0.358187564504981, -0.151150238906356, 0.178937425782916, 
    0.0634647228668438, 1.4535383862367, 0.757585173635869, 1.93771968122846, 
    0.994915603900179, 3.50470523950089, 1.7520438970245, 2.02319792779033, 
    2.02319792779033, -0.93868371391423, -0.93868371391423, -0.0086509631584054, 
    -0.0086509631584054, 0.101621153369753, 0.101621153369753, 0.172612744784715, 
    0.172612744784715, 0.967728792436853, 0.967728792436853, -0.543982541096168, 
    -0.543982541096168, 0.79287179629133, 0.79287179629133, -0.00419709598461175, 
    -0.00419709598461175, 0.337766150853831, 0.337766150853831, -0.938683713914229, 
    -0.938683713914229, 8.08597989959634, 8.08597989959634, -0.0829407674906134, 
    -0.0829407674906134, -0.150488739486357, -0.150488739486357, 
    3.11473579196429, 3.11473579196429, 1.16379184391463, 1.16379184391463, 
    2.55922737894271, 2.55922737894271, 0.421582534010358, 0.421582534010358, 
    1.016403880464, 1.016403880464, -0.0982593689626557, -0.0982593689626557, 
    -0.00865096315840546, -0.00865096315840546, -0.0829407674906134, 
    -0.0829407674906134, 8.97376301350833, 8.97376301350833, -0.110004623771663, 
    -0.110004623771663, -0.109758968133752, -0.109758968133752, 1.8978828413984, 
    1.8978828413984, 2.77508653778261, 2.77508653778261, -0.234092347800561, 
    -0.234092347800561, -0.234885494101186, -0.234885494101186, 0.269288125828197, 
    0.269288125828197, 0.101621153369753, 0.101621153369753, -0.150488739486357, 
    -0.150488739486357, -0.110004623771663, -0.110004623771663, 1.91497446257491, 
    1.91497446257491, -0.224133617400221, -0.224133617400221, -0.307749020912163, 
    -0.307749020912163, -0.0276291362719829, -0.0276291362719829, 
    0.727328042426712, 0.727328042426712, 1.15078602787681, 1.15078602787681, 
    1.47916226055509, 1.47916226055509, 0.172612744784715, 0.172612744784715, 
    3.11473579196429, 3.11473579196429, -0.109758968133752, -0.109758968133752, 
    -0.224133617400221, -0.224133617400221, 1.50913657615605, 1.50913657615605, 
    0.906808054718061, 0.906808054718061, 0.835570899106784, 0.835570899106784, 
    0.322749704623587, 0.322749704623587, 0.259094953937373, 0.259094953937373, 
    -0.102283547150911, -0.102283547150911, 0.967728792436854, 0.967728792436854, 
    1.16379184391462, 1.16379184391462, 1.8978828413984, 1.8978828413984, 
    -0.307749020912163, -0.307749020912163, 0.906808054718061, 0.906808054718061, 
    2.12561958059929, 2.12561958059929, 0.872712636715284, 0.872712636715284, 
    0.203575155106735, 0.203575155106735, -0.141992684743038, -0.141992684743038, 
    -0.151150238906356, -0.151150238906356, -0.543982541096168, -0.543982541096168, 
    2.55922737894271, 2.55922737894271, 2.77508653778261, 2.77508653778261, 
    -0.0276291362719829, -0.0276291362719829, 0.835570899106784, 
    0.835570899106784, 0.872712636715284, 0.872712636715284, 2.31253624337909, 
    2.31253624337909, -0.0555479422942721, -0.0555479422942721, 0.142284996361329, 
    0.142284996361329, 0.0634647228668441, 0.0634647228668441, 0.79287179629133, 
    0.79287179629133, 0.421582534010357, 0.421582534010357, -0.234092347800561, 
    -0.234092347800561, 0.727328042426712, 0.727328042426712, 0.322749704623587, 
    0.322749704623587, 0.203575155106735, 0.203575155106735, -0.0555479422942721, 
    -0.0555479422942721, 0.829555601518808, 0.829555601518808, 0.608172473525109, 
    0.608172473525109, 0.757585173635869, 0.757585173635869, -0.00419709598461205, 
    -0.00419709598461205, 1.01640388046399, 1.01640388046399, -0.234885494101186, 
    -0.234885494101186, 1.15078602787681, 1.15078602787681, 0.259094953937373, 
    0.259094953937373, -0.141992684743038, -0.141992684743038, 0.142284996361329, 
    0.142284996361329, 0.608172473525109, 0.608172473525109, 1.1087552255315, 
    1.1087552255315, 0.994915603900179, 0.994915603900179, 0.337766150853831, 
    0.337766150853831, -0.0982593689626562, -0.0982593689626562, 
    0.269288125828196, 0.269288125828196, 1.47916226055509, 1.47916226055509, 
    -0.102283547150911, -0.102283547150911, -0.151150238906356, -0.151150238906356, 
    0.0634647228668438, 0.0634647228668438, 0.757585173635869, 0.757585173635869, 
    0.994915603900179, 0.994915603900179, 1.7520438970245, 1.7520438970245
    ), dim = c(200L, 2L)), R = structure(c(2.61069627230595, 1.19597793819212, 
    0.375213345467662, 0.203839695279085, -0.0703131832741668, -0.0285335761065243, 
    -0.375661648664439, -0.193799653277231, 0.395752470686019, 0.214997851235906, 
    1.33503477120349, 0.541766344164179, 0, 0, 0.903875712385381, 
    0.466299395450051, 0, 0, 0, 0, 0.375213345467662, 0.203839695279085, 
    13.5330871939206, 6.85220513025191, 0.134347537321448, 0.0665860386707212, 
    -0.392348215845644, -0.208764185496565, 6.26532229432454, 3.17195585120493, 
    3.71526900656339, 1.8413813209784, 3.91864230409516, 1.94217827285435, 
    1.4199813738928, 0.755556525985703, 1.4977109525403, 0.796915582864198, 
    0, 0, -0.0703131832741668, -0.0285335761065243, 0.134347537321448, 
    0.0665860386707212, 19.0937447004765, 8.4743361361261, 0.521169356196593, 
    0.259778060397337, -0.206385796427881, -0.102290022549156, 3.46489563280546, 
    1.64761215643552, 5.65924486403065, 2.72229363753118, -0.0785848782159981, 
    -0.0391708127056731, 0.125661502232805, 0.0626362638718534, 1.49208925017757, 
    0.743735307424011, -0.375661648664439, -0.193799653277231, -0.392348215845644, 
    -0.208764185496565, 0.521169356196593, 0.259778060397337, 3.68682909237814, 
    1.8988880310631, -0.622466737345176, -0.331207728676645, -0.620130290033953, 
    -0.309105364740383, 0.197070673446503, 0.0982303289716407, 0.978127295696594, 
    0.525004916197759, 2.02605735058834, 1.06855547151896, 2.45637097415626, 
    1.24422186085045, 0.395752470686019, 0.214997851235906, 6.26532229432454, 
    3.17195585120493, -0.206385796427881, -0.102290022549156, -0.622466737345176, 
    -0.331207728676645, 3.5325465227523, 1.78802440863956, 3.91864230409516, 
    1.94217827285435, 0, 0, 1.4977109525403, 0.796915582864198, 0, 
    0, 0, 0, 1.33503477120349, 0.541766344164179, 3.71526900656339, 
    1.8413813209784, 3.46489563280546, 1.64761215643552, -0.620130290033953, 
    -0.309105364740383, 3.91864230409516, 1.94217827285435, 9.16385406116561, 
    4.04830959981572, 0, 0, 1.49208925017757, 0.743735307424011, 
    0, 0, 0, 0, 0, 0, 3.91864230409516, 1.94217827285435, 5.65924486403065, 
    2.72229363753118, 0.197070673446503, 0.0982303289716407, 0, 0, 
    0, 0, 9.16385406116561, 4.04830959981572, 0, 0, 1.49208925017757, 
    0.743735307424011, 0, 0, 0.903875712385381, 0.466299395450051, 
    1.4199813738928, 0.755556525985703, -0.0785848782159981, -0.0391708127056731, 
    0.978127295696594, 0.525004916197759, 1.4977109525403, 0.796915582864198, 
    1.49208925017757, 0.743735307424011, 0, 0, 1.52443231087323, 
    0.791218846347969, 0, 0, 0, 0, 0, 0, 1.4977109525403, 0.796915582864198, 
    0.125661502232805, 0.0626362638718534, 2.02605735058834, 1.06855547151896, 
    0, 0, 0, 0, 1.49208925017757, 0.743735307424011, 0, 0, 1.52443231087323, 
    0.791218846347969, 0, 0, 0, 0, 0, 0, 1.49208925017757, 0.743735307424011, 
    2.45637097415626, 1.24422186085045, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 1.52443231087323, 0.791218846347969, 1.19597793819212, 1.19597793819212, 
    0.203839695279085, 0.203839695279085, -0.0285335761065243, -0.0285335761065243, 
    -0.193799653277231, -0.193799653277231, 0.214997851235906, 0.214997851235906, 
    0.541766344164179, 0.541766344164179, 0, 0, 0.466299395450051, 
    0.466299395450051, 0, 0, 0, 0, 0.203839695279085, 0.203839695279085, 
    6.85220513025191, 6.85220513025191, 0.0665860386707212, 0.0665860386707212, 
    -0.208764185496565, -0.208764185496565, 3.17195585120493, 3.17195585120493, 
    1.8413813209784, 1.8413813209784, 1.94217827285435, 1.94217827285435, 
    0.755556525985703, 0.755556525985703, 0.796915582864198, 0.796915582864198, 
    0, 0, -0.0285335761065243, -0.0285335761065243, 0.0665860386707212, 
    0.0665860386707212, 8.4743361361261, 8.4743361361261, 0.259778060397337, 
    0.259778060397337, -0.102290022549156, -0.102290022549156, 1.64761215643552, 
    1.64761215643552, 2.72229363753118, 2.72229363753118, -0.0391708127056731, 
    -0.0391708127056731, 0.0626362638718534, 0.0626362638718534, 
    0.743735307424011, 0.743735307424011, -0.193799653277231, -0.193799653277231, 
    -0.208764185496565, -0.208764185496565, 0.259778060397337, 0.259778060397337, 
    1.8988880310631, 1.8988880310631, -0.331207728676645, -0.331207728676645, 
    -0.309105364740383, -0.309105364740383, 0.0982303289716407, 0.0982303289716407, 
    0.525004916197759, 0.525004916197759, 1.06855547151896, 1.06855547151896, 
    1.24422186085045, 1.24422186085045, 0.214997851235906, 0.214997851235906, 
    3.17195585120493, 3.17195585120493, -0.102290022549156, -0.102290022549156, 
    -0.331207728676645, -0.331207728676645, 1.78802440863956, 1.78802440863956, 
    1.94217827285435, 1.94217827285435, 0, 0, 0.796915582864198, 
    0.796915582864198, 0, 0, 0, 0, 0.541766344164179, 0.541766344164179, 
    1.8413813209784, 1.8413813209784, 1.64761215643552, 1.64761215643552, 
    -0.309105364740383, -0.309105364740383, 1.94217827285435, 1.94217827285435, 
    4.04830959981572, 4.04830959981572, 0, 0, 0.743735307424011, 
    0.743735307424011, 0, 0, 0, 0, 0, 0, 1.94217827285435, 1.94217827285435, 
    2.72229363753118, 2.72229363753118, 0.0982303289716407, 0.0982303289716407, 
    0, 0, 0, 0, 4.04830959981572, 4.04830959981572, 0, 0, 0.743735307424011, 
    0.743735307424011, 0, 0, 0.466299395450051, 0.466299395450051, 
    0.755556525985703, 0.755556525985703, -0.0391708127056731, -0.0391708127056731, 
    0.525004916197759, 0.525004916197759, 0.796915582864198, 0.796915582864198, 
    0.743735307424011, 0.743735307424011, 0, 0, 0.791218846347969, 
    0.791218846347969, 0, 0, 0, 0, 0, 0, 0.796915582864198, 0.796915582864198, 
    0.0626362638718534, 0.0626362638718534, 1.06855547151896, 1.06855547151896, 
    0, 0, 0, 0, 0.743735307424011, 0.743735307424011, 0, 0, 0.791218846347969, 
    0.791218846347969, 0, 0, 0, 0, 0, 0, 0.743735307424011, 0.743735307424011, 
    1.24422186085045, 1.24422186085045, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0.791218846347969, 0.791218846347969), dim = c(200L, 2L)))

# h_get_kr_comp works as expected on us grouped mmrm

    list(P = structure(c(-0.257277368415973, -0.169479134666057, 
    -3.79750975730401, -1.74218823431817, -4.45877438521587, -1.75757140030696, 
    -1.00540009236672, -0.510306624012399, -1.60110214902437, -0.73319057374309, 
    -1.795656256051, -0.774552808884585, -2.3945960752289, -0.990933070702066, 
    -0.883401153633321, -0.455147191960791, -1.07730298075128, -0.542456581813088, 
    -1.16338068895013, -0.522188855564044, -1.04442255134968, -0.440294187693368, 
    -2.85706550892802, -1.55687037292243, -5.97131657718902, -2.90518591570904, 
    -0.789224887977831, -0.390319423205315, -1.20648133352649, -0.650633716265381, 
    -2.370796678655, -1.16208038994314, -2.60216049044816, -1.39771680951202, 
    -0.778686587865892, -0.408028935053635, -0.812364299100472, -0.427270231324948, 
    -0.932046432704756, -0.491674680285405, -0.169479134666057, -0.169479134666057, 
    -1.74218823431817, -1.74218823431817, -1.75757140030696, -1.75757140030696, 
    -0.510306624012399, -0.510306624012399, -0.73319057374309, -0.73319057374309, 
    -0.774552808884585, -0.774552808884585, -0.990933070702066, -0.990933070702066, 
    -0.455147191960791, -0.455147191960791, -0.542456581813088, -0.542456581813088, 
    -0.522188855564044, -0.522188855564044, -0.440294187693368, -0.440294187693368, 
    -1.55687037292243, -1.55687037292243, -2.90518591570904, -2.90518591570904, 
    -0.390319423205315, -0.390319423205315, -0.650633716265381, -0.650633716265381, 
    -1.16208038994314, -1.16208038994314, -1.39771680951202, -1.39771680951202, 
    -0.408028935053635, -0.408028935053635, -0.427270231324948, -0.427270231324948, 
    -0.491674680285405, -0.491674680285405), dim = c(40L, 2L)), Q = structure(c(1.33943220508608, 
    0.732337215350215, -0.834609985948124, -0.404757867499495, -0.082704143174629, 
    -0.0383720982472597, 0.092436660868621, 0.0497510197286541, 0.136153735508735, 
    0.0809145914137108, 0.463378503740534, 0.232673343887963, -0.454024903224037, 
    -0.193864731313779, 0.673287774676159, 0.38165905506322, -0.00307608832318149, 
    -0.00619358031372466, 0.21025041175141, 0.111169605381987, -0.834609985948123, 
    -0.404757867499495, 8.52513172150913, 3.9470172814694, 0.0521155301828491, 
    0.0246647350433431, -0.147617751135834, -0.0825476803769015, 
    3.21066518473163, 1.46421515764037, 1.39524244544318, 0.57110572331471, 
    2.82699526222145, 1.17451838940961, 0.502782105266892, 0.2246220531006, 
    1.1460794402151, 0.575476300571094, -0.0370039133742209, -0.0299892115539154, 
    -0.082704143174629, -0.0383720982472597, 0.0521155301828492, 
    0.0246647350433432, 8.99655974289049, 3.55004645202647, -0.048422359466979, 
    -0.0211962882086197, 0.108517866175988, 0.0436829451771596, 2.05477004364228, 
    0.873934643231124, 2.3754617431487, 0.98694895353879, -0.0803365415824688, 
    -0.0397976393266141, -0.202468822293644, -0.0831642198988523, 
    0.683646518723259, 0.295528235993041, 0.092436660868621, 0.0497510197286542, 
    -0.147617751135834, -0.0825476803769015, -0.0484223594669791, 
    -0.0211962882086197, 2.11440363446764, 1.07460619688167, -0.253132488367618, 
    -0.122431546745058, -0.322078480723995, -0.128608092664628, 0.0407600483116781, 
    0.0142635297695141, 0.671068968906061, 0.343810915084377, 1.21407143190429, 
    0.59879466326766, 1.46986836079981, 0.667669081306976, 0.136153735508734, 
    0.0809145914137106, 3.21066518473163, 1.46421515764037, 0.108517866175988, 
    0.0436829451771596, -0.253132488367618, -0.122431546745058, 1.72076151002106, 
    0.788819010597453, 1.15726286759888, 0.479294474550794, 0.907555868006712, 
    0.375249533157307, 0.409010911162045, 0.211971881648202, 0.264889436473966, 
    0.133762468111921, -0.0977626941560942, -0.0382178106422439, 
    0.463378503740534, 0.232673343887963, 1.39524244544318, 0.57110572331471, 
    2.05477004364228, 0.873934643231124, -0.322078480723995, -0.128608092664628, 
    1.15726286759888, 0.479294474550794, 2.03242510010774, 0.875856487379201, 
    0.889988880228581, 0.366159165469243, 0.255979920849112, 0.131458425582372, 
    -0.0947355673633009, -0.0375343100887815, -0.0757065026114922, 
    -0.00857034026349026, -0.454024903224037, -0.193864731313779, 
    2.82699526222145, 1.17451838940961, 2.3754617431487, 0.986948953538791, 
    0.0407600483116781, 0.0142635297695141, 0.907555868006713, 0.375249533157307, 
    0.88998888022858, 0.366159165469243, 2.25664538140895, 0.936573598491109, 
    0.062806553844848, 0.0150360305289539, 0.263502583839109, 0.103837260433893, 
    0.244303366377453, 0.0901128765294144, 0.673287774676158, 0.38165905506322, 
    0.502782105266892, 0.2246220531006, -0.0803365415824687, -0.0397976393266141, 
    0.67106896890606, 0.343810915084377, 0.409010911162045, 0.211971881648202, 
    0.255979920849112, 0.131458425582372, 0.0628065538448482, 0.015036030528954, 
    0.813695962130287, 0.434430884854665, 0.584365250057774, 0.28004024774446, 
    0.617807263893189, 0.295914931506464, -0.00307608832318134, -0.00619358031372457, 
    1.1460794402151, 0.575476300571094, -0.202468822293644, -0.0831642198988524, 
    1.21407143190428, 0.598794663267659, 0.264889436473965, 0.133762468111921, 
    -0.0947355673633009, -0.0375343100887815, 0.263502583839109, 
    0.103837260433893, 0.584365250057774, 0.28004024774446, 1.20478438247554, 
    0.593120159610674, 0.956520184572792, 0.411855322039177, 0.210250411751411, 
    0.111169605381987, -0.0370039133742209, -0.0299892115539154, 
    0.683646518723259, 0.295528235993041, 1.46986836079981, 0.667669081306976, 
    -0.097762694156094, -0.0382178106422439, -0.075706502611492, 
    -0.00857034026349017, 0.244303366377453, 0.0901128765294143, 
    0.617807263893189, 0.295914931506464, 0.956520184572792, 0.411855322039177, 
    1.67731721665449, 0.727147557744256, 3.16403594491121, 1.45679664056501, 
    -1.26240812734869, -0.683155437340395, 0.0855450540639351, 0.0499706615113581, 
    0.101672231072904, 0.0569765106507679, -0.0777599472699184, -0.0465889678592255, 
    1.90031565494238, 0.83493589652435, -0.736251353066037, -0.422764875185826, 
    0.78570035419912, 0.396533888743347, -0.0327543923502929, -0.00952248196964169, 
    0.413375079234624, 0.232425224788046, -1.26240812734869, -0.683155437340395, 
    7.39582555528183, 4.02476881400125, -0.286029371199438, -0.156898899952286, 
    -0.133257038877673, -0.0709737308637111, 2.91377507874657, 1.58378917157585, 
    0.957573081381896, 0.568653998993928, 2.44010883923041, 1.39699689774294, 
    0.385435424722848, 0.210622676607638, 0.849834377053635, 0.448542111108353, 
    -0.110819572198998, -0.076439494540258, 0.0855450540639354, 0.0499706615113582, 
    -0.286029371199439, -0.156898899952286, 12.3083210193523, 6.01029980551552, 
    -0.165203547838798, -0.0929997356565117, -0.246688582887279, 
    -0.141036920178491, 2.21530790028622, 1.10155117896828, 3.52403846302111, 
    1.84499434061904, -0.32679276064306, -0.178554499377008, -0.232779969180002, 
    -0.143956421389847, 0.029713892872442, 0.0120631316839417, 0.101672231072904, 
    0.0569765106507679, -0.133257038877673, -0.0709737308637113, 
    -0.165203547838798, -0.0929997356565118, 1.77523813159923, 0.887635802280085, 
    -0.176363881536403, -0.0948958510073773, -0.331603279300502, 
    -0.180980294600272, -0.0235749682891721, -0.0237927441521238, 
    0.713030157452874, 0.387455804133293, 1.0404285826776, 0.559477254901033, 
    1.53182346550145, 0.81530049863908, -0.0777599472699194, -0.046588967859226, 
    2.91377507874657, 1.58378917157586, -0.246688582887279, -0.141036920178491, 
    -0.176363881536403, -0.0948958510073773, 1.27812938386589, 0.692163296068189, 
    0.66260393937498, 0.38345210890059, 0.836939178209267, 0.481358129719869, 
    0.230672799189548, 0.120682873358302, 0.242881488996449, 0.128901049435223, 
    -0.101096139930301, -0.0616869876597757, 1.90031565494238, 0.834935896524351, 
    0.957573081381896, 0.568653998993928, 2.21530790028622, 1.10155117896828, 
    -0.331603279300502, -0.180980294600272, 0.66260393937498, 0.38345210890059, 
    2.92735227789637, 1.39764589789674, 0.876743405074342, 0.483931686418075, 
    0.177653142568315, 0.0966646525855128, -0.154159544147874, -0.0919232841951113, 
    -0.23274337154025, -0.127217977567521, -0.736251353066037, -0.422764875185826, 
    2.44010883923041, 1.39699689774294, 3.52403846302111, 1.84499434061904, 
    -0.0235749682891719, -0.0237927441521237, 0.836939178209266, 
    0.481358129719868, 0.876743405074342, 0.483931686418075, 2.55645153530615, 
    1.42816171702578, -0.0703452228208932, -0.0512646922739839, 0.124796227036473, 
    0.0787482113204482, 0.0163928665890326, -0.0119890026118048, 
    0.78570035419912, 0.396533888743347, 0.385435424722848, 0.210622676607638, 
    -0.326792760643061, -0.178554499377008, 0.713030157452874, 0.387455804133293, 
    0.230672799189548, 0.120682873358302, 0.177653142568315, 0.0966646525855126, 
    -0.0703452228208932, -0.0512646922739839, 0.80819317402267, 0.413365130688995, 
    0.579405575735238, 0.323806954824336, 0.860593916724264, 0.467815102071456, 
    -0.0327543923502928, -0.00952248196964164, 0.849834377053635, 
    0.448542111108353, -0.232779969180002, -0.143956421389847, 1.0404285826776, 
    0.559477254901033, 0.242881488996449, 0.128901049435223, -0.154159544147874, 
    -0.0919232841951114, 0.124796227036473, 0.0787482113204481, 0.579405575735238, 
    0.323806954824336, 0.928816904903683, 0.50701414176218, 0.999521613673223, 
    0.567871370825517, 0.413375079234625, 0.232425224788046, -0.110819572198999, 
    -0.0764394945402584, 0.0297138928724422, 0.0120631316839418, 
    1.53182346550145, 0.81530049863908, -0.101096139930301, -0.0616869876597758, 
    -0.23274337154025, -0.127217977567521, 0.0163928665890324, -0.0119890026118049, 
    0.860593916724264, 0.467815102071456, 0.999521613673223, 0.567871370825517, 
    2.01834098365059, 1.10243755598769, 0.732337215350215, 0.732337215350215, 
    -0.404757867499495, -0.404757867499495, -0.0383720982472597, 
    -0.0383720982472597, 0.0497510197286541, 0.0497510197286541, 
    0.0809145914137108, 0.0809145914137108, 0.232673343887963, 0.232673343887963, 
    -0.193864731313779, -0.193864731313779, 0.38165905506322, 0.38165905506322, 
    -0.00619358031372466, -0.00619358031372466, 0.111169605381987, 
    0.111169605381987, -0.404757867499495, -0.404757867499495, 3.9470172814694, 
    3.9470172814694, 0.0246647350433431, 0.0246647350433431, -0.0825476803769015, 
    -0.0825476803769015, 1.46421515764037, 1.46421515764037, 0.57110572331471, 
    0.57110572331471, 1.17451838940961, 1.17451838940961, 0.2246220531006, 
    0.2246220531006, 0.575476300571094, 0.575476300571094, -0.0299892115539154, 
    -0.0299892115539154, -0.0383720982472597, -0.0383720982472597, 
    0.0246647350433432, 0.0246647350433432, 3.55004645202647, 3.55004645202647, 
    -0.0211962882086197, -0.0211962882086197, 0.0436829451771596, 
    0.0436829451771596, 0.873934643231124, 0.873934643231124, 0.98694895353879, 
    0.98694895353879, -0.0397976393266141, -0.0397976393266141, -0.0831642198988523, 
    -0.0831642198988523, 0.295528235993041, 0.295528235993041, 0.0497510197286542, 
    0.0497510197286542, -0.0825476803769015, -0.0825476803769015, 
    -0.0211962882086197, -0.0211962882086197, 1.07460619688167, 1.07460619688167, 
    -0.122431546745058, -0.122431546745058, -0.128608092664628, -0.128608092664628, 
    0.0142635297695141, 0.0142635297695141, 0.343810915084377, 0.343810915084377, 
    0.59879466326766, 0.59879466326766, 0.667669081306976, 0.667669081306976, 
    0.0809145914137106, 0.0809145914137106, 1.46421515764037, 1.46421515764037, 
    0.0436829451771596, 0.0436829451771596, -0.122431546745058, -0.122431546745058, 
    0.788819010597453, 0.788819010597453, 0.479294474550794, 0.479294474550794, 
    0.375249533157307, 0.375249533157307, 0.211971881648202, 0.211971881648202, 
    0.133762468111921, 0.133762468111921, -0.0382178106422439, -0.0382178106422439, 
    0.232673343887963, 0.232673343887963, 0.57110572331471, 0.57110572331471, 
    0.873934643231124, 0.873934643231124, -0.128608092664628, -0.128608092664628, 
    0.479294474550794, 0.479294474550794, 0.875856487379201, 0.875856487379201, 
    0.366159165469243, 0.366159165469243, 0.131458425582372, 0.131458425582372, 
    -0.0375343100887815, -0.0375343100887815, -0.00857034026349026, 
    -0.00857034026349026, -0.193864731313779, -0.193864731313779, 
    1.17451838940961, 1.17451838940961, 0.986948953538791, 0.986948953538791, 
    0.0142635297695141, 0.0142635297695141, 0.375249533157307, 0.375249533157307, 
    0.366159165469243, 0.366159165469243, 0.936573598491109, 0.936573598491109, 
    0.0150360305289539, 0.0150360305289539, 0.103837260433893, 0.103837260433893, 
    0.0901128765294144, 0.0901128765294144, 0.38165905506322, 0.38165905506322, 
    0.2246220531006, 0.2246220531006, -0.0397976393266141, -0.0397976393266141, 
    0.343810915084377, 0.343810915084377, 0.211971881648202, 0.211971881648202, 
    0.131458425582372, 0.131458425582372, 0.015036030528954, 0.015036030528954, 
    0.434430884854665, 0.434430884854665, 0.28004024774446, 0.28004024774446, 
    0.295914931506464, 0.295914931506464, -0.00619358031372457, -0.00619358031372457, 
    0.575476300571094, 0.575476300571094, -0.0831642198988524, -0.0831642198988524, 
    0.598794663267659, 0.598794663267659, 0.133762468111921, 0.133762468111921, 
    -0.0375343100887815, -0.0375343100887815, 0.103837260433893, 
    0.103837260433893, 0.28004024774446, 0.28004024774446, 0.593120159610674, 
    0.593120159610674, 0.411855322039177, 0.411855322039177, 0.111169605381987, 
    0.111169605381987, -0.0299892115539154, -0.0299892115539154, 
    0.295528235993041, 0.295528235993041, 0.667669081306976, 0.667669081306976, 
    -0.0382178106422439, -0.0382178106422439, -0.00857034026349017, 
    -0.00857034026349017, 0.0901128765294143, 0.0901128765294143, 
    0.295914931506464, 0.295914931506464, 0.411855322039177, 0.411855322039177, 
    0.727147557744256, 0.727147557744256, 1.45679664056501, 1.45679664056501, 
    -0.683155437340395, -0.683155437340395, 0.0499706615113581, 0.0499706615113581, 
    0.0569765106507679, 0.0569765106507679, -0.0465889678592255, 
    -0.0465889678592255, 0.83493589652435, 0.83493589652435, -0.422764875185826, 
    -0.422764875185826, 0.396533888743347, 0.396533888743347, -0.00952248196964169, 
    -0.00952248196964169, 0.232425224788046, 0.232425224788046, -0.683155437340395, 
    -0.683155437340395, 4.02476881400125, 4.02476881400125, -0.156898899952286, 
    -0.156898899952286, -0.0709737308637111, -0.0709737308637111, 
    1.58378917157585, 1.58378917157585, 0.568653998993928, 0.568653998993928, 
    1.39699689774294, 1.39699689774294, 0.210622676607638, 0.210622676607638, 
    0.448542111108353, 0.448542111108353, -0.076439494540258, -0.076439494540258, 
    0.0499706615113582, 0.0499706615113582, -0.156898899952286, -0.156898899952286, 
    6.01029980551552, 6.01029980551552, -0.0929997356565117, -0.0929997356565117, 
    -0.141036920178491, -0.141036920178491, 1.10155117896828, 1.10155117896828, 
    1.84499434061904, 1.84499434061904, -0.178554499377008, -0.178554499377008, 
    -0.143956421389847, -0.143956421389847, 0.0120631316839417, 0.0120631316839417, 
    0.0569765106507679, 0.0569765106507679, -0.0709737308637113, 
    -0.0709737308637113, -0.0929997356565118, -0.0929997356565118, 
    0.887635802280085, 0.887635802280085, -0.0948958510073773, -0.0948958510073773, 
    -0.180980294600272, -0.180980294600272, -0.0237927441521238, 
    -0.0237927441521238, 0.387455804133293, 0.387455804133293, 0.559477254901033, 
    0.559477254901033, 0.81530049863908, 0.81530049863908, -0.046588967859226, 
    -0.046588967859226, 1.58378917157586, 1.58378917157586, -0.141036920178491, 
    -0.141036920178491, -0.0948958510073773, -0.0948958510073773, 
    0.692163296068189, 0.692163296068189, 0.38345210890059, 0.38345210890059, 
    0.481358129719869, 0.481358129719869, 0.120682873358302, 0.120682873358302, 
    0.128901049435223, 0.128901049435223, -0.0616869876597757, -0.0616869876597757, 
    0.834935896524351, 0.834935896524351, 0.568653998993928, 0.568653998993928, 
    1.10155117896828, 1.10155117896828, -0.180980294600272, -0.180980294600272, 
    0.38345210890059, 0.38345210890059, 1.39764589789674, 1.39764589789674, 
    0.483931686418075, 0.483931686418075, 0.0966646525855128, 0.0966646525855128, 
    -0.0919232841951113, -0.0919232841951113, -0.127217977567521, 
    -0.127217977567521, -0.422764875185826, -0.422764875185826, 1.39699689774294, 
    1.39699689774294, 1.84499434061904, 1.84499434061904, -0.0237927441521237, 
    -0.0237927441521237, 0.481358129719868, 0.481358129719868, 0.483931686418075, 
    0.483931686418075, 1.42816171702578, 1.42816171702578, -0.0512646922739839, 
    -0.0512646922739839, 0.0787482113204482, 0.0787482113204482, 
    -0.0119890026118048, -0.0119890026118048, 0.396533888743347, 
    0.396533888743347, 0.210622676607638, 0.210622676607638, -0.178554499377008, 
    -0.178554499377008, 0.387455804133293, 0.387455804133293, 0.120682873358302, 
    0.120682873358302, 0.0966646525855126, 0.0966646525855126, -0.0512646922739839, 
    -0.0512646922739839, 0.413365130688995, 0.413365130688995, 0.323806954824336, 
    0.323806954824336, 0.467815102071456, 0.467815102071456, -0.00952248196964164, 
    -0.00952248196964164, 0.448542111108353, 0.448542111108353, -0.143956421389847, 
    -0.143956421389847, 0.559477254901033, 0.559477254901033, 0.128901049435223, 
    0.128901049435223, -0.0919232841951114, -0.0919232841951114, 
    0.0787482113204481, 0.0787482113204481, 0.323806954824336, 0.323806954824336, 
    0.50701414176218, 0.50701414176218, 0.567871370825517, 0.567871370825517, 
    0.232425224788046, 0.232425224788046, -0.0764394945402584, -0.0764394945402584, 
    0.0120631316839418, 0.0120631316839418, 0.81530049863908, 0.81530049863908, 
    -0.0616869876597758, -0.0616869876597758, -0.127217977567521, 
    -0.127217977567521, -0.0119890026118049, -0.0119890026118049, 
    0.467815102071456, 0.467815102071456, 0.567871370825517, 0.567871370825517, 
    1.10243755598769, 1.10243755598769), dim = c(400L, 2L)), R = structure(c(0.806959980781507, 
    0.465060408440976, -0.150128441665351, -0.0471719912293365, -0.0054772639582451, 
    2.50725024855333e-06, -0.136799538325965, -0.0789326551297739, 
    -0.174209775666038, -0.0547386086115597, -0.111801136366216, 
    5.11776370610562e-05, 0, 0, 0.354532266877375, 0.204563359615501, 
    0, 0, 0, 0, -0.150128441665351, -0.0471719912293365, 7.9230671460859, 
    3.62349270122523, 0.0361972235142826, 0.0149117879686751, -0.214116413326821, 
    -0.106856029328221, 3.6412625464539, 1.66352858802637, 2.06703251533228, 
    0.851533559772337, 2.398594608696, 0.988123694447691, 0.853949422876397, 
    0.426168378023487, 0.990927073772286, 0.494527863660399, 0, 0, 
    -0.0054772639582451, 2.50725024855333e-06, 0.0361972235142826, 
    0.0149117879686751, 8.69733503473177, 3.41847801424425, 0.189493776143929, 
    0.0817504911507532, 0.117509859270282, 0.0484092959498918, 2.00265895750927, 
    0.855668117685035, 2.27997194104557, 0.946016883740419, 0.0465430434259688, 
    0.0200793753607706, -0.0257723982217428, -0.011118603764379, 
    0.950030012180137, 0.409857366738483, -0.136799538325965, -0.0789326551297739, 
    -0.214116413326821, -0.106856029328221, 0.189493776143929, 0.0817504911507532, 
    2.1722223602423, 1.12465144133204, -0.382358332009409, -0.190818127878519, 
    -0.366577824373331, -0.158147237325264, 0.110625600716239, 0.0477255632160213, 
    0.511777574086902, 0.259483270921824, 1.18945128595201, 0.601503903730157, 
    1.37673136572012, 0.634520344389605, -0.174209775666038, -0.0547386086115597, 
    3.6412625464539, 1.66352858802637, 0.117509859270282, 0.0484092959498918, 
    -0.382358332009409, -0.190818127878519, 2.3674120720655, 1.07956876767664, 
    2.398594608696, 0.988123694447691, 0, 0, 0.990927073772286, 0.494527863660399, 
    0, 0, 0, 0, -0.111801136366216, 5.11776370610562e-05, 2.06703251533228, 
    0.851533559772337, 2.00265895750927, 0.855668117685035, -0.366577824373331, 
    -0.158147237325264, 2.398594608696, 0.988123694447691, 4.22530983175871, 
    1.65571419776754, 0, 0, 0.950030012180137, 0.409857366738483, 
    0, 0, 0, 0, 0, 0, 2.398594608696, 0.988123694447691, 2.27997194104557, 
    0.946016883740419, 0.110625600716239, 0.0477255632160213, 0, 
    0, 0, 0, 4.22530983175871, 1.65571419776754, 0, 0, 0.950030012180137, 
    0.409857366738483, 0, 0, 0.354532266877375, 0.204563359615501, 
    0.853949422876397, 0.426168378023487, 0.0465430434259688, 0.0200793753607706, 
    0.511777574086902, 0.259483270921824, 0.990927073772286, 0.494527863660399, 
    0.950030012180137, 0.409857366738483, 0, 0, 0.963106686571835, 
    0.507086312724014, 0, 0, 0, 0, 0, 0, 0.990927073772286, 0.494527863660399, 
    -0.0257723982217428, -0.011118603764379, 1.18945128595201, 0.601503903730157, 
    0, 0, 0, 0, 0.950030012180137, 0.409857366738483, 0, 0, 0.963106686571835, 
    0.507086312724014, 0, 0, 0, 0, 0, 0, 0.950030012180137, 0.409857366738483, 
    1.37673136572012, 0.634520344389605, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0.963106686571835, 0.507086312724014, 2.08093044739451, 
    0.84862262686703, 0.396010639366819, 0.208732069812678, -0.174377580742506, 
    -0.0706188642700086, -0.21371840331947, -0.106147457022962, 0.346040574983166, 
    0.182393497232533, 1.59481546108532, 0.64586316717171, 0, 0, 
    0.490855988900573, 0.243793300796854, 0, 0, 0, 0, 0.396010639366819, 
    0.208732069812678, 5.42124565435125, 2.95562102329366, 0.087406269720219, 
    0.0503836240941597, -0.190531545582243, -0.100995971355641, 2.47699601625225, 
    1.34369470963624, 1.6823179487873, 0.969739074895562, 1.47003694454689, 
    0.847373867522966, 0.655365188881407, 0.347392572927932, 0.572668823108076, 
    0.303557313190044, 0, 0, -0.174377580742506, -0.0706188642700086, 
    0.087406269720219, 0.0503836240941597, 11.7312183781339, 5.66918056593509, 
    0.298386087266426, 0.161426505658832, -0.160734261892434, -0.0926521021451085, 
    1.76871980506371, 0.873162746007243, 3.61858598177693, 1.88546724649434, 
    -0.0764076850184071, -0.0413364634758894, 0.128991366705191, 
    0.0697841704958036, 0.698806331033067, 0.378053364298497, -0.21371840331947, 
    -0.106147457022962, -0.190531545582243, -0.100995971355641, 0.298386087266426, 
    0.161426505658832, 1.68431363759095, 0.8263557691304, -0.249339662290011, 
    -0.132168672192906, -0.304259857626339, -0.164604208188228, 0.115698054572502, 
    0.0625925050067354, 0.487559682968211, 0.266208459858374, 0.923068408387677, 
    0.481198978964049, 1.16528653437645, 0.605295996272314, 0.346040574983166, 
    0.182393497232533, 2.47699601625225, 1.34369470963624, -0.160734261892434, 
    -0.0926521021451085, -0.249339662290011, -0.132168672192906, 
    1.11019651400764, 0.605608033733429, 1.47003694454689, 0.847373867522966, 
    0, 0, 0.572668823108076, 0.303557313190044, 0, 0, 0, 0, 1.59481546108532, 
    0.64586316717171, 1.6823179487873, 0.969739074895562, 1.76871980506371, 
    0.873162746007243, -0.304259857626339, -0.164604208188228, 1.47003694454689, 
    0.847373867522966, 5.50645044320905, 2.64237136200273, 0, 0, 
    0.698806331033067, 0.378053364298497, 0, 0, 0, 0, 0, 0, 1.47003694454689, 
    0.847373867522966, 3.61858598177693, 1.88546724649434, 0.115698054572502, 
    0.0625925050067354, 0, 0, 0, 0, 5.50645044320905, 2.64237136200273, 
    0, 0, 0.698806331033067, 0.378053364298497, 0, 0, 0.490855988900573, 
    0.243793300796854, 0.655365188881407, 0.347392572927932, -0.0764076850184071, 
    -0.0413364634758894, 0.487559682968211, 0.266208459858374, 0.572668823108076, 
    0.303557313190044, 0.698806331033067, 0.378053364298497, 0, 0, 
    0.668643329631761, 0.325725012526225, 0, 0, 0, 0, 0, 0, 0.572668823108076, 
    0.303557313190044, 0.128991366705191, 0.0697841704958036, 0.923068408387677, 
    0.481198978964049, 0, 0, 0, 0, 0.698806331033067, 0.378053364298497, 
    0, 0, 0.668643329631761, 0.325725012526225, 0, 0, 0, 0, 0, 0, 
    0.698806331033067, 0.378053364298497, 1.16528653437645, 0.605295996272314, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.668643329631761, 0.325725012526225, 
    0.465060408440976, 0.465060408440976, -0.0471719912293365, -0.0471719912293365, 
    2.50725024855333e-06, 2.50725024855333e-06, -0.0789326551297739, 
    -0.0789326551297739, -0.0547386086115597, -0.0547386086115597, 
    5.11776370610562e-05, 5.11776370610562e-05, 0, 0, 0.204563359615501, 
    0.204563359615501, 0, 0, 0, 0, -0.0471719912293365, -0.0471719912293365, 
    3.62349270122523, 3.62349270122523, 0.0149117879686751, 0.0149117879686751, 
    -0.106856029328221, -0.106856029328221, 1.66352858802637, 1.66352858802637, 
    0.851533559772337, 0.851533559772337, 0.988123694447691, 0.988123694447691, 
    0.426168378023487, 0.426168378023487, 0.494527863660399, 0.494527863660399, 
    0, 0, 2.50725024855333e-06, 2.50725024855333e-06, 0.0149117879686751, 
    0.0149117879686751, 3.41847801424425, 3.41847801424425, 0.0817504911507532, 
    0.0817504911507532, 0.0484092959498918, 0.0484092959498918, 0.855668117685035, 
    0.855668117685035, 0.946016883740419, 0.946016883740419, 0.0200793753607706, 
    0.0200793753607706, -0.011118603764379, -0.011118603764379, 0.409857366738483, 
    0.409857366738483, -0.0789326551297739, -0.0789326551297739, 
    -0.106856029328221, -0.106856029328221, 0.0817504911507532, 0.0817504911507532, 
    1.12465144133204, 1.12465144133204, -0.190818127878519, -0.190818127878519, 
    -0.158147237325264, -0.158147237325264, 0.0477255632160213, 0.0477255632160213, 
    0.259483270921824, 0.259483270921824, 0.601503903730157, 0.601503903730157, 
    0.634520344389605, 0.634520344389605, -0.0547386086115597, -0.0547386086115597, 
    1.66352858802637, 1.66352858802637, 0.0484092959498918, 0.0484092959498918, 
    -0.190818127878519, -0.190818127878519, 1.07956876767664, 1.07956876767664, 
    0.988123694447691, 0.988123694447691, 0, 0, 0.494527863660399, 
    0.494527863660399, 0, 0, 0, 0, 5.11776370610562e-05, 5.11776370610562e-05, 
    0.851533559772337, 0.851533559772337, 0.855668117685035, 0.855668117685035, 
    -0.158147237325264, -0.158147237325264, 0.988123694447691, 0.988123694447691, 
    1.65571419776754, 1.65571419776754, 0, 0, 0.409857366738483, 
    0.409857366738483, 0, 0, 0, 0, 0, 0, 0.988123694447691, 0.988123694447691, 
    0.946016883740419, 0.946016883740419, 0.0477255632160213, 0.0477255632160213, 
    0, 0, 0, 0, 1.65571419776754, 1.65571419776754, 0, 0, 0.409857366738483, 
    0.409857366738483, 0, 0, 0.204563359615501, 0.204563359615501, 
    0.426168378023487, 0.426168378023487, 0.0200793753607706, 0.0200793753607706, 
    0.259483270921824, 0.259483270921824, 0.494527863660399, 0.494527863660399, 
    0.409857366738483, 0.409857366738483, 0, 0, 0.507086312724014, 
    0.507086312724014, 0, 0, 0, 0, 0, 0, 0.494527863660399, 0.494527863660399, 
    -0.011118603764379, -0.011118603764379, 0.601503903730157, 0.601503903730157, 
    0, 0, 0, 0, 0.409857366738483, 0.409857366738483, 0, 0, 0.507086312724014, 
    0.507086312724014, 0, 0, 0, 0, 0, 0, 0.409857366738483, 0.409857366738483, 
    0.634520344389605, 0.634520344389605, 0, 0, 0, 0, 0, 0, 0, 0, 
    0, 0, 0.507086312724014, 0.507086312724014, 0.84862262686703, 
    0.84862262686703, 0.208732069812678, 0.208732069812678, -0.0706188642700086, 
    -0.0706188642700086, -0.106147457022962, -0.106147457022962, 
    0.182393497232533, 0.182393497232533, 0.64586316717171, 0.64586316717171, 
    0, 0, 0.243793300796854, 0.243793300796854, 0, 0, 0, 0, 0.208732069812678, 
    0.208732069812678, 2.95562102329366, 2.95562102329366, 0.0503836240941597, 
    0.0503836240941597, -0.100995971355641, -0.100995971355641, 1.34369470963624, 
    1.34369470963624, 0.969739074895562, 0.969739074895562, 0.847373867522966, 
    0.847373867522966, 0.347392572927932, 0.347392572927932, 0.303557313190044, 
    0.303557313190044, 0, 0, -0.0706188642700086, -0.0706188642700086, 
    0.0503836240941597, 0.0503836240941597, 5.66918056593509, 5.66918056593509, 
    0.161426505658832, 0.161426505658832, -0.0926521021451085, -0.0926521021451085, 
    0.873162746007243, 0.873162746007243, 1.88546724649434, 1.88546724649434, 
    -0.0413364634758894, -0.0413364634758894, 0.0697841704958036, 
    0.0697841704958036, 0.378053364298497, 0.378053364298497, -0.106147457022962, 
    -0.106147457022962, -0.100995971355641, -0.100995971355641, 0.161426505658832, 
    0.161426505658832, 0.8263557691304, 0.8263557691304, -0.132168672192906, 
    -0.132168672192906, -0.164604208188228, -0.164604208188228, 0.0625925050067354, 
    0.0625925050067354, 0.266208459858374, 0.266208459858374, 0.481198978964049, 
    0.481198978964049, 0.605295996272314, 0.605295996272314, 0.182393497232533, 
    0.182393497232533, 1.34369470963624, 1.34369470963624, -0.0926521021451085, 
    -0.0926521021451085, -0.132168672192906, -0.132168672192906, 
    0.605608033733429, 0.605608033733429, 0.847373867522966, 0.847373867522966, 
    0, 0, 0.303557313190044, 0.303557313190044, 0, 0, 0, 0, 0.64586316717171, 
    0.64586316717171, 0.969739074895562, 0.969739074895562, 0.873162746007243, 
    0.873162746007243, -0.164604208188228, -0.164604208188228, 0.847373867522966, 
    0.847373867522966, 2.64237136200273, 2.64237136200273, 0, 0, 
    0.378053364298497, 0.378053364298497, 0, 0, 0, 0, 0, 0, 0.847373867522966, 
    0.847373867522966, 1.88546724649434, 1.88546724649434, 0.0625925050067354, 
    0.0625925050067354, 0, 0, 0, 0, 2.64237136200273, 2.64237136200273, 
    0, 0, 0.378053364298497, 0.378053364298497, 0, 0, 0.243793300796854, 
    0.243793300796854, 0.347392572927932, 0.347392572927932, -0.0413364634758894, 
    -0.0413364634758894, 0.266208459858374, 0.266208459858374, 0.303557313190044, 
    0.303557313190044, 0.378053364298497, 0.378053364298497, 0, 0, 
    0.325725012526225, 0.325725012526225, 0, 0, 0, 0, 0, 0, 0.303557313190044, 
    0.303557313190044, 0.0697841704958036, 0.0697841704958036, 0.481198978964049, 
    0.481198978964049, 0, 0, 0, 0, 0.378053364298497, 0.378053364298497, 
    0, 0, 0.325725012526225, 0.325725012526225, 0, 0, 0, 0, 0, 0, 
    0.378053364298497, 0.378053364298497, 0.605295996272314, 0.605295996272314, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.325725012526225, 0.325725012526225
    ), dim = c(400L, 2L)))

# h_get_kr_comp works as expected on adh ungrouped mmrm

    list(P = structure(c(-0.199998493859364, -0.0338505029498785, 
    -7.46984210486336, -3.79552782010193, -10.6223174582717, -4.77109384821867, 
    -0.923352021256601, -0.467001693195501, 0.337666061800144, 0.174969915857332, 
    -7.15256781743186, -3.49251066423575, -0.498033165968337, -0.245336038102161, 
    -0.0338505029498785, -0.0338505029498785, -3.79552782010193, 
    -3.79552782010193, -4.77109384821867, -4.77109384821867, -0.467001693195501, 
    -0.467001693195501, 0.174969915857332, 0.174969915857332, -3.49251066423575, 
    -3.49251066423575, -0.245336038102161, -0.245336038102161), dim = c(14L, 
    2L)), Q = structure(c(2.66994955045082, 1.2499432082193, -2.27410161435588, 
    -1.18437421745564, 0.00397307973192792, 0.00202767603424579, 
    0.000175971891870223, 0.00010433910185568, 1.09383741212022, 
    0.570596573095757, 0.296190663721209, 0.0508008322479264, -0.0011527818463965, 
    -0.000606376281817073, -2.27410161435588, -1.18437421745564, 
    17.2197224082459, 8.77843464492795, -0.00475683985819714, -0.0023888335498068, 
    -0.00117974430513892, -0.000615953718622215, -1.76662309977278, 
    -0.920088203049556, 6.82614406444955, 3.42752520050334, -0.0153348367422203, 
    -0.00825895206829987, 0.00397307973192791, 0.00202767603424578, 
    -0.00475683985819708, -0.00238883354980677, 21.6341849175066, 
    9.73457571117222, -0.388766240836767, -0.192026857219316, -0.00232281839228216, 
    -0.000330583318702068, 6.80015956480189, 3.30096116643757, -0.456961773432882, 
    -0.225689745634572, 0.000175971891870222, 0.00010433910185568, 
    -0.00117974430513891, -0.000615953718622213, -0.388766240836766, 
    -0.192026857219316, 2.23647405576324, 1.12654185822708, -0.000223617555450565, 
    -0.000117618442161413, 0.382641341891039, 0.205734129282669, 
    1.46951572395817, 0.72522715018901, 1.09383741212022, 0.570596573095757, 
    -1.76662309977278, -0.920088203049556, -0.00232281839228217, 
    -0.00033058331870207, -0.000223617555450565, -0.000117618442161412, 
    0.949616129254575, 0.494584889504873, -0.143482297194607, -0.0721561041406843, 
    0.000252195283908835, 0.000149244323088103, 0.296190663721209, 
    0.0508008322479266, 6.82614406444955, 3.42752520050334, 6.8001595648019, 
    3.30096116643758, 0.382641341891038, 0.205734129282669, -0.143482297194607, 
    -0.0721561041406843, 7.21425095396832, 3.52338225982823, 0.158413614747846, 
    0.0804034619712102, -0.0011527818463965, -0.000606376281817074, 
    -0.0153348367422203, -0.00825895206829987, -0.456961773432882, 
    -0.225689745634572, 1.46951572395817, 0.72522715018901, 0.000252195283908835, 
    0.000149244323088102, 0.158413614747846, 0.0804034619712104, 
    2.49705168003477, 1.23349408163164, 1.2499432082193, 1.2499432082193, 
    -1.18437421745564, -1.18437421745564, 0.00202767603424579, 0.00202767603424579, 
    0.00010433910185568, 0.00010433910185568, 0.570596573095757, 
    0.570596573095757, 0.0508008322479264, 0.0508008322479264, -0.000606376281817073, 
    -0.000606376281817073, -1.18437421745564, -1.18437421745564, 
    8.77843464492795, 8.77843464492795, -0.0023888335498068, -0.0023888335498068, 
    -0.000615953718622215, -0.000615953718622215, -0.920088203049556, 
    -0.920088203049556, 3.42752520050334, 3.42752520050334, -0.00825895206829987, 
    -0.00825895206829987, 0.00202767603424578, 0.00202767603424578, 
    -0.00238883354980677, -0.00238883354980677, 9.73457571117222, 
    9.73457571117222, -0.192026857219316, -0.192026857219316, -0.000330583318702068, 
    -0.000330583318702068, 3.30096116643757, 3.30096116643757, -0.225689745634572, 
    -0.225689745634572, 0.00010433910185568, 0.00010433910185568, 
    -0.000615953718622213, -0.000615953718622213, -0.192026857219316, 
    -0.192026857219316, 1.12654185822708, 1.12654185822708, -0.000117618442161413, 
    -0.000117618442161413, 0.205734129282669, 0.205734129282669, 
    0.72522715018901, 0.72522715018901, 0.570596573095757, 0.570596573095757, 
    -0.920088203049556, -0.920088203049556, -0.00033058331870207, 
    -0.00033058331870207, -0.000117618442161412, -0.000117618442161412, 
    0.494584889504873, 0.494584889504873, -0.0721561041406843, -0.0721561041406843, 
    0.000149244323088103, 0.000149244323088103, 0.0508008322479266, 
    0.0508008322479266, 3.42752520050334, 3.42752520050334, 3.30096116643758, 
    3.30096116643758, 0.205734129282669, 0.205734129282669, -0.0721561041406843, 
    -0.0721561041406843, 3.52338225982823, 3.52338225982823, 0.0804034619712102, 
    0.0804034619712102, -0.000606376281817074, -0.000606376281817074, 
    -0.00825895206829987, -0.00825895206829987, -0.225689745634572, 
    -0.225689745634572, 0.72522715018901, 0.72522715018901, 0.000149244323088102, 
    0.000149244323088102, 0.0804034619712104, 0.0804034619712104, 
    1.23349408163164, 1.23349408163164), dim = c(98L, 2L)), R = structure(c(1.04779440132992, 
    0.40337305522532, -0.647261105894036, -0.33700774594372, -0.000285113792096988, 
    0.00145600261924331, -0.000251193925056316, -0.000120306001086874, 
    -0.337666061800144, -0.174969915857331, 0.0335702207596369, -0.0836080274537508, 
    -0.000673919354171823, -0.000322764742568052, -0.647261105894036, 
    -0.33700774594372, 15.7006762730913, 7.98519437928407, -0.1068792415474, 
    -0.0534604480151164, -0.00685171592314677, -0.00367054512137328, 
    -0.337386510028311, -0.175666151142215, 7.11899759667222, 3.57611869168951, 
    -0.0183822278698048, -0.00984757651722605, -0.000285113792096988, 
    0.00145600261924331, -0.1068792415474, -0.0534604480151164, 21.1590615305177, 
    9.49895574609604, 0.19273774136532, 0.0952363957371877, -0.000148616294723383, 
    0.000758945096229841, 6.70796065625647, 3.2552220611118, 0.517089313192315, 
    0.255506379361955, -0.000251193925056316, -0.000120306001086874, 
    -0.00685171592314677, -0.00367054512137328, 0.19273774136532, 
    0.0952363957371877, 1.66106921099609, 0.842557841776273, -0.000130935477110125, 
    -6.2709811345913e-05, 0.444607161175376, 0.237288603123955, 0.498033165968339, 
    0.245336038102161, -0.337666061800144, -0.174969915857331, -0.337386510028312, 
    -0.175666151142216, -0.000148616294723375, 0.000758945096229845, 
    -0.000130935477110125, -6.27098113459132e-05, 0.506388250263545, 
    0.262397438070621, 0.0174985635933248, -0.0435808985525399, -0.000351282190253814, 
    -0.000168241949135513, 0.0335702207596369, -0.0836080274537508, 
    7.11899759667222, 3.57611869168951, 6.70796065625647, 3.2552220611118, 
    0.444607161175376, 0.237288603123955, 0.0174985635933259, -0.0435808985525394, 
    0.342626969939535, 0.167300524358854, 1.19282092850096, 0.636613254615048, 
    -0.000673919354171823, -0.000322764742568052, -0.0183822278698048, 
    -0.00984757651722605, 0.517089313192315, 0.255506379361955, 0.498033165968339, 
    0.245336038102161, -0.000351282190253813, -0.000168241949135513, 
    1.19282092850096, 0.636613254615048, -0.450132545185531, -0.221739720972079, 
    0.40337305522532, 0.40337305522532, -0.33700774594372, -0.33700774594372, 
    0.00145600261924331, 0.00145600261924331, -0.000120306001086874, 
    -0.000120306001086874, -0.174969915857331, -0.174969915857331, 
    -0.0836080274537508, -0.0836080274537508, -0.000322764742568052, 
    -0.000322764742568052, -0.33700774594372, -0.33700774594372, 
    7.98519437928407, 7.98519437928407, -0.0534604480151164, -0.0534604480151164, 
    -0.00367054512137328, -0.00367054512137328, -0.175666151142215, 
    -0.175666151142215, 3.57611869168951, 3.57611869168951, -0.00984757651722605, 
    -0.00984757651722605, 0.00145600261924331, 0.00145600261924331, 
    -0.0534604480151164, -0.0534604480151164, 9.49895574609604, 9.49895574609604, 
    0.0952363957371877, 0.0952363957371877, 0.000758945096229841, 
    0.000758945096229841, 3.2552220611118, 3.2552220611118, 0.255506379361955, 
    0.255506379361955, -0.000120306001086874, -0.000120306001086874, 
    -0.00367054512137328, -0.00367054512137328, 0.0952363957371877, 
    0.0952363957371877, 0.842557841776273, 0.842557841776273, -6.2709811345913e-05, 
    -6.2709811345913e-05, 0.237288603123955, 0.237288603123955, 0.245336038102161, 
    0.245336038102161, -0.174969915857331, -0.174969915857331, -0.175666151142216, 
    -0.175666151142216, 0.000758945096229845, 0.000758945096229845, 
    -6.27098113459132e-05, -6.27098113459132e-05, 0.262397438070621, 
    0.262397438070621, -0.0435808985525399, -0.0435808985525399, 
    -0.000168241949135513, -0.000168241949135513, -0.0836080274537508, 
    -0.0836080274537508, 3.57611869168951, 3.57611869168951, 3.2552220611118, 
    3.2552220611118, 0.237288603123955, 0.237288603123955, -0.0435808985525394, 
    -0.0435808985525394, 0.167300524358854, 0.167300524358854, 0.636613254615048, 
    0.636613254615048, -0.000322764742568052, -0.000322764742568052, 
    -0.00984757651722605, -0.00984757651722605, 0.255506379361955, 
    0.255506379361955, 0.245336038102161, 0.245336038102161, -0.000168241949135513, 
    -0.000168241949135513, 0.636613254615048, 0.636613254615048, 
    -0.221739720972079, -0.221739720972079), dim = c(98L, 2L)))

# h_get_kr_comp works as expected on adh grouped mmrm

    list(P = structure(c(-0.0651649024101271, -0.0481904987545267, 
    -3.71756084505125, -1.72791260195227, -4.45056966881246, -1.76012067194773, 
    -0.643839128385075, -0.329112807920804, 0.200045098836735, 0.0998867544950931, 
    -3.14900301934906, -1.34388953709984, -0.572141634618655, -0.242447521224394, 
    -0.122558165148272, 0.0382515860233461, -3.83431198575756, -2.09762820552378, 
    -6.35978294252535, -3.14429904450492, -0.284016588832016, -0.121827877345612, 
    0.15096608861453, 0.0786637604740175, -4.10217068434331, -2.18241470076928, 
    0.0824304238939354, 0.0445719808599124, -0.0481904987545267, 
    -0.0481904987545267, -1.72791260195227, -1.72791260195227, -1.76012067194773, 
    -1.76012067194773, -0.329112807920804, -0.329112807920804, 0.0998867544950931, 
    0.0998867544950931, -1.34388953709984, -1.34388953709984, -0.242447521224394, 
    -0.242447521224394, 0.0382515860233461, 0.0382515860233461, -2.09762820552378, 
    -2.09762820552378, -3.14429904450492, -3.14429904450492, -0.121827877345612, 
    -0.121827877345612, 0.0786637604740175, 0.0786637604740175, -2.18241470076928, 
    -2.18241470076928, 0.0445719808599124, 0.0445719808599124), dim = c(28L, 
    2L)), Q = structure(c(0.970557923816554, 0.516497993244614, -0.838412910909378, 
    -0.419316461882817, -0.00171967917633673, -0.000751652215158456, 
    -9.55289105837933e-05, -4.88816375847298e-05, 0.501511661050996, 
    0.250893030770849, 0.0260825465436639, 0.0305435437676028, 0.000844304456001384, 
    0.000417550848593389, -0.83841291090938, -0.419316461882818, 
    8.27267170866117, 3.87474179295433, -5.13495747022347e-05, 1.27158080316045e-05, 
    0.000914241925418845, 0.000387157024997438, -0.901894315490701, 
    -0.451025033249842, 3.13418912768821, 1.31815522056415, 0.0108811587475537, 
    0.00604187100786144, -0.00171967917633673, -0.000751652215158454, 
    -5.1349574702216e-05, 1.27158080316115e-05, 8.98804567766605, 
    3.5568220325484, -0.0851353112900849, -0.035841752245825, 0.00014729072294906, 
    0.000286701340352447, 2.9731720810779, 1.248383904193, 0.272523291323963, 
    0.114765984852745, -9.55289105837926e-05, -4.88816375847294e-05, 
    0.000914241925418845, 0.000387157024997438, -0.0851353112900849, 
    -0.035841752245825, 1.3719948550454, 0.69372909270002, 0.000145166043286004, 
    7.17921484536436e-05, 0.164562283388355, 0.0906964056749341, 
    0.860034514709793, 0.363669635739587, 0.501511661050997, 0.25089303077085, 
    -0.901894315490701, -0.451025033249842, 0.000147290722949065, 
    0.000286701340352449, 0.000145166043286004, 7.17921484536438e-05, 
    0.619395885311173, 0.309699390413276, -0.0715911298858738, -0.0311914678068739, 
    -0.000274168376567095, -0.000140341586499261, 0.0260825465436638, 
    0.0305435437676028, 3.13418912768821, 1.31815522056415, 2.9731720810779, 
    1.248383904193, 0.164562283388355, 0.0906964056749341, -0.0715911298858739, 
    -0.0311914678068739, 3.05733903962127, 1.28675278458534, 0.198539088684874, 
    0.0828944221249133, 0.000844304456001384, 0.000417550848593389, 
    0.0108811587475537, 0.00604187100786145, 0.272523291323963, 0.114765984852745, 
    0.860034514709793, 0.363669635739587, -0.000274168376567097, 
    -0.000140341586499262, 0.198539088684874, 0.0828944221249133, 
    1.1835047428722, 0.498347308719806, 1.86090632254487, 0.793224236993685, 
    -1.62345745139854, -0.874346797597236, 0.00728581592925054, 0.00450032187424458, 
    0.000381643220971998, 0.000119066682614241, 0.580618371636674, 
    0.315198326559312, 0.305965798358663, 0.00840342896648296, -0.000577430709512024, 
    -0.000652023588135316, -1.62345745139855, -0.874346797597238, 
    9.30836706333005, 5.07884752672705, -0.0161606066381669, -0.00929465074200784, 
    -0.000125033778220983, 5.03326597564921e-05, -0.877003577761416, 
    -0.472296339314683, 3.73674265351868, 2.14386224292653, -0.0168463328034341, 
    -0.00776368133965639, 0.00728581592925056, 0.00450032187424459, 
    -0.016160606638167, -0.00929465074200787, 13.0865605846564, 6.49236078436186, 
    -0.35811990889673, -0.198968366484254, -0.00544369286090146, 
    -0.00011209402692559, 3.97716974525771, 2.1234455344537, -0.78207045003099, 
    -0.434508959200361, 0.000381643220972, 0.000119066682614243, 
    -0.000125033778220968, 5.03326597565006e-05, -0.35811990889673, 
    -0.198968366484254, 0.925896477118012, 0.442454721833107, -0.000103278243418352, 
    -0.000117414165739022, 0.184463171551563, 0.0891181951918551, 
    0.634633365756063, 0.353780702408328, 0.580618371636676, 0.315198326559313, 
    -0.877003577761415, -0.472296339314683, -0.00544369286090147, 
    -0.00011209402692559, -0.000103278243418353, -0.000117414165739023, 
    0.348697642943256, 0.187717544100493, -0.074351927529349, -0.0388491609153247, 
    0.00028402601718668, 9.35377388881428e-05, 0.305965798358662, 
    0.00840342896648275, 3.73674265351868, 2.14386224292653, 3.97716974525771, 
    2.1234455344537, 0.184463171551563, 0.0891181951918551, -0.0743519275293496, 
    -0.038849160915325, 4.29307219615301, 2.30901914197571, -0.0274271946823554, 
    -0.0151717280988291, -0.000577430709512015, -0.00065202358813531, 
    -0.0168463328034341, -0.00776368133965638, -0.78207045003099, 
    -0.434508959200361, 0.634633365756064, 0.353780702408328, 0.000284026017186685, 
    9.35377388881455e-05, -0.0274271946823553, -0.015171728098829, 
    1.43965063799756, 0.799749794516437, 0.516497993244614, 0.516497993244614, 
    -0.419316461882817, -0.419316461882817, -0.000751652215158456, 
    -0.000751652215158456, -4.88816375847298e-05, -4.88816375847298e-05, 
    0.250893030770849, 0.250893030770849, 0.0305435437676028, 0.0305435437676028, 
    0.000417550848593389, 0.000417550848593389, -0.419316461882818, 
    -0.419316461882818, 3.87474179295433, 3.87474179295433, 1.27158080316045e-05, 
    1.27158080316045e-05, 0.000387157024997438, 0.000387157024997438, 
    -0.451025033249842, -0.451025033249842, 1.31815522056415, 1.31815522056415, 
    0.00604187100786144, 0.00604187100786144, -0.000751652215158454, 
    -0.000751652215158454, 1.27158080316115e-05, 1.27158080316115e-05, 
    3.5568220325484, 3.5568220325484, -0.035841752245825, -0.035841752245825, 
    0.000286701340352447, 0.000286701340352447, 1.248383904193, 1.248383904193, 
    0.114765984852745, 0.114765984852745, -4.88816375847294e-05, 
    -4.88816375847294e-05, 0.000387157024997438, 0.000387157024997438, 
    -0.035841752245825, -0.035841752245825, 0.69372909270002, 0.69372909270002, 
    7.17921484536436e-05, 7.17921484536436e-05, 0.0906964056749341, 
    0.0906964056749341, 0.363669635739587, 0.363669635739587, 0.25089303077085, 
    0.25089303077085, -0.451025033249842, -0.451025033249842, 0.000286701340352449, 
    0.000286701340352449, 7.17921484536438e-05, 7.17921484536438e-05, 
    0.309699390413276, 0.309699390413276, -0.0311914678068739, -0.0311914678068739, 
    -0.000140341586499261, -0.000140341586499261, 0.0305435437676028, 
    0.0305435437676028, 1.31815522056415, 1.31815522056415, 1.248383904193, 
    1.248383904193, 0.0906964056749341, 0.0906964056749341, -0.0311914678068739, 
    -0.0311914678068739, 1.28675278458534, 1.28675278458534, 0.0828944221249133, 
    0.0828944221249133, 0.000417550848593389, 0.000417550848593389, 
    0.00604187100786145, 0.00604187100786145, 0.114765984852745, 
    0.114765984852745, 0.363669635739587, 0.363669635739587, -0.000140341586499262, 
    -0.000140341586499262, 0.0828944221249133, 0.0828944221249133, 
    0.498347308719806, 0.498347308719806, 0.793224236993685, 0.793224236993685, 
    -0.874346797597236, -0.874346797597236, 0.00450032187424458, 
    0.00450032187424458, 0.000119066682614241, 0.000119066682614241, 
    0.315198326559312, 0.315198326559312, 0.00840342896648296, 0.00840342896648296, 
    -0.000652023588135316, -0.000652023588135316, -0.874346797597238, 
    -0.874346797597238, 5.07884752672705, 5.07884752672705, -0.00929465074200784, 
    -0.00929465074200784, 5.03326597564921e-05, 5.03326597564921e-05, 
    -0.472296339314683, -0.472296339314683, 2.14386224292653, 2.14386224292653, 
    -0.00776368133965639, -0.00776368133965639, 0.00450032187424459, 
    0.00450032187424459, -0.00929465074200787, -0.00929465074200787, 
    6.49236078436186, 6.49236078436186, -0.198968366484254, -0.198968366484254, 
    -0.00011209402692559, -0.00011209402692559, 2.1234455344537, 
    2.1234455344537, -0.434508959200361, -0.434508959200361, 0.000119066682614243, 
    0.000119066682614243, 5.03326597565006e-05, 5.03326597565006e-05, 
    -0.198968366484254, -0.198968366484254, 0.442454721833107, 0.442454721833107, 
    -0.000117414165739022, -0.000117414165739022, 0.0891181951918551, 
    0.0891181951918551, 0.353780702408328, 0.353780702408328, 0.315198326559313, 
    0.315198326559313, -0.472296339314683, -0.472296339314683, -0.00011209402692559, 
    -0.00011209402692559, -0.000117414165739023, -0.000117414165739023, 
    0.187717544100493, 0.187717544100493, -0.0388491609153247, -0.0388491609153247, 
    9.35377388881428e-05, 9.35377388881428e-05, 0.00840342896648275, 
    0.00840342896648275, 2.14386224292653, 2.14386224292653, 2.1234455344537, 
    2.1234455344537, 0.0891181951918551, 0.0891181951918551, -0.038849160915325, 
    -0.038849160915325, 2.30901914197571, 2.30901914197571, -0.0151717280988291, 
    -0.0151717280988291, -0.00065202358813531, -0.00065202358813531, 
    -0.00776368133965638, -0.00776368133965638, -0.434508959200361, 
    -0.434508959200361, 0.353780702408328, 0.353780702408328, 9.35377388881455e-05, 
    9.35377388881455e-05, -0.015171728098829, -0.015171728098829, 
    0.799749794516437, 0.799749794516437), dim = c(196L, 2L)), R = structure(c(0.412912202599812, 
    0.237480373378682, -0.281230242212267, -0.140835133962389, -0.00146240340295851, 
    -0.000317131460487939, 0.000110247835666731, 5.28895532476993e-05, 
    -0.200045098836735, -0.0998867544950932, -0.0778955083822437, 
    -0.0152225514565592, 0.000454081776976727, 0.000217838129673758, 
    -0.281230242212267, -0.140835133962389, 7.66033754971461, 3.57306807927229, 
    0.0524451567350758, 0.0217299807857399, 0.00356922586509131, 
    0.00186227780890339, -0.199087883892608, -0.0996996929552871, 
    3.22689852773131, 1.3591120885564, 0.014700700593808, 0.00767023145241078, 
    -0.00146240340295851, -0.000317131460487939, 0.0524451567350758, 
    0.0217299807857399, 8.71492412602505, 3.44187912291535, 0.135232458267755, 
    0.0569493716548446, -0.00103526134530228, -0.000224502994015348, 
    2.93703445490814, 1.23355982436521, 0.55698685224787, 0.234559451642309, 
    0.000110247835666731, 5.28895532476993e-05, 0.00356922586509131, 
    0.00186227780890339, 0.135232458267755, 0.0569493716548446, 1.14876632480164, 
    0.599361076824612, 7.80464011763824e-05, 3.74414542094745e-05, 
    0.211968564440926, 0.110329712734636, 0.572141634618655, 0.242447521224394, 
    -0.200045098836735, -0.0998867544950932, -0.199087883892608, 
    -0.099699692955287, -0.00103526134530228, -0.000224502994015349, 
    7.80464011763819e-05, 3.74414542094742e-05, 0.295160022774761, 
    0.147379650404385, -0.0551436140244644, -0.0107763145709105, 
    0.000321452555675922, 0.000154211481406534, -0.0778955083822437, 
    -0.0152225514565592, 3.22689852773131, 1.3591120885564, 2.93703445490814, 
    1.23355982436521, 0.211968564440926, 0.110329712734636, -0.0551436140244641, 
    -0.0107763145709104, -0.163887960133049, -0.0699419192443228, 
    0.873042648161359, 0.454419007039002, 0.000454081776976727, 0.000217838129673758, 
    0.014700700593808, 0.00767023145241078, 0.55698685224787, 0.234559451642309, 
    0.572141634618655, 0.242447521224394, 0.000321452555675924, 0.000154211481406535, 
    0.873042648161358, 0.454419007039002, -0.375734797606488, -0.159219264611218, 
    0.665920458276907, 0.142764846577321, -0.414571456721853, -0.223585585769347, 
    -0.00633372019300415, 0.00452092545173804, 0.000101048934494407, 
    -0.000203358306404576, -0.150966088614529, -0.0786637604740175, 
    0.13336630496408, -0.0923870284063589, 0.000199369769176782, 
    -0.000401226384136742, -0.414571456721853, -0.223585585769347, 
    8.26867145977783, 4.52515139303254, -0.177099274958902, -0.102560577259905, 
    -0.00837675658194904, -0.00374881895572721, -0.148730079176995, 
    -0.0802127144431478, 3.96880437937923, 2.27480172917564, -0.0165273590914083, 
    -0.00739642801409493, -0.00633372019300415, 0.00452092545173804, 
    -0.177099274958902, -0.102560577259905, 12.9365023577285, 6.40527650697121, 
    -0.0335034775258938, -0.0186387661531941, -0.00227226136897908, 
    0.00162191002175391, 3.92508761608473, 2.09784626194878, -0.066102434571704, 
    -0.0367743264616807, 0.000101048934494407, -0.000203358306404576, 
    -0.00837675658194904, -0.00374881895572721, -0.0335034775258938, 
    -0.0186387661531941, 0.609812362837381, 0.26624669810655, 3.62519314449273e-05, 
    -7.29560526236246e-05, 0.177083068258586, 0.0845684388205002, 
    -0.0824304238939355, -0.0445719808599124, -0.150966088614529, 
    -0.0786637604740175, -0.148730079176995, -0.0802127144431477, 
    -0.00227226136897905, 0.00162191002175392, 3.6251931444927e-05, 
    -7.29560526236247e-05, 0.223593998874818, 0.116507918648053, 
    0.0478459883700078, -0.0331444189584526, 7.15251401763946e-05, 
    -0.000143942451688357, 0.13336630496408, -0.0923870284063589, 
    3.96880437937923, 2.27480172917564, 3.92508761608473, 2.09784626194878, 
    0.177083068258586, 0.0845684388205002, 0.047845988370008, -0.0331444189584524, 
    0.572632962211662, 0.304649097036744, 0.34938528170017, 0.166853715099956, 
    0.000199369769176782, -0.000401226384136742, -0.0165273590914083, 
    -0.00739642801409493, -0.066102434571704, -0.0367743264616807, 
    -0.0824304238939355, -0.0445719808599124, 7.1525140176396e-05, 
    -0.000143942451688356, 0.34938528170017, 0.166853715099956, 0.0894949627535054, 
    0.0483919356285306, 0.237480373378682, 0.237480373378682, -0.140835133962389, 
    -0.140835133962389, -0.000317131460487939, -0.000317131460487939, 
    5.28895532476993e-05, 5.28895532476993e-05, -0.0998867544950932, 
    -0.0998867544950932, -0.0152225514565592, -0.0152225514565592, 
    0.000217838129673758, 0.000217838129673758, -0.140835133962389, 
    -0.140835133962389, 3.57306807927229, 3.57306807927229, 0.0217299807857399, 
    0.0217299807857399, 0.00186227780890339, 0.00186227780890339, 
    -0.0996996929552871, -0.0996996929552871, 1.3591120885564, 1.3591120885564, 
    0.00767023145241078, 0.00767023145241078, -0.000317131460487939, 
    -0.000317131460487939, 0.0217299807857399, 0.0217299807857399, 
    3.44187912291535, 3.44187912291535, 0.0569493716548446, 0.0569493716548446, 
    -0.000224502994015348, -0.000224502994015348, 1.23355982436521, 
    1.23355982436521, 0.234559451642309, 0.234559451642309, 5.28895532476993e-05, 
    5.28895532476993e-05, 0.00186227780890339, 0.00186227780890339, 
    0.0569493716548446, 0.0569493716548446, 0.599361076824612, 0.599361076824612, 
    3.74414542094745e-05, 3.74414542094745e-05, 0.110329712734636, 
    0.110329712734636, 0.242447521224394, 0.242447521224394, -0.0998867544950932, 
    -0.0998867544950932, -0.099699692955287, -0.099699692955287, 
    -0.000224502994015349, -0.000224502994015349, 3.74414542094742e-05, 
    3.74414542094742e-05, 0.147379650404385, 0.147379650404385, -0.0107763145709105, 
    -0.0107763145709105, 0.000154211481406534, 0.000154211481406534, 
    -0.0152225514565592, -0.0152225514565592, 1.3591120885564, 1.3591120885564, 
    1.23355982436521, 1.23355982436521, 0.110329712734636, 0.110329712734636, 
    -0.0107763145709104, -0.0107763145709104, -0.0699419192443228, 
    -0.0699419192443228, 0.454419007039002, 0.454419007039002, 0.000217838129673758, 
    0.000217838129673758, 0.00767023145241078, 0.00767023145241078, 
    0.234559451642309, 0.234559451642309, 0.242447521224394, 0.242447521224394, 
    0.000154211481406535, 0.000154211481406535, 0.454419007039002, 
    0.454419007039002, -0.159219264611218, -0.159219264611218, 0.142764846577321, 
    0.142764846577321, -0.223585585769347, -0.223585585769347, 0.00452092545173804, 
    0.00452092545173804, -0.000203358306404576, -0.000203358306404576, 
    -0.0786637604740175, -0.0786637604740175, -0.0923870284063589, 
    -0.0923870284063589, -0.000401226384136742, -0.000401226384136742, 
    -0.223585585769347, -0.223585585769347, 4.52515139303254, 4.52515139303254, 
    -0.102560577259905, -0.102560577259905, -0.00374881895572721, 
    -0.00374881895572721, -0.0802127144431478, -0.0802127144431478, 
    2.27480172917564, 2.27480172917564, -0.00739642801409493, -0.00739642801409493, 
    0.00452092545173804, 0.00452092545173804, -0.102560577259905, 
    -0.102560577259905, 6.40527650697121, 6.40527650697121, -0.0186387661531941, 
    -0.0186387661531941, 0.00162191002175391, 0.00162191002175391, 
    2.09784626194878, 2.09784626194878, -0.0367743264616807, -0.0367743264616807, 
    -0.000203358306404576, -0.000203358306404576, -0.00374881895572721, 
    -0.00374881895572721, -0.0186387661531941, -0.0186387661531941, 
    0.26624669810655, 0.26624669810655, -7.29560526236246e-05, -7.29560526236246e-05, 
    0.0845684388205002, 0.0845684388205002, -0.0445719808599124, 
    -0.0445719808599124, -0.0786637604740175, -0.0786637604740175, 
    -0.0802127144431477, -0.0802127144431477, 0.00162191002175392, 
    0.00162191002175392, -7.29560526236247e-05, -7.29560526236247e-05, 
    0.116507918648053, 0.116507918648053, -0.0331444189584526, -0.0331444189584526, 
    -0.000143942451688357, -0.000143942451688357, -0.0923870284063589, 
    -0.0923870284063589, 2.27480172917564, 2.27480172917564, 2.09784626194878, 
    2.09784626194878, 0.0845684388205002, 0.0845684388205002, -0.0331444189584524, 
    -0.0331444189584524, 0.304649097036744, 0.304649097036744, 0.166853715099956, 
    0.166853715099956, -0.000401226384136742, -0.000401226384136742, 
    -0.00739642801409493, -0.00739642801409493, -0.0367743264616807, 
    -0.0367743264616807, -0.0445719808599124, -0.0445719808599124, 
    -0.000143942451688356, -0.000143942451688356, 0.166853715099956, 
    0.166853715099956, 0.0483919356285306, 0.0483919356285306), dim = c(196L, 
    2L)))

# h_get_kr_comp works as expected on ad ungrouped mmrm

    list(P = structure(c(-15.8993698389697, -7.68775292928497, -0.0427459571922485, 
    -0.0728124759607912, -6.90291962788626, -3.38002577170616, -0.528264413533309, 
    -0.229683903125313, -7.68775292928497, -7.68775292928497, -0.0728124759607912, 
    -0.0728124759607912, -3.38002577170616, -3.38002577170616, -0.229683903125313, 
    -0.229683903125313), dim = c(8L, 2L)), Q = structure(c(31.7987396779393, 
    15.3755058585699, 0.0854919143844969, 0.145624951921582, 13.8058392557725, 
    6.76005154341231, 1.05652882706662, 0.459367806250627, 0.0854919143844969, 
    0.145624951921582, 0.163519592681788, 0.0667423522809982, 0.0786683221085024, 
    0.0694168638072341, -0.121998549309934, -0.0624519452337463, 
    13.8058392557725, 6.76005154341231, 0.0786683221085025, 0.0694168638072341, 
    8.45946044094796, 4.18248155650054, 0.650865710916738, 0.327559170380666, 
    1.05652882706662, 0.459367806250627, -0.121998549309934, -0.0624519452337463, 
    0.650865710916737, 0.327559170380666, 1.24279483199986, 0.631405824013756, 
    15.3755058585699, 15.3755058585699, 0.145624951921582, 0.145624951921582, 
    6.76005154341231, 6.76005154341231, 0.459367806250627, 0.459367806250627, 
    0.145624951921582, 0.145624951921582, 0.0667423522809982, 0.0667423522809982, 
    0.0694168638072341, 0.0694168638072341, -0.0624519452337463, 
    -0.0624519452337463, 6.76005154341231, 6.76005154341231, 0.0694168638072341, 
    0.0694168638072341, 4.18248155650054, 4.18248155650054, 0.327559170380666, 
    0.327559170380666, 0.459367806250627, 0.459367806250627, -0.0624519452337463, 
    -0.0624519452337463, 0.327559170380666, 0.327559170380666, 0.631405824013756, 
    0.631405824013756), dim = c(32L, 2L)), R = structure(c(31.7987396779393, 
    15.3755058585699, 0.0854919143844979, 0.145624951921583, 13.8058392557725, 
    6.76005154341231, 1.05652882706662, 0.459367806250626, 0.0854919143844974, 
    0.145624951921583, -0.0638853024552986, -0.108820748319042, 0.730920058415065, 
    0.323877689619449, -0.316079086188582, -0.164221338232246, 13.8058392557725, 
    6.76005154341231, 0.730920058415064, 0.323877689619449, 9.62598523889269, 
    4.71337925681211, 2.10858391744658, 1.09344300061053, 1.05652882706662, 
    0.459367806250626, -0.316079086188582, -0.164221338232246, 2.10858391744658, 
    1.09344300061053, -0.337332268845133, -0.146668581440574, 15.3755058585699, 
    15.3755058585699, 0.145624951921583, 0.145624951921583, 6.76005154341231, 
    6.76005154341231, 0.459367806250626, 0.459367806250626, 0.145624951921583, 
    0.145624951921583, -0.108820748319042, -0.108820748319042, 0.323877689619449, 
    0.323877689619449, -0.164221338232246, -0.164221338232246, 6.76005154341231, 
    6.76005154341231, 0.323877689619449, 0.323877689619449, 4.71337925681211, 
    4.71337925681211, 1.09344300061053, 1.09344300061053, 0.459367806250626, 
    0.459367806250626, -0.164221338232246, -0.164221338232246, 1.09344300061053, 
    1.09344300061053, -0.146668581440574, -0.146668581440574), dim = c(32L, 
    2L)))

# h_get_kr_comp works as expected on ad grouped mmrm

    list(P = structure(c(-7.9946144790692, -3.57042447320526, -0.108141996687663, 
    -0.0452753802606195, -3.47163923624866, -1.45681055651067, -0.265601729498665, 
    -0.0538494385421337, -8.03126680224721, -4.07524156112617, 0.0191803747737689, 
    -0.0288972733106294, -3.5261219385481, -1.88866845330211, -0.301898516534215, 
    -0.186064951768661, -3.57042447320526, -3.57042447320526, -0.0452753802606195, 
    -0.0452753802606195, -1.45681055651067, -1.45681055651067, -0.0538494385421337, 
    -0.0538494385421337, -4.07524156112617, -4.07524156112617, -0.0288972733106294, 
    -0.0288972733106294, -1.88866845330211, -1.88866845330211, -0.186064951768661, 
    -0.186064951768661), dim = c(16L, 2L)), Q = structure(c(15.9892289581384, 
    7.14084894641051, 0.216283993375326, 0.0905507605212389, 6.94327847249731, 
    2.91362111302134, 0.531203458997331, 0.107698877084267, 0.216283993375326, 
    0.090550760521239, 0.11539235714713, 0.0621899877808169, 0.0976867152218088, 
    0.0360795325760812, -0.0807001398623341, -0.0489314385836247, 
    6.94327847249731, 2.91362111302134, 0.0976867152218086, 0.0360795325760811, 
    4.30583219637445, 1.78571009988193, 0.336551640101438, 0.134693412275057, 
    0.531203458997331, 0.107698877084267, -0.0807001398623341, -0.0489314385836247, 
    0.336551640101438, 0.134693412275057, 0.680665451268489, 0.322997069533122, 
    16.0625336044944, 8.15048312225233, -0.0383607495475378, 0.0577945466212587, 
    7.05224387709622, 3.77733690660423, 0.60379703306843, 0.372129903537323, 
    -0.0383607495475378, 0.0577945466212588, 0.0457112332311423, 
    0.0152928366395851, -0.00635635411668304, 0.0293621148937726, 
    -0.0436964341704709, -0.0190229287732437, 7.05224387709622, 3.77733690660423, 
    -0.00635635411668298, 0.0293621148937726, 4.26064693537731, 2.35395397766856, 
    0.334918189052063, 0.197992580515324, 0.603797033068431, 0.372129903537323, 
    -0.043696434170471, -0.0190229287732438, 0.334918189052063, 0.197992580515324, 
    0.588579042759473, 0.316652155577672, 7.14084894641051, 7.14084894641051, 
    0.0905507605212389, 0.0905507605212389, 2.91362111302134, 2.91362111302134, 
    0.107698877084267, 0.107698877084267, 0.090550760521239, 0.090550760521239, 
    0.0621899877808169, 0.0621899877808169, 0.0360795325760812, 0.0360795325760812, 
    -0.0489314385836247, -0.0489314385836247, 2.91362111302134, 2.91362111302134, 
    0.0360795325760811, 0.0360795325760811, 1.78571009988193, 1.78571009988193, 
    0.134693412275057, 0.134693412275057, 0.107698877084267, 0.107698877084267, 
    -0.0489314385836247, -0.0489314385836247, 0.134693412275057, 
    0.134693412275057, 0.322997069533122, 0.322997069533122, 8.15048312225233, 
    8.15048312225233, 0.0577945466212587, 0.0577945466212587, 3.77733690660423, 
    3.77733690660423, 0.372129903537323, 0.372129903537323, 0.0577945466212588, 
    0.0577945466212588, 0.0152928366395851, 0.0152928366395851, 0.0293621148937726, 
    0.0293621148937726, -0.0190229287732437, -0.0190229287732437, 
    3.77733690660423, 3.77733690660423, 0.0293621148937726, 0.0293621148937726, 
    2.35395397766856, 2.35395397766856, 0.197992580515324, 0.197992580515324, 
    0.372129903537323, 0.372129903537323, -0.0190229287732438, -0.0190229287732438, 
    0.197992580515324, 0.197992580515324, 0.316652155577672, 0.316652155577672
    ), dim = c(64L, 2L)), R = structure(c(15.9892289581384, 7.14084894641051, 
    0.216283993375327, 0.0905507605212392, 6.94327847249731, 2.91362111302134, 
    0.53120345899733, 0.107698877084267, 0.216283993375326, 0.0905507605212389, 
    -0.153837284201922, -0.0644064448025637, 0.354801968445114, 0.16683160753261, 
    -0.232160519203297, -0.133242996906564, 6.94327847249731, 2.91362111302134, 
    0.354801968445114, 0.16683160753261, 5.04528875271416, 2.1171640874588, 
    0.989236709897254, 0.459202592199774, 0.53120345899733, 0.107698877084267, 
    -0.232160519203297, -0.133242996906564, 0.989236709897254, 0.459202592199774, 
    -0.130509476854767, -0.0264601516952551, 16.0625336044944, 8.15048312225233, 
    -0.0383607495475377, 0.0577945466212589, 7.05224387709622, 3.77733690660423, 
    0.60379703306843, 0.372129903537323, -0.0383607495475378, 0.0577945466212588, 
    0.0284595823688335, -0.042877385855008, 0.331545436206184, 0.134454780342784, 
    -0.100537704638006, -0.0468090817445305, 7.05224387709621, 3.77733690660423, 
    0.331545436206184, 0.134454780342784, 4.67336914332101, 2.50315928531395, 
    1.12913665960621, 0.621955960581572, 0.60379703306843, 0.372129903537323, 
    -0.100537704638006, -0.0468090817445305, 1.12913665960621, 0.621955960581572, 
    -0.216051577137332, -0.133156090798627, 7.14084894641051, 7.14084894641051, 
    0.0905507605212392, 0.0905507605212392, 2.91362111302134, 2.91362111302134, 
    0.107698877084267, 0.107698877084267, 0.0905507605212389, 0.0905507605212389, 
    -0.0644064448025637, -0.0644064448025637, 0.16683160753261, 0.16683160753261, 
    -0.133242996906564, -0.133242996906564, 2.91362111302134, 2.91362111302134, 
    0.16683160753261, 0.16683160753261, 2.1171640874588, 2.1171640874588, 
    0.459202592199774, 0.459202592199774, 0.107698877084267, 0.107698877084267, 
    -0.133242996906564, -0.133242996906564, 0.459202592199774, 0.459202592199774, 
    -0.0264601516952551, -0.0264601516952551, 8.15048312225233, 8.15048312225233, 
    0.0577945466212589, 0.0577945466212589, 3.77733690660423, 3.77733690660423, 
    0.372129903537323, 0.372129903537323, 0.0577945466212588, 0.0577945466212588, 
    -0.042877385855008, -0.042877385855008, 0.134454780342784, 0.134454780342784, 
    -0.0468090817445305, -0.0468090817445305, 3.77733690660423, 3.77733690660423, 
    0.134454780342784, 0.134454780342784, 2.50315928531395, 2.50315928531395, 
    0.621955960581572, 0.621955960581572, 0.372129903537323, 0.372129903537323, 
    -0.0468090817445305, -0.0468090817445305, 0.621955960581572, 
    0.621955960581572, -0.133156090798627, -0.133156090798627), dim = c(64L, 
    2L)))

# h_get_kr_comp works as expected on spatial mmrm

    list(P = structure(c(-4.89380140648058, -2.34964529466607, -1.14964760599207, 
    -0.575685114744495, -2.34964529466607, -2.34964529466607, -0.575685114744495, 
    -0.575685114744495), dim = c(4L, 2L)), Q = structure(c(4.89380140648058, 
    2.34964529466607, 1.14964760599207, 0.575685114744495, 1.14964760599207, 
    0.575685114744495, 0.328897402706865, 0.168443424249605, 2.34964529466607, 
    2.34964529466607, 0.575685114744495, 0.575685114744495, 0.575685114744495, 
    0.575685114744495, 0.168443424249605, 0.168443424249605), dim = c(8L, 
    2L)), R = structure(c(4.89380140648058, 2.34964529466607, 1.14964760599207, 
    0.575685114744495, 1.14964760599207, 0.575685114744495, 0.959553326098124, 
    0.473967669930741, 2.34964529466607, 2.34964529466607, 0.575685114744495, 
    0.575685114744495, 0.575685114744495, 0.575685114744495, 0.473967669930741, 
    0.473967669930741), dim = c(8L, 2L)))

# h_get_kr_comp works as expected on grouped spatial mmrm

    list(P = structure(c(-2.27250743795934, -1.05580388789638, -0.522082682399275, 
    -0.247448577313772, -2.62398723262137, -1.29551324859429, -0.627067467112632, 
    -0.328169756278635, -1.05580388789638, -1.05580388789638, -0.247448577313772, 
    -0.247448577313772, -1.29551324859429, -1.29551324859429, -0.328169756278635, 
    -0.328169756278635), dim = c(8L, 2L)), Q = structure(c(2.27250743795935, 
    1.05580388789638, 0.522082682399275, 0.247448577313772, 0.522082682399275, 
    0.247448577313772, 0.147167905842805, 0.0700408683803743, 2.62398723262137, 
    1.29551324859429, 0.627067467112632, 0.328169756278635, 0.627067467112632, 
    0.328169756278635, 0.181349407866767, 0.0983065081281383, 1.05580388789638, 
    1.05580388789638, 0.247448577313772, 0.247448577313772, 0.247448577313772, 
    0.247448577313772, 0.0700408683803743, 0.0700408683803743, 1.29551324859429, 
    1.29551324859429, 0.328169756278635, 0.328169756278635, 0.328169756278635, 
    0.328169756278635, 0.0983065081281383, 0.0983065081281383), dim = c(16L, 
    2L)), R = structure(c(2.27250743795934, 1.05580388789638, 0.522082682399275, 
    0.247448577313772, 0.522082682399275, 0.247448577313772, 0.446551675734914, 
    0.214366671939396, 2.62398723262137, 1.29551324859429, 0.627067467112632, 
    0.328169756278635, 0.627067467112632, 0.328169756278635, 0.513312944165689, 
    0.259722016708985, 1.05580388789638, 1.05580388789638, 0.247448577313772, 
    0.247448577313772, 0.247448577313772, 0.247448577313772, 0.214366671939396, 
    0.214366671939396, 1.29551324859429, 1.29551324859429, 0.328169756278635, 
    0.328169756278635, 0.328169756278635, 0.328169756278635, 0.259722016708985, 
    0.259722016708985), dim = c(16L, 2L)))

# h_df_1d_kr works as expected in the standard case

    list(est = 4.22574283798881, se = 0.958582835484051, df = 188.469542953831, 
        t_stat = 4.40832308024267, p_val = 1.74717113178929e-05)

---

    list(est = 44.5138538316888, se = 0.690340153834085, df = 183.109526300275, 
        t_stat = 64.4810439961561, p_val = 8.00428173980469e-128)

# h_df_md_kr works as expected in the standard case

    list(num_df = 2L, denom_df = 188.648444482487, f_stat = 3913.7241325595, 
        p_val = 2.57603724255367e-154)

---

    list(num_df = 2L, denom_df = 188.648444482487, f_stat = 3913.7241325595, 
        p_val = 2.57603724255367e-154)

# h_kr_df works as expected in the standard case

    list(m = 188.469542953831, lambda = 1)

# h_var_adj works as expected in the standard case for Kenward-Roger

    structure(c(0.444119599330238, -0.444119599330238, -0.444119599330237, 
    0.922715039314076), dim = c(2L, 2L), dimnames = list(c("(Intercept)", 
    "ARMCDTRT"), c("(Intercept)", "ARMCDTRT")))

# h_var_adj works as expected in the standard case for Kenward-Roger-Linear

    structure(c(0.442311524488976, -0.442311524488976, -0.442311524488976, 
    0.918881052484644), dim = c(2L, 2L), dimnames = list(c("(Intercept)", 
    "ARMCDTRT"), c("(Intercept)", "ARMCDTRT")))