Emotional Eating in R