edits to R script, initial emoticon script