Update CODES.md

These codes can simply be copied and pasted into an R script. Please follow the instructions given alongside the codes.