Create collecting_data_survey.R