Pretty basic example for unit testing and R