Added reverse cowcodes R script