library(testthat) library(r4subrisk) test_check("r4subrisk")