data("phone_offers")
data("bowl_offers")
polite.data<-politeness(phone_offers$message, parser="none",drop_blank=FALSE)
polite.holdout<-politeness(bowl_offers$message, parser="none",drop_blank=FALSE)
project<-politenessProjection(polite.data,
phone_offers$condition,
polite.holdout)
# Difference in average politeness across conditions in the new sample.
mean(project$test_proj[bowl_offers$condition==1])
mean(project$test_proj[bowl_offers$condition==0])
Run the code above in your browser using DataLab