library(testthat) library(drda) source("./testdata.R") test_check("drda")