Update collecting_data_survey.R