Showing the test case code in proper R Format