[Test] Readdata.R modified.