library(testthat) library(tipr) test_check("tipr")