library(testthat) library(sgs) test_check("sgs")