added test.R and test data set