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. 16, 2024, 4:02 a.m.