Update and rename RealData.R to RealDataDirect.R