tests/testthat/reference-values.R

aa <- 3.260684e+302
Sbar <- structure(
  c(1.12289210919171, -0.110823612679468, 0.317590669249522,
    0.0983234585050708, -0.459366780091239, -1.1945397846651, 0.704995971409216,
    0.1751485436727, -1.4575594512977, -0.542949186868303, -0.110823612679468,
    0.278832021679299, -0.211701059352649, -0.0150937341405955, 0.0582711665657068,
    0.372268236989822, 0.0087521219216694, -0.325709114715079, 0.250285430600906,
    0.0788246046942759, 0.317590669249522, -0.211701059352649, 0.281819158147264,
    -0.192004882497052, 0.140016341422517, -0.628751983942927, 0.27027526184657,
    -0.017742545511503, -0.838918474106168, -0.264698038340657, 0.0983234585050708,
    -0.0150937341405955, -0.192004882497052, 0.716180333662149, -0.922737257187506,
    0.269099071031675, -0.331233846046032, 0.891998451264911, 0.994289825273153,
    0.250024584237251, -0.459366780091239, 0.0582711665657068, 0.140016341422517,
    -0.922737257187506, 1.28877813077473, 0.0285519501607858, 0.203462242896228,
    -1.1720615146994, -0.800362487560425, -0.148384074886097, -1.1945397846651,
    0.372268236989822, -0.628751983942927, 0.269099071031675, 0.0285519501607858,
    1.71513146245369, -0.885172241442974, -0.0130905642254389, 2.25350351917773,
    0.761162620220635, 0.704995971409216, 0.0087521219216694, 0.27027526184657,
    -0.331233846046032, 0.203462242896228, -0.885172241442974, 0.682056392607541,
    -0.461779451623393, -1.50585577207802, -0.49840894572391, 0.1751485436727,
    -0.325709114715079, -0.017742545511503, 0.891998451264911, -1.1720615146994,
    -0.0130905642254389, -0.461779451623393, 1.45340653835704, 1.0331509095721,
    0.2530030521905, -1.4575594512977, 0.250285430600906, -0.838918474106168,
    0.994289825273153, -0.800362487560425, 2.25350351917773, -1.50585577207802,
    1.0331509095721, 3.72022819476205, 1.18839563671125, -0.542949186868303,
    0.0788246046942759, -0.264698038340657, 0.250024584237251, -0.148384074886097,
    0.761162620220635, -0.49840894572391, 0.2530030521905, 1.18839563671125,
    0.390495965301745), .Dim = c(10L, 10L))
Tbar <- structure(
  c(2305995018319306, 485713863557878, -5183667328778086,
    1398442286698526, 3380434345136182, -3175376368367976, -3077206993701460,
    315151113040359, -228210421210437, 2735862822339451, 485713863557878,
    260261925976408, 339653138908639, 576313823183877, 993519103414187,
    -61186562158552.6, 349096700971355, 249565763412560, 508488810197435,
    -282775592933314, -5183667328778086, 339653138908639, 24625520253669056,
    -590095339787664, -5047821815588844, 12644831183151340, 15955010473435834,
    951709635349873, 5556869595156243, -13935073606036490, 1398442286698526,
    576313823183877, -590095339787664, 1350664680337751, 2552149262397836,
    -841758791937582, -87252618049660, 517882351943237, 854382111052320,
    126801054348560, 3380434345136182, 993519103414186, -5047821815588844,
    2552149262397836, 5457147296331988, -3571993925808027, -2733761664069708,
    788447642303853, 657307724107854, 2479695752587024, -3175376368367977,
    -61186562158552.6, 12644831183151340, -841758791937582, -3571993925808028,
    6710101020160156, 8073711636448100, 270736828416866, 2455290280085853,
    -7071958069166850, -3077206993701460, 349096700971355, 15955010473435832,
    -87252618049660, -2733761664069708, 8073711636448099, 10402484663575504,
    735989211242936, 3818352282174430, -9074338737631424, 315151113040359,
    249565763412560, 951709635349873, 517882351943237, 788447642303853,
    270736828416866, 735989211242936, 255515092157500, 614265056314056,
    -622343464796597, -228210421210437, 508488810197435, 5556869595156242,
    854382111052320, 657307724107854, 2455290280085852, 3818352282174430,
    614265056314056, 1983615062696354, -3297557275996042, 2735862822339451,
    -282775592933314, -13935073606036490, 126801054348560, 2479695752587024,
    -7071958069166850, -9074338737631424, -622343464796597, -3297557275996042,
    7917668249841351), .Dim = c(10L, 10L))
CFWP/rags2ridges documentation built on Oct. 21, 2023, 10:19 a.m.