library(testthat)
test_check("PeakSegOptimal")