Update Realdata_2sub.R