data.table::setDTthreads(1) if(require(testthat))test_check("penaltyLearning")