tests/testthat/test_mds_misc.R

context("Package Functions - mds_misc.R")

test_that("mds_des executes", {
  #load data
  df <- mdsR::mds_dta

  ## test function
  expect_is(mds_des(mds_dta), "list")

})
kmcconeghy/mdsr documentation built on May 3, 2019, 1:47 p.m.