library(testthat) test_check("PeakSegDP")