mytext <- c(
'do you like it? But I hate really bad dogs',
'I am the best friend.',
'Do you really like it? I\'m not happy'
)
(x <- sentiment_by(mytext))
uncombine(x)
(y <- with(presidential_debates_2012, sentiment_by(dialogue, list(person, time))))
uncombine(y)
Run the code above in your browser using DataLab