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))
})

Try the mixsqp package in your browser

Any scripts or data that you put into this service are public.

mixsqp documentation built on Nov. 17, 2022, 1:09 a.m.