Data_Generating_Function.R