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]]

