edits to R script, emoticon_coding