Update Realdata_Direct.R