MVN LL StackOverflow

data <- structure(c(-3.41615453798448, 4.3396920730064, -2.69655569702296,
            -1.11778834796209, 1.03610667536118, 28.1479976723731, -10.4137314189659,
            17.8508675217879, 5.22857038394581, 16.0260010908763, -1.31317006315957,
            2.70275980077422, 3.04236851959641, 0.987544414678315, 2.04277690764009,
            2.74134866114823, 1.42820767569332, 0.627775426522302, 4.34253021138529,
            3.18700941391518), .Dim = c(10L, 2L))

means <- list(structure(c(-6.33163953134976, -3.1375354043969, -7.82116425600686,
                          -2.20631869371986, -3.07394303455403, 14.9281924852111, -4.38206049831898,
                          6.2925202346535, 7.13730669160749, 6.90650191198231, -1.39135464489894,
                          -1.04222168251509, -0.639064463676318, -1.13898942906748, -0.458564740223818,
                          -0.886577939421394, -1.11266531373683, -1.55468406296383, -0.292954142791362,
                          -0.277774266543659), .Dim = c(10L, 2L)), structure(c(-6.20357826688397,
                                                                               -3.05521442253806, -7.85668385599243, -2.30683990414141, -3.07668897526338,
                                                                               15.1325061914338, -4.81709303577583, 6.55010100610081, 6.7566102743108,
                                                                               6.99965368103286, -1.28442156289487, -0.94329100822621, -0.549374476420933,
                                                                               -1.03784076036093, -0.373011951500713, -0.791214744645325, -1.01212001488163,
                                                                               -1.44400733960801, -0.211197281882006, -0.196365340581411), .Dim = c(10L,
                                                                                                                                                    2L)))


Sigma <- list(structure(c(6.55725084119889, 6.75436986785345, 6.75436986785345,
                 28.7914000138686), .Dim = c(2L, 2L)), structure(c(6.64032847984976,
                                                                   7.31212977667356, 7.31212977667356, 30.2321117073501), .Dim = c(2L,
                                                                                                                                   2L)))