tests/testthat/test-pandatoalpaca.R

context("test panda.to.alpaca function")

test_that(" panda.to.alpaca works or not", {
  load("./testDataset.RData")
  alpaca <- pandaToAlpaca(T4Panda_subset,T10Panda_subset,NULL,verbose = F)
  expect_equal(alpaca, T4T10Alpaca)
}) 
netZoo/netZooR documentation built on June 8, 2024, 6:20 a.m.