inst/testdata/testdata_calculate_marginals_on_samples.R

In jpkrooney/rcorex: An Implementation of Total Correlation Explanation

# Results for calculate_marginals_on_samples pycorex method


log_marg_x_4d_gaussian <- structure(c(
    -0.4230094145954, 0.031842658883994, -0.4230094145954, 0.031842658883994,
    -0.51768472456228, 0.203697584960249, -0.51768472456228, 0.203697584960249,
    -0.4230094145954, 0.031842658883994, -0.4230094145954, 0.031842658883994,
    -0.51768472456228, 0.203697584960249, -0.51768472456228, 0.203697584960249,
    -0.4230094145954, 0.031842658883994, -0.4230094145954, 0.031842658883994,
    -0.51768472456228, 0.203697584960249, -0.51768472456228, 0.203697584960249,
    -0.513382955316622, 0.107067780042605, -0.417548851555979, 0.117899823975262,
    -0.513382955316622, 0.107067780042605, -0.417548851555979, 0.117899823975262,
    -0.513382955316622, 0.107067780042605, -0.417548851555979, 0.117899823975262,
    -0.513382955316622, 0.107067780042605, -0.417548851555979, 0.117899823975262,
    0.250335879826277, -0.0491441338136682, 0.250335879826277, -0.0491441338136682,
    0.276915932642831, -0.194971557567539, 0.276915932642831, -0.194971557567539,
    0.250335879826277, -0.0491441338136682, 0.250335879826277, -0.0491441338136682,
    0.276915932642831, -0.194971557567539, 0.276915932642831, -0.194971557567539,
    0.250335879826277, -0.0491441338136682, 0.250335879826277, -0.0491441338136682,
    0.276915932642831, -0.194971557567539, 0.276915932642831, -0.194971557567539,
    0.278507644841803, -0.158254323764854, 0.252920434083637, -0.084592212939548,
    0.278507644841803, -0.158254323764854, 0.252920434083637, -0.084592212939548,
    0.278507644841803, -0.158254323764854, 0.252920434083637, -0.084592212939548,
    0.278507644841803, -0.158254323764854, 0.252920434083637, -0.084592212939548,
    -0.991337369315488, 0.00731471647912363, -0.991337369315488, 0.00731471647912363,
    -1.10136798536019, -0.103264632469194, -1.10136798536019, -0.103264632469194,
    -0.991337369315488, 0.00731471647912363, -0.991337369315488, 0.00731471647912363,
    -1.10136798536019, -0.103264632469194, -1.10136798536019, -0.103264632469194,
    -0.991337369315488, 0.00731471647912363, -0.991337369315488, 0.00731471647912363,
    -1.10136798536019, -0.103264632469194, -1.10136798536019, -0.103264632469194,
    -1.15034132621139, 0.0056116209557846, -1.05844413064882, -0.073042163906671,
    -1.15034132621139, 0.0056116209557846, -1.05844413064882, -0.073042163906671,
    -1.15034132621139, 0.0056116209557846, -1.05844413064882, -0.073042163906671,
    -1.15034132621139, 0.0056116209557846, -1.05844413064882, -0.073042163906671),
    .Dim = c(2L, 4L, 5L, 3L))










# Results for calculate_marginals_on_samples mean method

