Hi All: Has anyone used the function agreementplot in the vcd package? Now I want to put more than 1 plots on a single device. I tried par(mfrow), split.screen() and layout(), but with no luck. Below is a sample code. mydata <- data.frame(rater1=sample(1:2, 10, replace=T), rater2=sample(1:2, 10, replace=T), rater3=sample(1:2, 10, replace=T)) # want to put these 3 plots on a single device agreementplot(table(mydata$rater1, mydata$rater2)) agreementplot(table(mydata$rater1, mydata$rater3)) agreementplot(table(mydata$rater2, mydata$rater3)) Could anyone help me with this? Thanks a lot in advance. FD [[alternative HTML version deleted]]