add data_input.r