result_log_marg_x_4d_gaussian_mean <-structure(c(-0.43602810477291, 0.0448613490615035, -0.50807994909987,
            -0.0271904952654565, -0.440890010498524, 0.271006559550414, -0.512941854825484,
            0.198954715223454, -0.43602810477291, 0.0448613490615035, -0.50807994909987,
            -0.0271904952654565, -0.493193785661022, 0.262214813585921, -0.493193785661022,
            0.262214813585921, -0.488331879935407, 0.0360696030970102, -0.488331879935407,
            0.0360696030970102, -0.440890010498524, 0.271006559550414, -0.512941854825484,
            0.198954715223454, -0.442798078176353, 0.141090453227331, -0.500310644034389,
            0.0741414197287389, -0.442798078176353, 0.141090453227331, -0.500310644034389,
            0.0741414197287389, -0.49510185333885, 0.132298707262837, -0.480562574869926,
            0.137401518091206, -0.49510185333885, 0.132298707262837, -0.480562574869926,
            0.137401518091206, 0.237317189648767, -0.0361254436361587, 0.165265345321807,
            -0.108177287963119, 0.353710646706586, -0.127662582977375, 0.281658802379626,
            -0.199714427304335, 0.237317189648767, -0.0361254436361587, 0.165265345321807,
            -0.108177287963119, 0.301406871544089, -0.136454328941868, 0.301406871544089,
            -0.136454328941868, 0.18501341448627, -0.0449171896006519, 0.18501341448627,
            -0.0449171896006519, 0.353710646706586, -0.127662582977375, 0.281658802379626,
            -0.199714427304335, 0.349092521982072, -0.124231650580129, 0.170158641605227,
            -0.128350617186071, 0.349092521982072, -0.124231650580129, 0.170158641605227,
            -0.128350617186071, 0.296788746819575, -0.133023396544622, 0.18990671076969,
            -0.0650905188236046, 0.296788746819575, -0.133023396544622, 0.18990671076969,
            -0.0650905188236046, -1.004356059493, 0.0203334066566332, -1.07640790381996,
            -0.0517184376703268, -1.02457327129644, -0.0359556578790294,
            -1.0966251156234, -0.108007502205989, -1.004356059493, 0.0203334066566332,
            -1.07640790381996, -0.0517184376703268, -1.07687704645894, -0.0447474038435227,
            -1.07687704645894, -0.0447474038435227, -1.05665983465549, 0.0115416606921399,
            -1.05665983465549, 0.0115416606921399, -1.02457327129644, -0.0359556578790294,
            -1.0966251156234, -0.108007502205989, -1.07975644907112, 0.0396342941405101,
            -1.14120592312723, -0.116800568153194, -1.07975644907112, 0.0396342941405101,
            -1.14120592312723, -0.116800568153194, -1.13206022423362, 0.0308425481760168,
            -1.12145785396276, -0.0535404697907276, -1.13206022423362, 0.0308425481760168,
            -1.12145785396276, -0.0535404697907276),
            .Dim = c(2L, 4L, 5L, 3L))



result_log_marg_x_4d_discrete_mean <- structure(c(0.0294637765146899, -0.363042232403415, 0.0294637765146899,
            -0.363042232403415, -0.0303530120290427, 0.265768302136856, -0.0303530120290427,
            0.265768302136856, 0.0294637765146899, -0.363042232403415, 0.0294637765146899,
            -0.363042232403415, -0.0303530120290427, 0.265768302136856, -0.0303530120290427,
            0.265768302136856, 0.0294637765146899, -0.363042232403415, 0.0294637765146899,
            -0.363042232403415, -0.0303530120290427, 0.265768302136856, -0.0303530120290427,
            0.265768302136856, -0.0927612657953703, -0.00760421589983062,
            0.0848922139713737, 0.00754685997181348, -0.0927612657953703,
            -0.00760421589983062, 0.0848922139713737, 0.00754685997181348,
            -0.0927612657953703, -0.00760421589983062, 0.0848922139713737,
            0.00754685997181348, -0.0927612657953703, -0.00760421589983062,
            0.0848922139713737, 0.00754685997181348, -0.103319233651544,
            0.219105327513939, -0.103319233651544, 0.219105327513939, 0.0936215603443104,
            -0.28097690824688, 0.0936215603443104, -0.28097690824688, -0.103319233651544,
            0.219105327513939, -0.103319233651544, 0.219105327513939, 0.0936215603443104,
            -0.28097690824688, 0.0936215603443104, -0.28097690824688, -0.103319233651544,
            0.219105327513939, -0.103319233651544, 0.219105327513939, 0.0936215603443104,
            -0.28097690824688, 0.0936215603443104, -0.28097690824688, 0.0864346699862441,
            -0.206609522661332, -0.0946306505423972, 0.171145687194367, 0.0864346699862441,
            -0.206609522661332, -0.0946306505423972, 0.171145687194367, 0.0864346699862441,
            -0.206609522661332, -0.0946306505423972, 0.171145687194367, 0.0864346699862441,
            -0.206609522661332, -0.0946306505423972, 0.171145687194367, 0.34559993682419,
            0.118920420042774, 0.34559993682419, 0.118920420042774, -0.532332361073909,
            -0.134990827478621, -0.532332361073909, -0.134990827478621, 0.34559993682419,
            0.118920420042774, 0.34559993682419, 0.118920420042774, -0.532332361073909,
            -0.134990827478621, -0.532332361073909, -0.134990827478621, 0.34559993682419,
            0.118920420042774, 0.34559993682419, 0.118920420042774, -0.532332361073909,
            -0.134990827478621, -0.532332361073909, -0.134990827478621, -0.281680043762985,
            0.170331900494691, 0.219548958459497, -0.205425339530735, -0.281680043762985,
            0.170331900494691, 0.219548958459497, -0.205425339530735, -0.281680043762985,
            0.170331900494691, 0.219548958459497, -0.205425339530735, -0.281680043762985,
            0.170331900494691, 0.219548958459497, -0.205425339530735),
            .Dim = c(2L, 4L, 5L, 3L))