data("SexualFun")
agreementplot(t(SexualFun))
data("MSPatients")
if (FALSE) {
## best visualized using a resized device, e.g. using:
## get(getOption("device"))(width = 12)
pushViewport(viewport(layout = grid.layout(ncol = 2)))
pushViewport(viewport(layout.pos.col = 1))
agreementplot(t(MSPatients[,,1]), main = "Winnipeg Patients",
newpage = FALSE)
popViewport()
pushViewport(viewport(layout.pos.col = 2))
agreementplot(t(MSPatients[,,2]), main = "New Orleans Patients",
newpage = FALSE)
popViewport(2)
dev.off()
}
## alternatively, use cotabplot:
cotabplot(MSPatients, panel = cotab_agreementplot)
Run the code above in your browser using DataLab