created functions/check_TR.{R,csv,xlsx}