Create BTBR_cleandata_script.R