begin to create tests for testthat