Prints a summary of results from hypothesis comparison.

Usage

# S3 method for opaHypothesisComparison
print(x, ...)

Arguments

x: an object of class "opaHypothesisComparison".
...: ignored

Value

No return value, called for side effects.

Examples

dat <- data.frame(t1 = c(9, 4, 8, 10),
                  t2 = c(8, 8, 12, 10),
                  t3 = c(8, 5, 10, 11),
                  t4 = c(10, 5, 11, 12))
h1 <- hypothesis(c(1, 2, 3, 4))
h2 <- hypothesis(c(1, 4, 2, 3))
opamod1 <- opa(dat, h1)
opamod2 <- opa(dat, h2)
z <- compare_hypotheses(opamod1, opamod2)
print(z)
#> ********* Hypothesis Comparison **********
#> H1: 1 2 3 4 
#> H2: 1 4 2 3 
#> H1 PCC: 62.5 
#> H2 PCC: 66.66667 
#> PCC difference: 4.166667 
#> cval: 0.909 
#> Comparison type: two-tailed