tests/testthat/test-readwrite_spd.R

test_that("read/write SPD works", {
  
  Y = randspd_FAST(3, NUM=10)
  writeSPD(Y)
  expect_equal(T, file.exists("mat.spd"))
  a = readSPD()
  expect_equal(Y, a$Y)
  file.remove("mat.spd")
})
mrparker909/MGLMRiem documentation built on March 19, 2020, 3:37 p.m.