tests/testthat/test-pandatocondorobject.R

context("test pandaToCondorObject function")

test_that(" pandaToCondorObject works or not", {
  load("./testDataset.RData")
  condor.obj <- pandaToCondorObject(T4Panda_subset)
  expect_equal(condor.obj$edges, T4Condor$edges)
}) 
netZoo/netZooR documentation built on Oct. 16, 2024, 10:23 p.m.