Create Realdata_2sub.R