Added testthat code, nothing works yet.