tests/testthat/test-univariate.R

test_that("Correct result for univariate gaussian", {
  expect_equal(mvnpdf(x=matrix(1.96), Log=FALSE)$y, dnorm(1.96))
  expect_equal(mvnpdf(x=matrix(c(1.96,-0.5), ncol=2), Log=FALSE)$y, dnorm(c(1.96,-0.5)))
})
Florian-40/mypkgr documentation built on April 30, 2022, 6:10 p.m.