R testing
Testing file I/O