tests/testthat/test_cov_udi.R

In mashr: Multivariate Adaptive Shrinkage

context("test_cov_udi.R")
test_that("udi covariance computations look right", {
  set.seed(1)
  Bhat = matrix(rnorm(100),ncol=5)
  L = matrix(rnorm(25),nrow=5,ncol=5)
  V = L %*% t(L)
  data = mash_set_data(Bhat,Shat=1,V=V)
  expect_error(cov_udi(data, c("U","U","D","D","A")))
  expect_error(cov_udi(data, c("U","U","I","I","I")))
  expect_equal(names(cov_udi(data, c("U","U","I","I","D"))), "cov_udi_UUIID")
}
)