## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(ordinalTables)

## ----ireland symmetry---------------------------------------------------------
symmetry <- Ireland_symmetry(vision_data)

## ----bowker-------------------------------------------------------------------
bowker <- Bowker_symmetry(vision_data)

## ----marginal_homogeneity-----------------------------------------------------
marginal_homogeneity <- Ireland_marginal_homogeneity(vision_data)

## ----quasi1-------------------------------------------------------------------
quasi1 <- Ireland_quasi_symmetry(vision_data)

## ----quasi2-------------------------------------------------------------------
quasi2 <- Ireland_quasi_symmetry_model(vision_data)

## ----truncate-----------------------------------------------------------------
truncated_sym <- Ireland_symmetry(vision_data, truncated=TRUE)
truncated_mh <- Ireland_marginal_homogeneity(vision_data, truncated=TRUE)
truncated_qs <- Ireland_quasi_symmetry_model(vision_data, truncated=TRUE)