created test case file and added screen shot from R Studio