# NOT RUN {
data(likingLong)
RR1 <- RR(liking_a ~ perceiver.id*target.id, data=likingLong)
plot(RR1)
plot(RR1, geom="pie")
RR2 <- RR(liking_a + metaliking_a ~ perceiver.id*target.id, data=likingLong)
plot(RR2)
data("multiLikingLong")
RR1m <- RR(liking_a ~ perceiver.id*target.id|group.id, data=multiLikingLong)
plot(RR1m)
plot(RR1m, measure="perception")
plot(RR1m, measure="perception", geom="bar")
plot(RR1m, measure="perception", connect=TRUE)
RR2m <- RR(liking_a + metaliking_a ~ perceiver.id*target.id|group.id, data=multiLikingLong)
plot(RR2m)
# }
Run the code above in your browser using DataLab