library(testthat) library(fasi) test_check("fasi")