Create unitTest.R

unitTest code