fixed bug in testDataset.R