tests/testthat/test-bivariate.R

context("Bivariate gaussian test")

test_that("correct results for bivariate gaussian", {
  expect_equal(mvnpdf(x=matrix(rep(1.96,2), nrow=2, ncol=1), Log=FALSE)$y,
               mvtnorm::dmvnorm(rep(1.96, 2)))
})
melany33/melany documentation built on May 25, 2019, 10:30 p.m.