Added SimTest.R, test function for problem 2b