Return the number of pairs of observations matched by the hypothesis

Return the number of pairs of observations matched by the hypothesis

Usage

correct_pairs(m)

Arguments

m

an object of class "opafit"

Value

a non-negative integer

Examples

dat <- data.frame(t1 = c(9, 4, 8, 10),
                  t2 = c(8, 8, 12, 10),
                  t3 = c(8, 5, 10, 11))
h <- hypothesis(1:3)
opamod <- opa(dat, h)
correct_pairs(opamod)
#> [1] 6