tests/testthat/test_simulatemixdata.R

context("simulatemixdata")

test_that("simulatemixdata generates matrix with the correct dimensions",{
  dat <- simulatemixdata(1000,20)
  expect_equal(dim(dat$L),c(1000,20))
})
stephenslab/mixsqp documentation built on Jan. 4, 2024, 1 a.m.