tests/testthat/test_scones.R

library(martini)

gi <- get_GI_network(minigwas, snpMapping = minisnpMapping, ppi = minippi)

test_that("output is as expected", {
  
  expect_equal(scones(minigwas, gi, 10, 1), scones.cv(minigwas, gi))
  
})

Try the martini package in your browser

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

martini documentation built on Nov. 8, 2020, 5:39 p.m.