Update replace_number.R