library(testthat)
library(slouch)

# testsetup <- function(){
#   pars <- list(myfunc = myfunc, dummydata = dummydata, model.id.btk = model.id.btk)
#   return(pars)
# }

test_check("slouch")