tests/testthat/test-eem_export.R

test_that("EEMs can be exported into Matlab .mat file", {
  file <- system.file("extdata/cary/", package = "eemR")
  eem <- eem_read(file, recursive = TRUE, import_function = "cary")
  export_to <- paste(tempfile(), ".mat", sep = "")

  expect_invisible(eem_export_matlab(export_to, eem))
  expect_true(file.exists(export_to))
})

Try the eemR package in your browser

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

eemR documentation built on April 4, 2025, 2:38 a.m.